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

iPhone

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

admin

C#的  没有用NX 函数


, J2 a$ j/ E" ^9 q% i) s5 A[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory

7 _) v# x: I# ^( w; a) J& ?9 r8 V        Public Shared Sub Main()

+ Z0 i) x4 \+ v% x- }            Dim theSession As Session = Session.GetSession()
            Dim lw As ListingWindow = theSession.ListingWindow()
; B  H1 F1 @+ G! r1 b. J
# d+ q" N+ o* f2 n, U2 J! n4 W            Dim foldername As String = ""
            lw.Open()
0 F8 C" l5 l0 v+ r, P; ^: k( w+ D            If (select_directory(foldername) <> DialogResult.OK) Then
, D6 ~, V& g1 U. q3 }                lw.WriteLine("Input canceled...exit" & vbCrLf)
                Return
$ d4 h2 }8 J$ c9 A9 B7 i* b" ?& E) e            End If
& r  ^( I  N9 b( f
            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
            Dim fsi As FileSystemInfo
6 y% |: i3 f. n7 |
            lw.Open()
' A, |4 T% q- b2 L            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)
" D1 H& Y( k8 Z7 t' z3 T
) V( |& }( r4 N& H" A) Z$ A            For Each fsi In dir.GetFileSystemInfos()
                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
                    Dim f As FileInfo = CType(fsi, FileInfo)
7 [$ o1 h' G$ U                    Dim size As Long = f.Length
- u3 l) O! c! a; g                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
, W5 U2 W, A. @8 d7 s5 k7 m; V! z" X            Next fsi

; B% T( ^) P9 p* K$ k        End Sub
2 H: H0 v% F" Z, X! a2 F. [
# @: T3 C0 d. t. h4 m* Z        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
$ s) b8 g/ e9 \7 w& O/ s7 O, M            Dim result As System.Windows.Forms.DialogResult
, n# o% j! }+ Y# ?1 C
1 b; {8 l. N: K& v2 c8 o! v            fbd = New System.Windows.Forms.FolderBrowserDialog()
2 h4 v! `* a) `6 N' a            fbd.Description = "Select directory to check"
            fbd.ShowNewFolderButton = False
4 n+ j1 A7 h. P# t. ^+ W" g            ' start browsing at Desktop folder, uncomment for any other default directory
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
/ [  y* d( {8 B( S+ d6 B            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
            ' fbd.SelectedPath = "c:\aaa\bbb"
, v6 k4 y8 n% s% N( g( `            result = fbd.ShowDialog()
            foldername = fbd.SelectedPath
            fbd.Dispose()
* O, q6 a/ y7 F: s4 _* X/ z& H            Return result
* t0 j! o2 T( ~, f
        End Function

7 r4 T2 d! O, u4 f% b/ _3 @# I9 j        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function

    End Class[/mw_shl_code]

admin

ufun 的 方法
( \  |# Y0 Q( }  N3 M  n  e/ ^

) H5 O6 I6 @: w0 A, a: }& A2 i( b[mw_shl_code=c,true]int
) h, k8 {$ ]- M6 _5 J+ w% b( ]        cnt = 0,
        resp;
: B) S' O( A' k5 M    tag_t
        part;
5 _5 z1 G; q' I    char
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
    UF_PART_load_status_t
        status;

    if (UF_CALL(UF_initialize())) return 1;

    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
  d. h3 m( R1 z/ x& i( @    {
        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
6 s2 F# ?8 v) w9 B        while ((resp = uc4518()) == 0)
        {
; t- N* i( f1 U' C            UF_CALL(uc4600(fname));
& g" _3 p% L2 _2 J1 ~3 S7 L6 [. P            UF_CALL(uc4575(dirspec, 2, fname, part_name));

* a+ b  Q/ z0 `+ Z            ECHO( "%d.  %s\n", ++cnt, part_name);

6 ]- @6 d1 n& W1 Z, e8 k  p) S. _$ b7 h            UF_CALL(UF_PART_open(part_name, &part, &status));
, p; C3 ^7 T2 k" O) S6 v* q            if (status.n_parts > 0) report_load_status(&status);
" C8 a" H' d3 |2 x  J4 w% d            if (!status.failed)
            {
4 v7 X  `7 h! W# g. ?                do_it();
                UF_PART_close_all();
; ~0 F  Z: i; ]- P; J! Q            }
        }

        UF_CALL(uc4548());

( x8 m" [0 d' N+ c2 d- o        ECHO("\nProcessed %d parts.\n", cnt);
7 X% q5 B% k7 c. s: E' G    }[/mw_shl_code]
" e$ v2 i9 y  H7 I