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

iPhone

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

admin

C#的  没有用NX 函数


& b7 e9 k$ J) R/ N[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
" V; v$ [+ x" L9 D
        Public Shared Sub Main()

# P+ j$ }% d+ k* y' a; ~8 G  |4 s3 N7 H            Dim theSession As Session = Session.GetSession()
            Dim lw As ListingWindow = theSession.ListingWindow()

# k% z* [1 N! S% _; k+ P            Dim foldername As String = ""
            lw.Open()
. Z4 F- p- {# e3 E            If (select_directory(foldername) <> DialogResult.OK) Then
                lw.WriteLine("Input canceled...exit" & vbCrLf)
. ~6 w/ S; Z& E# N" M                Return
            End If

            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
* x5 y9 T. K: V8 E/ F! _. W7 u            Dim fsi As FileSystemInfo

            lw.Open()
            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)
6 \- p; M; K  _, d: g$ p1 b0 W1 @
            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 ]  w. ^, w& W$ _; m5 ~( r                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
; Z! c) v* b! I$ c2 K                End If
8 e0 p5 E6 x% d            Next fsi

# v# Y* ]5 q+ {4 }1 Y        End Sub
4 R$ R; k$ J" @5 c2 x; p3 w
  Y9 u( G5 G/ d" @& ~* P        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

& j! ]" i/ j7 x) f4 T5 J            Dim fbd As FolderBrowserDialog
* I" L1 D4 y& n% G) K            Dim result As System.Windows.Forms.DialogResult

            fbd = New System.Windows.Forms.FolderBrowserDialog()
            fbd.Description = "Select directory to check"
            fbd.ShowNewFolderButton = False
            ' start browsing at Desktop folder, uncomment for any other default directory
4 m# @+ l: `( D! O0 X1 E# a) `- F9 N            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
            ' fbd.SelectedPath = "c:\aaa\bbb"
( A) |0 K. I/ Z( v) c            result = fbd.ShowDialog()
            foldername = fbd.SelectedPath
% ]  G# u' e! _            fbd.Dispose()
( c$ Y  Q; ^+ U: Y  `. ?7 s            Return result
' t5 e8 F* U1 X* d" b, s, y
        End Function

# p. u8 y* a+ `. s: D        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
. D! w8 {0 ]* x9 Z        End Function

    End Class[/mw_shl_code]
8 U% N' E4 Z' S, J  R. p  _$ u

admin

ufun 的 方法


3 U' |3 A8 Q7 f( K[mw_shl_code=c,true]int
        cnt = 0,
        resp;
    tag_t
        part;
    char
; u, `# L9 L$ L- \7 p+ `        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
% P. x0 x/ A5 m6 R. c        part_name[MAX_FSPEC_SIZE+1];
    UF_PART_load_status_t
  H7 G9 J7 S2 `0 s2 b  o& \        status;
! l7 I2 p3 ^1 N
    if (UF_CALL(UF_initialize())) return 1;
8 ?' T# ]5 @1 Y; T% t' j9 i2 P
    while (printf("Enter directory path:\n") && gets(dirspec) &&
6 T' B& M! Z5 f$ q! v        strlen(dirspec))
/ N/ O# Y3 h, c( q7 I0 L    {
, i! \4 b' E9 C" a8 i4 \- Q% Y        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
) e# f: J( f) u; H5 |( H        {
            UF_CALL(uc4600(fname));
            UF_CALL(uc4575(dirspec, 2, fname, part_name));

            ECHO( "%d.  %s\n", ++cnt, part_name);

            UF_CALL(UF_PART_open(part_name, &part, &status));
6 V# N- b* q* j; \! s! A            if (status.n_parts > 0) report_load_status(&status);
+ U' P8 i( {' C4 v1 K7 K8 E* r3 v            if (!status.failed)
            {
7 V" Y5 E7 D) B$ D4 A                do_it();
* J. C* ]0 H3 ]0 G6 O, H. |& r                UF_PART_close_all();
            }
, U( A4 G+ `8 a" T) a- V" p% b        }

        UF_CALL(uc4548());
) W4 a0 G, j* B/ W5 r* E5 i" P$ t
9 A4 Z% s" l# y; C! \        ECHO("\nProcessed %d parts.\n", cnt);
% w; q1 a! E' B# j    }[/mw_shl_code]