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

iPhone

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

admin

C#的  没有用NX 函数


[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
6 L" ~9 A' |- v7 e( t% j
        Public Shared Sub Main()
, e$ R9 @4 P. q% d! y( p1 d) a
: s6 K6 d, R: Q1 g2 a. u            Dim theSession As Session = Session.GetSession()
% o& |# d" c/ T+ Z, ]; Y5 i            Dim lw As ListingWindow = theSession.ListingWindow()

: m: d2 ~+ K+ h1 l4 A            Dim foldername As String = ""
            lw.Open()
* R, q+ o" X( J8 n$ B( j* F! }& f            If (select_directory(foldername) <> DialogResult.OK) Then
                lw.WriteLine("Input canceled...exit" & vbCrLf)
9 C/ I& `9 e; i6 W1 Q3 q                Return
            End If

5 s, n: p2 g  l2 @' o2 l            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
            Dim fsi As FileSystemInfo
) O+ f; ^4 ^7 d8 p+ t: \
6 k% V5 J) |' I: ?            lw.Open()
. I0 |, m$ n  @( d7 U0 o, }            lw.WriteLine("Parts in directory: " _
  p1 Q, c& r/ n; d3 G              & Path.GetFullPath(dir.ToString()) & vbCrLf)
" R7 |" e1 i( E
" i! p" b) B5 ~. ?4 a- L            For Each fsi In dir.GetFileSystemInfos()
( M+ G' t. O3 r: R! }# }                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
                    Dim f As FileInfo = CType(fsi, FileInfo)
, X. u2 O6 `9 B1 C5 Q6 A% E                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
' `) a; n7 |8 u) G* c$ Y            Next fsi
" U; J' ^( X  A$ W+ y: j  y
        End Sub

9 X. `' j6 L6 T7 J4 w        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
            Dim result As System.Windows.Forms.DialogResult
4 P# D; q) b; t; S2 F( G
) g( {& A; k+ t( {& ]8 G            fbd = New System.Windows.Forms.FolderBrowserDialog()
/ Q1 p% N3 x9 v9 \- M            fbd.Description = "Select directory to check"
            fbd.ShowNewFolderButton = False
            ' start browsing at Desktop folder, uncomment for any other default directory
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
            ' fbd.SelectedPath = "c:\aaa\bbb"
            result = fbd.ShowDialog()
            foldername = fbd.SelectedPath
            fbd.Dispose()
            Return result

        End Function
1 N  ~, s8 s2 g9 s! f
        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
) }$ b1 z- h' Y        End Function

    End Class[/mw_shl_code]
0 O. b! A0 B! F8 D& h

admin

ufun 的 方法

, c* M0 r! k' e9 K0 a  V: y
( T6 H: o- M8 X% G! X[mw_shl_code=c,true]int
# F2 k! `( T; ?        cnt = 0,
        resp;
    tag_t
        part;
    char
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
% v" Y0 o' ?7 e2 l3 ]2 f$ J8 v  p7 T: t$ _    UF_PART_load_status_t
# k, k/ _: I$ {% s7 N! Q        status;
8 B7 E7 Q+ ^% U) Q
6 F2 J3 a7 J/ ?( @3 w% M    if (UF_CALL(UF_initialize())) return 1;

5 `- b1 S- d! {8 C4 _1 }    while (printf("Enter directory path:\n") && gets(dirspec) &&
+ x$ Z+ }7 R' R        strlen(dirspec))
    {
        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
9 X; f" F+ v0 M        while ((resp = uc4518()) == 0)
; X# O& N1 u; }+ b7 k        {
7 V' W% F( E/ G1 V            UF_CALL(uc4600(fname));
: S0 q' x8 s- b, A% F            UF_CALL(uc4575(dirspec, 2, fname, part_name));
: C1 F- u/ T- o: S
            ECHO( "%d.  %s\n", ++cnt, part_name);

" K4 r/ B% `9 A+ O+ S' \5 k            UF_CALL(UF_PART_open(part_name, &part, &status));
            if (status.n_parts > 0) report_load_status(&status);
            if (!status.failed)
& K- \5 A9 o* F5 x+ f            {
# X, W; ]8 y% x8 w% C; d1 d1 n                do_it();
' x, A9 A7 D2 S8 S+ |' d                UF_PART_close_all();
            }
& {& G; D& x3 D1 f2 m7 z        }

        UF_CALL(uc4548());

, |& q# ^* F2 @5 N: L# S2 C; v        ECHO("\nProcessed %d parts.\n", cnt);
, R% k/ h% T* M. h; Q* m' z+ [    }[/mw_shl_code]
9 q( w% z! n/ q5 Q6 `