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

iPhone

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

admin

C#的  没有用NX 函数

+ Z) B1 _9 D2 [$ v
6 s* v' V% R' H[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory
8 s, b- J+ A6 S2 k6 }
, z( o/ ]3 y3 o1 w0 M! |        Public Shared Sub Main()
2 h* p' I9 m8 v. S2 y1 w$ ]# o8 [
            Dim theSession As Session = Session.GetSession()
% e, ~+ }/ d6 B1 d) B) J4 U# Y            Dim lw As ListingWindow = theSession.ListingWindow()

8 f; d2 \3 _& u$ S; x            Dim foldername As String = ""
+ S, R) k/ u% ?6 W+ ~6 d            lw.Open()
3 }' Z0 T; E5 B$ R; z            If (select_directory(foldername) <> DialogResult.OK) Then
+ q7 r+ a* O, |% r# [- l- s$ y                lw.WriteLine("Input canceled...exit" & vbCrLf)
) D: K9 y6 X5 G* a+ N                Return
* _! Q* p- Q% X3 R            End If

/ U% ]3 O& c* d' M- d4 r* f3 N            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
& L6 o, ]/ e9 K6 A% c" a5 |            Dim fsi As FileSystemInfo

            lw.Open()
            lw.WriteLine("Parts in directory: " _
              & Path.GetFullPath(dir.ToString()) & vbCrLf)

            For Each fsi In dir.GetFileSystemInfos()
* g  {9 {( f+ c+ W/ `9 P" \" t; f                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then
                    Dim f As FileInfo = CType(fsi, FileInfo)
1 q5 V6 \* c9 s& b0 W" }5 ^( h                    Dim size As Long = f.Length
                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
! p: B3 r0 W8 ?                End If
            Next fsi

        End Sub
# ~& `/ n- s, e8 o7 v. D2 x0 U/ L
        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult

            Dim fbd As FolderBrowserDialog
& k- m9 B( h5 W! J% B6 x: a: M0 d            Dim result As System.Windows.Forms.DialogResult
. L6 {% i* v4 \; |& x) U: W
1 h4 ^1 @+ l0 A7 b! x            fbd = New System.Windows.Forms.FolderBrowserDialog()
- r; Y3 ?  j6 G# P2 T            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"
8 E& e7 f8 J$ g; o            ' fbd.SelectedPath = "c:\aaa\bbb"
, m) |7 ~, {7 ^" D7 D            result = fbd.ShowDialog()
            foldername = fbd.SelectedPath
+ P4 F; M. J9 n: Q5 q            fbd.Dispose()
            Return result

# ?; d% _! g) h5 Z# [) z6 ^9 x! f        End Function

        Public Function GetUnloadOption(ByVal dummy As String) As Integer
            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
        End Function

    End Class[/mw_shl_code]

admin

ufun 的 方法
& X# C  F$ K5 a; i0 F% Z  e
, T, q6 @/ m, T; V: _3 T/ A
[mw_shl_code=c,true]int
2 {% R- j- b# }( X6 E) \        cnt = 0,
        resp;
" S0 _5 o2 M. r2 C3 s* y    tag_t
        part;
    char
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
        fname[MAX_FSPEC_SIZE+1],
- B+ J: D7 e4 d) m- v# s        part_name[MAX_FSPEC_SIZE+1];
& }& \3 k" U/ F; ?    UF_PART_load_status_t
        status;
  Q; p8 N' n) y3 H0 N( V
3 g4 \* `5 F# z; y! I: K    if (UF_CALL(UF_initialize())) return 1;

    while (printf("Enter directory path:\n") && gets(dirspec) &&
        strlen(dirspec))
    {
2 |5 ~6 t% n5 O+ K; w6 c        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");
% ^- ^( L, H% @% P0 q        while ((resp = uc4518()) == 0)
        {
8 s, \9 J! a# C9 ~1 |5 j# p! R            UF_CALL(uc4600(fname));
2 x) B7 ?+ |' V/ W6 M- S# W            UF_CALL(uc4575(dirspec, 2, fname, part_name));

            ECHO( "%d.  %s\n", ++cnt, part_name);

            UF_CALL(UF_PART_open(part_name, &part, &status));
            if (status.n_parts > 0) report_load_status(&status);
            if (!status.failed)
/ ?% |7 i+ {9 @5 N8 \            {
" t+ d# ?% F. W+ M9 A& s- ]6 v                do_it();
+ y' ^, U6 p$ v( v! Y2 W" p" N                UF_PART_close_all();
6 A- l0 ]$ j( z3 `$ R3 T2 e' [/ ]; g            }
        }
! {- {; S+ M! C2 E  ~7 d
        UF_CALL(uc4548());
: x' A9 B9 x! @# R; D" S
) ^9 @- W5 e. s        ECHO("\nProcessed %d parts.\n", cnt);
4 o) \3 ]/ |3 k% ~    }[/mw_shl_code]
* H! `' i! g# l1 J