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

iPhone

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

admin

C#的  没有用NX 函数
* L5 N. O6 R4 |% F+ o  Y
" s. {# ]9 f# h; z  {" M
[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
$ _; i% a1 v6 T" h+ ?2 F
* \1 V# Z! Z  q6 O6 q* X        Public Shared Sub Main()

) z# ?4 q; a8 C) D            Dim theSession As Session = Session.GetSession()
            Dim lw As ListingWindow = theSession.ListingWindow()
+ o6 w" j" K( q$ a0 |
            Dim foldername As String = ""
8 Y1 S3 i$ ]% A. y* }            lw.Open()
            If (select_directory(foldername) <> DialogResult.OK) Then
                lw.WriteLine("Input canceled...exit" & vbCrLf)
( C& C) F- B3 \4 g. ?2 {& o5 m                Return
            End If

2 O5 ]$ Q4 t2 n6 `            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
* ]5 O- R  }; Z# v6 G/ e            Dim fsi As FileSystemInfo

; L* k+ ]; I- G0 o4 J5 u            lw.Open()
            lw.WriteLine("Parts in directory: " _
2 Q  L$ K8 ^* O+ v0 k, Y6 C, F/ D8 M              & Path.GetFullPath(dir.ToString()) & vbCrLf)

            For Each fsi In dir.GetFileSystemInfos()
0 f$ k. y$ c7 @$ B# X                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
- g# z7 j& N9 K& W) P                    Dim f As FileInfo = CType(fsi, FileInfo)
' Y- V6 E5 G) R; n                    Dim size As Long = f.Length
6 O- j# J, `5 y: \& G  O                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
$ y5 x) J8 e& Y6 t# j6 B                End If
7 y5 l- G8 H3 Q+ a/ r* [            Next fsi
8 U) O) x5 G( v
        End Sub

* C9 Y. D6 w2 W' y' ~* X$ @        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

) E, R9 J) t% p            Dim fbd As FolderBrowserDialog
            Dim result As System.Windows.Forms.DialogResult
( H0 P  \" @  t2 p
            fbd = New System.Windows.Forms.FolderBrowserDialog()
2 S* a1 e8 J* o: x. O            fbd.Description = "Select directory to check"
( {! H, B& S1 U6 B) N7 v( p! v0 Y            fbd.ShowNewFolderButton = False
: D% {+ t& G; f, F! \            ' start browsing at Desktop folder, uncomment for any other default directory
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
& U2 `! C3 |4 E9 `1 }6 o            ' fbd.SelectedPath = "c:\aaa\bbb"
            result = fbd.ShowDialog()
3 f5 A1 E" S8 K  J& z$ [9 Y' j9 o! O            foldername = fbd.SelectedPath
            fbd.Dispose()
            Return result
5 @0 {  D8 ?# \& `9 |8 t3 n
7 [" u! }: j- |4 k1 t        End Function
' Z8 g% \* f; ^. g
: F! P7 P9 N5 _  T6 R: ]        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
6 W$ g' B1 Q- d        End Function
9 k: b* Z2 U: m
+ d* T6 m& P. _" ]# D6 g    End Class[/mw_shl_code]

admin

ufun 的 方法


[mw_shl_code=c,true]int
1 K; d4 Y' x0 t3 B        cnt = 0,
        resp;
    tag_t
2 U+ B9 f( Y5 v) I9 H        part;
    char
+ c8 O: H! N( q' q3 h! Q8 Z7 V        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
    UF_PART_load_status_t
6 j5 j% w3 H8 e% m, S. k        status;

- v8 P8 {% C3 r4 z7 i* k- c    if (UF_CALL(UF_initialize())) return 1;

0 w% q4 z; Z" d  y/ c- C    while (printf("Enter directory path:\n") && gets(dirspec) &&
" p5 m8 x8 A% s" s2 C        strlen(dirspec))
& c5 |) ~8 L, j/ U. K  }& f    {
) k+ Z) e1 S  o# z7 v3 d        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
2 _' X5 M3 k/ d+ s        {
            UF_CALL(uc4600(fname));
+ X1 G# E, g. l+ ~            UF_CALL(uc4575(dirspec, 2, fname, part_name));
/ X- z( Q" u. X4 o$ G9 s. g4 I' J
1 v: ]9 j& {, a$ G* X# ]8 W            ECHO( "%d.  %s\n", ++cnt, part_name);

            UF_CALL(UF_PART_open(part_name, &part, &status));
            if (status.n_parts > 0) report_load_status(&status);
5 U* S  U9 X: p6 O  A            if (!status.failed)
- T+ ]* s9 v  a9 ]& t& s) E; y            {
6 E- P. c" @3 I) w2 `5 Y9 f1 V                do_it();
' w% ], r& @9 L, R# ], J. N                UF_PART_close_all();
( z* \4 O/ ^8 O( i7 B+ d            }
        }
. c/ R1 @0 E) Z6 {4 g% C+ W9 d
        UF_CALL(uc4548());
. M& {5 P; V0 T2 b
        ECHO("\nProcessed %d parts.\n", cnt);
* G0 G2 G* Y8 y8 a4 Z  @2 K5 J0 X    }[/mw_shl_code]