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

iPhone

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

admin

C#的  没有用NX 函数
0 K) p1 B8 Y  d* C2 o6 M' v! ]2 N+ a
$ r3 i. x0 m% F, t: n$ c5 y
- d% b; |* c! p1 W' \5 k% _: l[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
1 V7 e8 g) y# j- E
2 p0 @/ y) @, G8 @        Public Shared Sub Main()
. g3 @* _& e/ f9 _! B! |6 H
            Dim theSession As Session = Session.GetSession()
* j- {& P6 U9 g  ?5 P            Dim lw As ListingWindow = theSession.ListingWindow()

            Dim foldername As String = ""
( x3 I. }' B) h            lw.Open()
            If (select_directory(foldername) <> DialogResult.OK) Then
/ U8 F( {- |8 i% [9 {% c) x$ }& ]                lw.WriteLine("Input canceled...exit" & vbCrLf)
) h5 J' X5 `) \7 C& V                Return
) t" H; ^; u& S7 v' y% ~" g) q. }            End If
- i1 b& G/ g+ i( E
, H3 g+ V0 Q' \: L& I1 z+ m            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
' a2 a( @& d1 |            Dim fsi As FileSystemInfo

/ k# N- h" o' k% A2 z            lw.Open()
            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)

4 \9 b3 Q8 ~( E; w+ y; B5 Z3 }) j            For Each fsi In dir.GetFileSystemInfos()
                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
; Y. J! p% ~' l8 b                    Dim f As FileInfo = CType(fsi, FileInfo)
                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
' _# j$ f! i0 m  x            Next fsi
  p1 n. N2 k$ S
        End Sub

5 s' I, q" g: w5 |8 `: L9 Q5 S        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
  H& y6 K9 {' I9 N6 G            Dim result As System.Windows.Forms.DialogResult

' V9 P( `/ n* @$ d3 `- x            fbd = New System.Windows.Forms.FolderBrowserDialog()
            fbd.Description = "Select directory to check"
5 W$ l0 f# X, J            fbd.ShowNewFolderButton = False
7 z) y7 _# S( x6 v" ~, O1 E  R            ' start browsing at Desktop folder, uncomment for any other default directory
* b  t+ M; h' \+ f9 r            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
; i+ G5 V, Z, R- r; k            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
$ m1 J- R" X  d. z' r            ' fbd.SelectedPath = "c:\aaa\bbb"
# e5 G; `( S- c7 O3 o) b            result = fbd.ShowDialog()
+ I9 K( R7 F, V# l% A- P            foldername = fbd.SelectedPath
* u8 B( r% y& y5 e6 X# @8 x            fbd.Dispose()
! T8 c. U$ @1 l# Y2 v. _            Return result
0 `5 R4 k1 x) @9 ]
+ q: P- Q8 j! J( K        End Function

  _2 j8 s, F& o/ f. o8 A        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
4 _" Y" a1 d8 Y5 R, i# [        End Function
5 F3 A7 U8 Q5 o" }- f# [
    End Class[/mw_shl_code]

admin

ufun 的 方法
- c5 z1 b# g0 p5 G* ]# u4 ^* i6 {
8 d" ^' F% F8 a7 ~! R/ \/ X3 D
[mw_shl_code=c,true]int
        cnt = 0,
        resp;
    tag_t
2 ?7 a! w2 r! O: D9 x0 `. p        part;
    char
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
    UF_PART_load_status_t
        status;
( }, t6 s9 r  ^
    if (UF_CALL(UF_initialize())) return 1;
2 I( A3 r1 L" v8 h* q
    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
    {
        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
        {
$ a  [3 \5 F6 h4 J5 B- M) {+ k& B            UF_CALL(uc4600(fname));
            UF_CALL(uc4575(dirspec, 2, fname, part_name));
& D$ I/ c3 w+ c/ D  ]5 u
3 o1 t. h6 n6 y! B6 g  c; ?            ECHO( "%d.  %s\n", ++cnt, part_name);
  X3 H" \" T; @: f; P" s  }  M  f
, S* O1 u5 o1 H% C8 P% B, }. }9 x$ P            UF_CALL(UF_PART_open(part_name, &part, &status));
            if (status.n_parts > 0) report_load_status(&status);
6 }) O- k# ?  Z5 G+ G8 \& f# O8 I            if (!status.failed)
' s" t2 p/ {+ H            {
                do_it();
  J7 b  D- X  ]) s$ [$ @                UF_PART_close_all();
            }
        }

% d* Z* V+ [- K4 N        UF_CALL(uc4548());
  v' i" }& V. z/ r
        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]