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

iPhone

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

admin

C#的  没有用NX 函数


[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
/ D! M9 H) k: X
        Public Shared Sub Main()
) c. r! n9 Z+ g; T  h, Z
            Dim theSession As Session = Session.GetSession()
            Dim lw As ListingWindow = theSession.ListingWindow()
1 Y2 J7 _! p& i  R) D1 S. x1 Y
1 I2 m" d; l9 c8 y3 N            Dim foldername As String = ""
            lw.Open()
3 ^2 L+ |! N7 e, u4 f6 `            If (select_directory(foldername) <> DialogResult.OK) Then
, e- n' i( U2 F$ C* \% J9 Q$ J                lw.WriteLine("Input canceled...exit" & vbCrLf)
6 H. X! i& i! U- E6 `. W                Return
            End If
# g4 }7 c" u3 J: [- N
            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
6 F" q0 X( v. J  R. ^6 `) }            Dim fsi As FileSystemInfo

! \% t: u6 R+ l+ n2 ?            lw.Open()
            lw.WriteLine("Parts in directory: " _
' T# Q. H4 w: V, N" m% k6 K' A' a- ?              & Path.GetFullPath(dir.ToString()) & vbCrLf)
4 _5 I) _& G  m' s  E* ]' V
4 y2 K& N3 A& R2 M$ m9 Y$ [            For Each fsi In dir.GetFileSystemInfos()
/ f% j6 g1 D9 S: v9 ~                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
                    Dim f As FileInfo = CType(fsi, FileInfo)
                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
% B6 B' Q2 M6 ]% s' \  T# s            Next fsi
4 e" C, i, r' u2 ^! r" h
$ K, u: {! D6 s' r        End Sub
$ q8 @# t( n% m2 B: U7 C
# f. g( r, q* h2 N2 w0 l, E        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

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

9 k) W7 {( P8 z# P            fbd = New System.Windows.Forms.FolderBrowserDialog()
3 Q2 W/ v, ~5 Y& g; g% r4 W- _% j            fbd.Description = "Select directory to check"
7 A3 R4 p1 R; m$ Q8 b# Y            fbd.ShowNewFolderButton = False
! }# i3 Y3 i+ Z0 [! o            ' start browsing at Desktop folder, uncomment for any other default directory
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
7 r9 ]- v" h6 b6 o  n' ~            ' fbd.SelectedPath = "c:\aaa\bbb"
            result = fbd.ShowDialog()
  ~( [# Z; F  V            foldername = fbd.SelectedPath
5 A- c( v; x$ G- b            fbd.Dispose()
            Return result
) ^2 \. i5 B+ E4 d( Q
        End Function
8 C/ ^# p6 A6 E, `- t5 R
        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function
( i( y. G) h. ^$ |+ S  Z* C
+ b4 g0 s& ~6 ~* z& B- {2 T    End Class[/mw_shl_code]
2 O3 X: a* o! A  @" L- y

admin

ufun 的 方法
: V7 _) Z. x  x/ H' R8 W3 D1 |2 ]

[mw_shl_code=c,true]int
, F) z/ e% Q1 _# q        cnt = 0,
        resp;
, i2 |0 k2 j$ L1 I- l  a    tag_t
        part;
    char
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
+ q1 R& t. R( d- b8 b+ @0 J0 L- S        fname[MAX_FSPEC_SIZE+1],
        part_name[MAX_FSPEC_SIZE+1];
5 P/ r8 p# {: x    UF_PART_load_status_t
% \0 A! t' Q# w# u        status;

    if (UF_CALL(UF_initialize())) return 1;

    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
    {
  e( \# ?+ F& B: f: s; V" K        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
. n4 j  ]0 i0 O, x4 b+ i6 g        while ((resp = uc4518()) == 0)
3 p- ^& n6 |- w" w+ \' ?; h        {
6 C; n  [6 D0 ?, d) v7 ~6 \4 j            UF_CALL(uc4600(fname));
            UF_CALL(uc4575(dirspec, 2, fname, part_name));

1 A$ {' b7 B5 v1 P" S7 s            ECHO( "%d.  %s\n", ++cnt, part_name);

8 i* @1 ]; D1 {2 O            UF_CALL(UF_PART_open(part_name, &part, &status));
            if (status.n_parts > 0) report_load_status(&status);
            if (!status.failed)
            {
, p; S, B* ~( Z: S+ J" T                do_it();
7 r4 B2 B2 g0 R9 L3 c                UF_PART_close_all();
            }
        }

6 X- s6 O% `6 T) N5 S8 m        UF_CALL(uc4548());
3 G  J9 w5 ?) _0 y2 b9 a# C$ X: c
5 p3 T. H" P1 {* L        ECHO("\nProcessed %d parts.\n", cnt);
    }[/mw_shl_code]