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

iPhone

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

admin

C#的  没有用NX 函数


) O& m6 F1 R* d  G% v# D/ U# j, \[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory

        Public Shared Sub Main()
7 q, m' J# P4 t/ z5 W. f2 n
            Dim theSession As Session = Session.GetSession()
            Dim lw As ListingWindow = theSession.ListingWindow()

            Dim foldername As String = ""
            lw.Open()
            If (select_directory(foldername) <> DialogResult.OK) Then
+ R- x4 x2 Q' P* ?1 E* C3 E                lw.WriteLine("Input canceled...exit" & vbCrLf)
                Return
: v; x" T. u+ ^; T            End If
. z  W0 h: l7 V4 B' b+ r/ {
. L3 \: `" o  L) D7 G+ ]            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
+ Y$ e% h6 Q) O+ y2 f7 {8 N            Dim fsi As FileSystemInfo
3 A: N$ O8 L( ]* Z" |, r
            lw.Open()
0 [$ n7 x# J& }, U# W% x1 A            lw.WriteLine("Parts in directory: " _
' Q2 @7 d9 |' ~6 t: S5 B  i              & Path.GetFullPath(dir.ToString()) & vbCrLf)
' i. s7 L  p" _# I5 c2 }) F  ]7 h
( q$ o8 }8 y" d; S# `            For Each fsi In dir.GetFileSystemInfos()
                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
                    Dim f As FileInfo = CType(fsi, FileInfo)
) V( `, D4 k  [4 h                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
! J. t- @+ R! q                End If
7 O: G/ ^) i$ {/ \5 ?- p- G. O            Next fsi

        End Sub

        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
# a8 I4 X4 E& _; ]( ?  \            Dim result As System.Windows.Forms.DialogResult

" E7 k/ P9 C0 d9 p. |7 l; M$ Q" v            fbd = New System.Windows.Forms.FolderBrowserDialog()
5 E0 J) v/ R$ |/ b7 x4 \$ F! S$ }            fbd.Description = "Select directory to check"
- d& l0 l" G- M; u            fbd.ShowNewFolderButton = False
0 Q( J: b9 K8 r8 E            ' start browsing at Desktop folder, uncomment for any other default directory
+ L% B- D# l* A9 `3 `            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
9 Q0 w( r8 O5 d2 {) H) n) b) T5 x            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
, v* R) Q) k6 A: N. S6 @            ' fbd.SelectedPath = "c:\aaa\bbb"
; Q# x. n4 g* e  o) q            result = fbd.ShowDialog()
% r6 c: `$ @2 [' R6 c% K$ k            foldername = fbd.SelectedPath
            fbd.Dispose()
! Z: w( X4 X6 d' Y            Return result

        End Function
" C; j( _- X" P& \
        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function
0 w# w1 G3 R" H6 N. J
2 N0 y0 }) B) K/ p8 Q, D' u/ u    End Class[/mw_shl_code]

admin

ufun 的 方法

* E' m& r8 C) h; j5 W) g5 E
% F# l6 n; U% x0 e# }5 V[mw_shl_code=c,true]int
- k! G  `3 N' I2 x; D; d        cnt = 0,
        resp;
9 C$ [# `  M4 a( E0 W    tag_t
$ Q8 _) Z4 f9 q0 P        part;
+ M8 Q7 m' F, F/ Q+ Z; k+ Z$ F" k3 [    char
( D/ R  ]' f, A2 l' D9 k        dirspec[MAX_FSPEC_SIZE+1] = { "" },
. T2 Z& E6 G( F: x! `        fname[MAX_FSPEC_SIZE+1],
! j) Y7 K1 A' t        part_name[MAX_FSPEC_SIZE+1];
4 F% r. M/ ^+ v) g) c    UF_PART_load_status_t
        status;
+ z+ t. h8 ?1 t) T! w' d
    if (UF_CALL(UF_initialize())) return 1;
' A+ q) L) a" a8 W4 G2 @- w4 I
, l" d9 F- F- l2 ]    while (printf("Enter directory path:\n") && gets(dirspec) &&
2 }4 A' n9 j1 l4 t! ?8 O        strlen(dirspec))
    {
0 i" W. Q6 z; t7 w# Q6 ]4 b        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
        {
$ `& K1 v: B1 ~+ f            UF_CALL(uc4600(fname));
            UF_CALL(uc4575(dirspec, 2, fname, part_name));

/ ?' n5 o/ b- O7 t+ W            ECHO( "%d.  %s\n", ++cnt, part_name);

            UF_CALL(UF_PART_open(part_name, &part, &status));
' n, ?6 A2 I3 u. V, U: }            if (status.n_parts > 0) report_load_status(&status);
$ @( S3 o$ h! J            if (!status.failed)
) p; @8 C( l8 M# h& s# z            {
2 x# ]- x* P+ d1 T. h0 I                do_it();
                UF_PART_close_all();
& _+ g% k) A8 b2 q' O            }
        }

2 Q7 b' R! a6 b9 i6 |        UF_CALL(uc4548());

2 R% i9 T6 v5 b! e        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]