ufun 获取文件夹下所有prt文件名

iPhone

ufun 获取文件夹下所有prt文件名

admin

C#的  没有用NX 函数
! `9 V" ]1 [, N$ {% G. c9 ?1 B

[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
4 N4 o! c# }* G' U; [
0 x9 v3 R1 z8 Q9 u& Y' F3 K        Public Shared Sub Main()

            Dim theSession As Session = Session.GetSession()
7 U8 ?& q! Y! ?: e% ?* P            Dim lw As ListingWindow = theSession.ListingWindow()
) P% A9 w9 m! y+ d# w
            Dim foldername As String = ""
, h. W0 x- E; g8 R1 _            lw.Open()
7 d, Y2 k: Q. g9 F0 d: e8 M            If (select_directory(foldername) <> DialogResult.OK) Then
                lw.WriteLine("Input canceled...exit" & vbCrLf)
# C1 Z% X- ^  V* L, E3 T                Return
            End If
& u7 I1 e$ v# ]3 [
            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
( m1 B0 ]' s; G: h            Dim fsi As FileSystemInfo

: K$ h* m5 {4 h- }. ]) ]* i            lw.Open()
            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)

            For Each fsi In dir.GetFileSystemInfos()
                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
- s" h% g6 L  @) a$ y/ w- V6 d                    Dim f As FileInfo = CType(fsi, FileInfo)
8 k  C+ m9 ^# e+ Q                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
            Next fsi
$ @/ ]- e* I" L& E0 X
  }5 P9 I5 O4 R3 Z/ ~; {        End Sub

        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult
9 S7 t0 P. v; G" ?/ Q0 y
            Dim fbd As FolderBrowserDialog
            Dim result As System.Windows.Forms.DialogResult

            fbd = New System.Windows.Forms.FolderBrowserDialog()
            fbd.Description = "Select directory to check"
            fbd.ShowNewFolderButton = False
            ' start browsing at Desktop folder, uncomment for any other default directory
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
            ' fbd.SelectedPath = "c:\aaa\bbb"
            result = fbd.ShowDialog()
            foldername = fbd.SelectedPath
            fbd.Dispose()
            Return result

        End Function
+ O( C4 z9 p- D8 d+ r8 ]% w
$ D/ I/ o+ C$ U! `/ s4 l        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function

4 q7 ^  L: X# R5 o) C# i: u    End Class[/mw_shl_code]
. c* Q; f3 R- ]" \# ]4 l

admin

ufun 的 方法
; z" ~0 {# i& p1 g
; [# C$ R# ^  p8 T6 O% G" X
[mw_shl_code=c,true]int
        cnt = 0,
        resp;
    tag_t
        part;
9 K" W& P1 ]  |) R6 }5 U4 s    char
) M$ ]6 n3 B8 ~( n; J$ d( s        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
    UF_PART_load_status_t
        status;
/ Q2 k1 b* B1 T: V
: |# a  K8 f+ M" e. ?# Z    if (UF_CALL(UF_initialize())) return 1;

* n- l" X3 l) {  Y    while (printf("Enter directory path:\n") && gets(dirspec) &&
& d2 P  J0 F- f- I$ A7 E        strlen(dirspec))
! Z+ o# s/ c5 P0 n7 x! l    {
7 Z  }- w9 j! O: Z+ K        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
' {8 A  A- \. h4 R/ ~5 ^3 c        while ((resp = uc4518()) == 0)
  W4 Z$ T$ y7 L/ L2 U. w4 \        {
" V, ~# Z2 @  N; {8 G2 n6 R6 A            UF_CALL(uc4600(fname));
            UF_CALL(uc4575(dirspec, 2, fname, part_name));

- Q* \9 S! E( y1 S+ R            ECHO( "%d.  %s\n", ++cnt, part_name);

# i) X; X- E- d& K            UF_CALL(UF_PART_open(part_name, &part, &status));
. T. N& C% |& M( o2 V- O+ A            if (status.n_parts > 0) report_load_status(&status);
3 i1 q* s* J* T* A' V            if (!status.failed)
            {
                do_it();
5 T3 B) E3 v0 o8 h* [8 d                UF_PART_close_all();
            }
        }

7 _: D. ?4 |& c( f4 s" J        UF_CALL(uc4548());
3 n: o2 a# a1 Q5 L
3 P# `" a$ m1 L- u        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]