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

iPhone

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

admin

C#的  没有用NX 函数


[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory

        Public Shared Sub Main()

            Dim theSession As Session = Session.GetSession()
2 }' [2 }$ U  P* I( k# H            Dim lw As ListingWindow = theSession.ListingWindow()
. Z% X# ?) d% M5 g8 w( [
2 ~. H) E+ C& ?8 D+ @            Dim foldername As String = ""
            lw.Open()
+ T* ?5 p4 X' W            If (select_directory(foldername) <> DialogResult.OK) Then
                lw.WriteLine("Input canceled...exit" & vbCrLf)
                Return
  u5 q. L4 W; M; h+ u  B$ \) Z: y            End If

            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
            Dim fsi As FileSystemInfo
/ S* q# h2 G, r1 V
1 t* t; T1 ?/ T0 _( b5 K            lw.Open()
            lw.WriteLine("Parts in directory: " _
# d: g4 s, A# m! w5 W# E              & Path.GetFullPath(dir.ToString()) & vbCrLf)
% I& x9 e' v' Z1 ]
            For Each fsi In dir.GetFileSystemInfos()
; ^8 Y" a" Q4 D+ k                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
                    Dim f As FileInfo = CType(fsi, FileInfo)
) u4 B- \& s7 a7 X: G                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
7 l' `* A# G, B% X( {                End If
            Next fsi

1 R, T, N+ A8 |0 p& H7 p# |  z3 U        End Sub
* G* G( h3 K* K  S, m. ]3 F4 y
0 p: \2 p. Y5 k" ^        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
            Dim result As System.Windows.Forms.DialogResult

9 u3 S, X/ g% X# Y' V/ a- k( @            fbd = New System.Windows.Forms.FolderBrowserDialog()
1 v8 o# N- C+ b4 x5 _" [            fbd.Description = "Select directory to check"
; U6 C/ K1 B5 {0 ?7 z1 W& U            fbd.ShowNewFolderButton = False
            ' start browsing at Desktop folder, uncomment for any other default directory
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
* @9 [3 _$ T( P7 `8 L/ d            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
, N2 L4 G* v% H( ^4 P/ W            ' fbd.SelectedPath = "c:\aaa\bbb"
  T% r5 m7 R7 g: Z# D            result = fbd.ShowDialog()
            foldername = fbd.SelectedPath
- n* `1 L% I8 z0 [5 I3 ^2 F3 H            fbd.Dispose()
/ |3 Q, p! e& \% x2 X( Q3 @            Return result

8 S/ u, p( A5 a" q        End Function

        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function
1 l* O* B5 a% v. T$ x
6 j4 Q+ A% ?! [4 u0 v) m3 O    End Class[/mw_shl_code]

admin

ufun 的 方法
1 @, \1 n' ^0 @1 {
: `0 p8 V( o, X4 f  l
[mw_shl_code=c,true]int
" ^/ Z9 I0 @8 ~+ f- D- w        cnt = 0,
, U# c- V' l3 O1 U6 K) |9 p        resp;
    tag_t
        part;
    char
: O: H8 H: X4 i. K( ^        dirspec[MAX_FSPEC_SIZE+1] = { "" },
+ A  _% e6 b3 \' t1 A        fname[MAX_FSPEC_SIZE+1],
( E8 H6 {5 m3 i) g( a        part_name[MAX_FSPEC_SIZE+1];
/ T/ O! |! A& S5 J6 |) c. u' F    UF_PART_load_status_t
0 R- N! N! M6 ~7 Z! ]8 @        status;
* H/ X1 E' w' X5 H# ]* o
  j* X* @: s# V    if (UF_CALL(UF_initialize())) return 1;
: s$ }9 Y( m1 [3 l0 _. a
0 N5 T# _( v  R    while (printf("Enter directory path:\n") && gets(dirspec) &&
& k# E, P8 y' f8 W% t9 h  e  G        strlen(dirspec))
6 I# a; V! N$ ?5 t    {
        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
        {
            UF_CALL(uc4600(fname));
' [1 t0 k: F& [: C2 @            UF_CALL(uc4575(dirspec, 2, fname, part_name));

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

8 h, r4 u+ _. i  A$ ^& L* W! s$ c            UF_CALL(UF_PART_open(part_name, &part, &status));
7 o& ?) z' a6 H+ x& k  Z1 F            if (status.n_parts > 0) report_load_status(&status);
& X# w& H; Y% D. N( B! v0 P            if (!status.failed)
2 ]9 X7 `9 Z: ~; p$ B3 x            {
& D, b1 |7 v- I+ X) G                do_it();
! [; n& w" b1 Q' V- }/ z1 l                UF_PART_close_all();
! L/ m% Z* }( N$ G            }
$ {. I% o- W% Z. |: }        }

5 b0 X) K% {3 E# g7 e        UF_CALL(uc4548());

        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]
; L& c+ K& i. E% N