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

iPhone

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

admin

C#的  没有用NX 函数

  Z' Y. ^+ f* ~7 q
[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory

        Public Shared Sub Main()

            Dim theSession As Session = Session.GetSession()
! @, v& p4 y) q4 D/ c            Dim lw As ListingWindow = theSession.ListingWindow()

            Dim foldername As String = ""
1 B; d" Q1 y( [/ C            lw.Open()
# L# P/ C7 M& |# b3 e            If (select_directory(foldername) <> DialogResult.OK) Then
                lw.WriteLine("Input canceled...exit" & vbCrLf)
                Return
            End If
& r/ n1 m2 O6 |: P, b$ O, a
8 T* }2 T4 X  U' q            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
/ b3 R; L2 R' W5 _$ `            Dim fsi As FileSystemInfo

4 R! d7 E$ F0 S2 u            lw.Open()
            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)

8 ?  M4 `) s; s, p: C* V% L% Z            For Each fsi In dir.GetFileSystemInfos()
( z+ u4 s8 M, E; ~3 k                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
+ }6 o$ S6 e, I% O) n6 c8 o                    Dim f As FileInfo = CType(fsi, FileInfo)
6 j! R' W% M! ^0 ]9 V                    Dim size As Long = f.Length
' G7 D2 O+ L: P9 S5 X9 J$ K7 `* e; o/ {                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
: o& L3 f* Y( Y7 J            Next fsi

        End Sub

, T! `7 i; u/ J        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult
! Z( }9 \$ ~5 x) J
, `, f( z3 g$ r, U. {3 H5 I            Dim fbd As FolderBrowserDialog
            Dim result As System.Windows.Forms.DialogResult

            fbd = New System.Windows.Forms.FolderBrowserDialog()
* h( O% ~, Y# D, K9 {$ I. ^1 R            fbd.Description = "Select directory to check"
            fbd.ShowNewFolderButton = False
            ' start browsing at Desktop folder, uncomment for any other default directory
2 W  [! Z% P: L            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
  w- c" Q7 o+ B' ^+ j1 G/ N! ]            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
            ' fbd.SelectedPath = "c:\aaa\bbb"
            result = fbd.ShowDialog()
            foldername = fbd.SelectedPath
            fbd.Dispose()
8 g5 J& U5 r0 q  b, B7 f$ ?1 d            Return result

! }6 a  C/ B& A  r9 z3 U! r6 C        End Function
* `! M, A! D. I3 P
        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
) B% U, H( @, g! \& U        End Function

, j+ B, s# r* X( C& Z. C    End Class[/mw_shl_code]
" P/ R+ E) }# P7 r( s( W

admin

ufun 的 方法


[mw_shl_code=c,true]int
" A' U: l/ W6 M0 s2 ~        cnt = 0,
; V8 a/ M6 ^1 k, z* o8 e: X8 p        resp;
  y& [* r, _+ C9 [3 m    tag_t
        part;
( h0 X- U5 s  z4 n  J7 R+ Z9 u$ ]    char
& d) Z9 S: j: c' i5 K; t        dirspec[MAX_FSPEC_SIZE+1] = { "" },
" k8 }/ C( f% c        fname[MAX_FSPEC_SIZE+1],
+ q  o7 u# c* A2 [( J+ c3 J7 F+ Y        part_name[MAX_FSPEC_SIZE+1];
    UF_PART_load_status_t
% S- m" h2 [( _) y5 i. I  {5 W! Q        status;

3 V* r7 x+ P$ y4 c/ P9 b! `9 v    if (UF_CALL(UF_initialize())) return 1;
0 _+ ?7 W; \% G% n
    while (printf("Enter directory path:\n") && gets(dirspec) &&
' w4 J$ e6 d7 [* p3 a8 I        strlen(dirspec))
, d" S8 M! S. ]6 M& p* M1 ^, W    {
        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
        {
" J" W0 a( @/ E7 |) H            UF_CALL(uc4600(fname));
7 W0 V  N+ H4 v            UF_CALL(uc4575(dirspec, 2, fname, part_name));

2 r/ u) i0 h; g8 ?1 y& s' J3 x) X            ECHO( "%d.  %s\n", ++cnt, part_name);
2 y4 a* d+ p' Z1 D0 C' q' p& `% l
            UF_CALL(UF_PART_open(part_name, &part, &status));
8 W6 g$ O( @0 |* @; T            if (status.n_parts > 0) report_load_status(&status);
/ d3 j5 z+ y$ y8 F/ I            if (!status.failed)
            {
3 b5 L) }# U0 m3 p                do_it();
                UF_PART_close_all();
- y  `$ [- K5 v. i, b- ?  y1 ~6 x            }
+ g9 `2 U! m  j0 _( O% r        }
2 a  C7 i! \8 S- Y/ f8 c1 d8 H
        UF_CALL(uc4548());
4 n* ]5 l3 {1 I. Q, _2 G
        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]