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

iPhone

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

admin

C#的  没有用NX 函数

. `& c- y5 Y5 {0 y2 d& s
[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory

3 j% F9 g6 w6 O  d0 c9 Y2 l        Public Shared Sub Main()

" Y" Y  N- m+ c0 F/ j9 }" r            Dim theSession As Session = Session.GetSession()
            Dim lw As ListingWindow = theSession.ListingWindow()
+ k) P( r7 g/ F; H) s( p
! W, O/ v. E3 D- p            Dim foldername As String = ""
            lw.Open()
! u  X& V- c* G# t6 ]            If (select_directory(foldername) <> DialogResult.OK) Then
) |# }  ]3 a; t, q+ p                lw.WriteLine("Input canceled...exit" & vbCrLf)
0 u+ V3 @4 H0 z; m! T                Return
            End If

) t) H) L& M% F+ c* e# F            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
            Dim fsi As FileSystemInfo
( ^8 i7 b3 a4 V1 V+ J
: g* ?  i# m, g+ {2 @            lw.Open()
            lw.WriteLine("Parts in directory: " _
( |* A: y! {4 e0 F: \1 u8 t; H7 p              & Path.GetFullPath(dir.ToString()) & vbCrLf)

            For Each fsi In dir.GetFileSystemInfos()
  |; [: |  X  b5 Z: }4 _                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
% X$ [% g) a* y; P0 Y3 M                    Dim f As FileInfo = CType(fsi, FileInfo)
6 r- r* w9 t$ D) z# o                    Dim size As Long = f.Length
2 g2 G# ~: B( P( c& V1 U, b/ l3 Z                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
  H' A) r. ^# l6 Z% x! R+ f4 M                End If
% F  p) ~. E: b            Next fsi
# s; X+ J& t0 j  [* r/ _4 m" {" G
+ G9 b7 X% M$ n/ J5 @4 l4 p* J7 x# c9 J        End Sub
+ `* R. m3 Q0 h9 c; r
$ \( G# W) P( n) `        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
& I8 p9 V* l$ U; N- u0 m" e& p  \            Dim result As System.Windows.Forms.DialogResult
) w% ?$ G$ E  C! V, N- z; {% J
$ ?1 f6 j$ z, K8 p            fbd = New System.Windows.Forms.FolderBrowserDialog()
            fbd.Description = "Select directory to check"
            fbd.ShowNewFolderButton = False
8 s) o' I8 o8 A9 |            ' start browsing at Desktop folder, uncomment for any other default directory
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
! U4 l' [0 P7 k6 a+ R            ' fbd.SelectedPath = "c:\aaa\bbb"
5 w: I9 o" e$ A% \- s. M# t            result = fbd.ShowDialog()
5 x$ |% \- G  ]9 x# q& b            foldername = fbd.SelectedPath
+ {8 ~' b& L5 W1 ^& g            fbd.Dispose()
1 s7 |/ l  g/ \5 T            Return result

        End Function

* ^; `7 t$ B5 P4 ^6 X* W        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function

    End Class[/mw_shl_code]

admin

ufun 的 方法
" I4 d3 q% U! s0 U

[mw_shl_code=c,true]int
        cnt = 0,
        resp;
    tag_t
3 S! @; G5 \$ D4 [7 v7 ]        part;
' Y; ~/ l( F1 h3 _    char
) D) h0 m- q( e+ K! O- c# J        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
    UF_PART_load_status_t
        status;
: J. n" z- E6 s8 z$ N# M% T4 i
" t* X8 ]8 r1 p0 D, L    if (UF_CALL(UF_initialize())) return 1;
2 e* z( }# H: g( ^
$ o* I. |# ]2 `; r( A( w; `    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
    {
- v/ S* n# f7 k( c        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
# t% \" t. _8 ?: l( s- ?        {
            UF_CALL(uc4600(fname));
! |0 }: k8 a* X1 h0 y4 B! E. l            UF_CALL(uc4575(dirspec, 2, fname, part_name));
& }4 D7 Q" b8 k  X2 a$ S% W
5 Z/ Z3 g0 h. i, z; v; C, m            ECHO( "%d.  %s\n", ++cnt, part_name);
& g& j% F, C0 z5 `
            UF_CALL(UF_PART_open(part_name, &part, &status));
( {, D& _) h- V* n% j6 D            if (status.n_parts > 0) report_load_status(&status);
            if (!status.failed)
            {
/ Y' ~5 l; |9 a( M' R% r5 O                do_it();
                UF_PART_close_all();
4 W  I5 S$ [: H$ L5 P, v/ \            }
        }
5 Z+ w8 Y+ y# S" k
        UF_CALL(uc4548());

        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]
' j& w) F, i4 f8 s5 D