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

iPhone

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

admin

C#的  没有用NX 函数

6 a# w+ l! B. t  Q( m4 I  b' k- U
7 l+ K! c% `1 Z+ e0 p+ `, ?: h* e& O[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory

4 B5 P$ j+ `0 T  n- f! D  K7 ?5 B        Public Shared Sub Main()
3 k' A- I4 A* \# }5 ^
            Dim theSession As Session = Session.GetSession()
            Dim lw As ListingWindow = theSession.ListingWindow()
- |" r4 h$ W( w2 J+ L7 G/ O
- H, a& e+ o7 T! c' x/ h            Dim foldername As String = ""
# D; o5 v6 u* q/ d# @            lw.Open()
            If (select_directory(foldername) <> DialogResult.OK) Then
7 m" k1 d0 U8 b% Q  M& W4 A7 |; ^                lw.WriteLine("Input canceled...exit" & vbCrLf)
                Return
            End If
# R2 u8 ?2 F% Y; H
            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
5 `5 {1 w! s% Z# I% u" J            Dim fsi As FileSystemInfo

: _$ w: K! Z; Y            lw.Open()
            lw.WriteLine("Parts in directory: " _
  U/ B/ N% x/ j/ z              & Path.GetFullPath(dir.ToString()) & vbCrLf)
( e% R6 z' `. o" U$ e5 c3 ?4 k
            For Each fsi In dir.GetFileSystemInfos()
                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
5 @+ _( {& f7 h$ a2 U4 G                    Dim f As FileInfo = CType(fsi, FileInfo)
                    Dim size As Long = f.Length
- w. \5 R, R+ v4 D+ @  v                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
0 j3 M& p7 y5 ~6 D! D                End If
            Next fsi

        End Sub
: X2 r; u( O5 q2 t: c1 ~' b
        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
" q/ s6 U4 G% P' L* O            Dim result As System.Windows.Forms.DialogResult

% C2 P* g4 c- u# q1 }/ B            fbd = New System.Windows.Forms.FolderBrowserDialog()
            fbd.Description = "Select directory to check"
  H# e, C  Y# X0 a) O9 X: K            fbd.ShowNewFolderButton = False
            ' start browsing at Desktop folder, uncomment for any other default directory
$ o& F6 l& U9 ]$ D            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
) G9 c5 T4 B6 n            ' fbd.SelectedPath = "c:\aaa\bbb"
3 Z0 U2 F) i' q+ ~6 |9 _            result = fbd.ShowDialog()
- e% J1 C/ o% c. U7 v2 H            foldername = fbd.SelectedPath
            fbd.Dispose()
            Return result

7 i( X. C5 x5 \' O2 a( s; x. E        End Function
8 T8 ~1 j. L! ]+ u" J( [+ F$ d
        Public Function GetUnloadOption(ByVal dummy As String) As Integer
) H$ n& `3 g* l; X3 l            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function
7 j: \. U9 p& s& @5 _
0 f  b8 q% l" p/ Z( K    End Class[/mw_shl_code]
% d. d# Q: D: f  V4 C1 H/ Q

admin

ufun 的 方法
" f. j4 n- o+ \* c1 j# v( M" H6 N

! x0 @  N+ Q3 t# |[mw_shl_code=c,true]int
        cnt = 0,
        resp;
    tag_t
        part;
! c) v8 |. k, e: e    char
8 I6 O# w: M4 Y        dirspec[MAX_FSPEC_SIZE+1] = { "" },
4 p6 \, q5 e( [% L8 e$ ^3 e        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
: I6 @: B. q6 {9 Y7 L    UF_PART_load_status_t
9 z) d# K- ~" [- u6 ^6 e7 d        status;

6 ^5 X$ g/ y0 h+ \# @: Z' s    if (UF_CALL(UF_initialize())) return 1;
0 Y. _$ D9 e1 U2 _0 Q$ l
2 U. [1 m- u! Z7 D! v    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
/ i/ g0 s+ H1 C: J3 E9 @. a6 x) A+ I    {
        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
# u- X2 Q2 [+ Z( z        while ((resp = uc4518()) == 0)
% @2 ^( V7 v1 [% F( C4 f: t1 E( g        {
+ u+ i0 n, {- S/ T            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));
) V9 q5 t3 P' ^$ Q5 z( U7 p            if (status.n_parts > 0) report_load_status(&status);
            if (!status.failed)
            {
1 {3 O: r; N) z7 R                do_it();
                UF_PART_close_all();
# s' i' a4 |% D/ y* X& Y: m            }
# y! g& [, f2 \" f; O  M  Z0 v        }

        UF_CALL(uc4548());

        ECHO("\nProcessed %d parts.\n", cnt);
- o) H. W% _' A! N& k    }[/mw_shl_code]
" G% K! S* d( v% @' G