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

iPhone

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

admin

C#的  没有用NX 函数

4 |) ]5 d( R7 t) b& J
/ K) J2 q7 j& L+ R[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
/ q, F# G7 @7 n9 @
        Public Shared Sub Main()
8 I( G7 t) i2 T
            Dim theSession As Session = Session.GetSession()
8 ]% w  ^7 V$ P9 M( v            Dim lw As ListingWindow = theSession.ListingWindow()

# C+ P2 o( O/ F: O            Dim foldername As String = ""
; v5 w6 \3 s$ ?3 l- C* F            lw.Open()
            If (select_directory(foldername) <> DialogResult.OK) Then
/ Q  V  ~, J8 T9 P) v2 e  {                lw.WriteLine("Input canceled...exit" & vbCrLf)
) d; l, _) \9 n" z: l, F                Return
            End If

$ U1 n5 z9 w! y* }            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
1 @: ]. v  g2 n2 {7 K4 P            Dim fsi As FileSystemInfo

. k" @% g4 O) l5 h$ x* R) ]4 m            lw.Open()
( F6 i5 h* z! ]6 i8 _+ }            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)

4 l  I6 U$ @5 o. R            For Each fsi In dir.GetFileSystemInfos()
+ p7 n' M+ Y2 {8 x, M5 L8 I                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
1 G# g2 E( F9 U% T; \( w                    Dim f As FileInfo = CType(fsi, FileInfo)
                    Dim size As Long = f.Length
: i" j* H2 i9 O0 V  p                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
            Next fsi
  B& H% @  i' }; l' b
        End Sub

        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
: D, }* g; e2 `9 d% u/ D9 u1 b4 x6 q            Dim result As System.Windows.Forms.DialogResult

. M. [* n- v# ^" D8 Q* t            fbd = New System.Windows.Forms.FolderBrowserDialog()
            fbd.Description = "Select directory to check"
8 C* O) p: Y! n9 D: `) f" V            fbd.ShowNewFolderButton = False
, Q' p; a) h) g* E6 x' g            ' start browsing at Desktop folder, uncomment for any other default directory
& t9 \8 v! p6 S& A& n- l, F/ U- ?9 y9 H            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
9 q% P3 g3 ]( }( }" @# c; l            ' fbd.SelectedPath = "c:\aaa\bbb"
, }' @/ \; c% Y" r            result = fbd.ShowDialog()
3 |4 w4 C; k/ @9 [' N1 j            foldername = fbd.SelectedPath
            fbd.Dispose()
1 I4 W9 n+ {7 v& j            Return result
0 U" u, }7 F6 w% i. v
        End Function

( i5 H1 r* y. k( c6 y! {; g- i+ i        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function
+ X1 e( y+ X/ b& a/ ]8 I% o+ d% x
; ?) a0 ~! s! k) N$ S3 ]% e6 P    End Class[/mw_shl_code]

admin

ufun 的 方法
+ n. a' m% F$ T* M% X( U
% |( N- S. v1 c2 Z
7 g! Q/ |1 r% l) B- C[mw_shl_code=c,true]int
        cnt = 0,
        resp;
    tag_t
. o* c! a2 X' m% w0 ?        part;
    char
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
% B1 e9 I+ e# ?/ C. w        part_name[MAX_FSPEC_SIZE+1];
( ]0 T6 C3 ]6 Z: {. n3 g    UF_PART_load_status_t
: T0 n7 N! n: J* A0 Y        status;
# I( J: H+ n4 O' `% Q" h9 [4 `8 [
    if (UF_CALL(UF_initialize())) return 1;

    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
6 M7 ?( l6 _) h' I- A    {
2 x3 D, Q" y1 I        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
* l7 Q8 S( T6 @* A& ?        {
            UF_CALL(uc4600(fname));
$ ^$ a: j/ [% o- C# k- _" c4 G            UF_CALL(uc4575(dirspec, 2, fname, part_name));

            ECHO( "%d.  %s\n", ++cnt, part_name);
2 n) X6 b4 {$ `, i, b% W
            UF_CALL(UF_PART_open(part_name, &part, &status));
. K4 d* \* l( \* w: u            if (status.n_parts > 0) report_load_status(&status);
            if (!status.failed)
            {
                do_it();
                UF_PART_close_all();
            }
7 T, ]: b, w2 J- n3 R  A* r        }

        UF_CALL(uc4548());

        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]
( y6 n( ~% C" n& c" @' I- K