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

iPhone

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

admin

C#的  没有用NX 函数
6 v; W9 s$ @! C  N1 Z

[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
  f) V3 c6 X$ b0 w* I) }3 o# }
- Y6 D) A& ^2 h        Public Shared Sub Main()

& ]; I. {! y& S0 a$ N" e' t            Dim theSession As Session = Session.GetSession()
; p! i( S) W6 m" K3 t            Dim lw As ListingWindow = theSession.ListingWindow()
  O5 k; s% u- r$ X2 o& e$ j4 u
8 V* u( g& E8 o6 ^5 @0 D# `* G2 c            Dim foldername As String = ""
            lw.Open()
            If (select_directory(foldername) <> DialogResult.OK) Then
- @# p5 d1 k# a                lw.WriteLine("Input canceled...exit" & vbCrLf)
/ Y3 u1 ~/ ]7 J1 }7 M                Return
" G+ U/ g/ X" E3 }            End If

            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
            Dim fsi As FileSystemInfo

            lw.Open()
# v$ H4 a3 o* \$ I. F6 o            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)

            For Each fsi In dir.GetFileSystemInfos()
                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
4 \( R2 ?) _2 X                    Dim f As FileInfo = CType(fsi, FileInfo)
                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
                End If
            Next fsi

1 }0 u& r2 p& V" l3 h        End Sub
* h1 p1 c/ F+ t+ z* j/ P. G
        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult
4 J: A3 S3 C% c
2 q2 M0 J% x9 t" c            Dim fbd As FolderBrowserDialog
  t3 W$ ^* E8 S            Dim result As System.Windows.Forms.DialogResult

            fbd = New System.Windows.Forms.FolderBrowserDialog()
            fbd.Description = "Select directory to check"
            fbd.ShowNewFolderButton = False
            ' start browsing at Desktop folder, uncomment for any other default directory
/ @3 S: s$ V5 W/ w            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
1 o# R9 |* E, I! B3 M- {) s* e            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"
            ' fbd.SelectedPath = "c:\aaa\bbb"
- R( |& q: i" Q  ~0 q3 x  s, f            result = fbd.ShowDialog()
2 T2 u! k% ?; |            foldername = fbd.SelectedPath
9 t0 N, b3 D; W( P  S$ P1 o. F/ [            fbd.Dispose()
            Return result
" g9 Q" Q6 Z9 J0 g! i2 w
5 p9 {- f1 p5 R, S5 T        End Function

        Public Function GetUnloadOption(ByVal dummy As String) As Integer
7 W* n: J" T7 Q            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
/ d) b( l& Q- f% M4 F& i        End Function
: G" f+ u' {& q$ |+ l; e
. J! P1 N8 q0 K5 j! E    End Class[/mw_shl_code]
' n. @: |, U: S

admin

ufun 的 方法
4 Z( d4 i0 s4 e/ a
+ D0 Y0 K5 Y/ _! L, g
[mw_shl_code=c,true]int
        cnt = 0,
# ?, V9 k4 |2 _" F! t9 W- _        resp;
& g8 B/ c! M0 ], f1 b$ O; V5 E    tag_t
        part;
    char
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
+ C1 U- \- Y: t- h3 A        part_name[MAX_FSPEC_SIZE+1];
- F3 G2 i4 j' g- e- P1 \0 v    UF_PART_load_status_t
        status;

% y& i! m& h  F- }- n& Y    if (UF_CALL(UF_initialize())) return 1;

    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
    {
" |. S. J! I/ q3 Y7 L        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
        while ((resp = uc4518()) == 0)
        {
1 e: ?8 l/ ^* B) F            UF_CALL(uc4600(fname));
            UF_CALL(uc4575(dirspec, 2, fname, part_name));

( N/ d5 F% u6 W; D6 d            ECHO( "%d.  %s\n", ++cnt, part_name);

            UF_CALL(UF_PART_open(part_name, &part, &status));
, F% g$ p0 g1 c1 B2 \" o            if (status.n_parts > 0) report_load_status(&status);
7 a& W, Q7 e' I$ |* \            if (!status.failed)
) G# E9 y$ c. O, S! E' B+ v            {
6 e: n: K7 C9 ?0 H% ]! [" Z' E                do_it();
                UF_PART_close_all();
            }
        }
7 x# h7 S) m- J2 ]% p  p
. V: I  \- `$ V1 O, T        UF_CALL(uc4548());

        ECHO("\nProcessed %d parts.\n", cnt);
) Y8 S+ y. N5 G/ ~    }[/mw_shl_code]