PLM之家精品课程培训,联系电话:18301858168 QQ: 939801026

  • NX二次开培训

    NX二次开培训

    适合初级入门或想深入了解二次开发的工程师,本培训结合ufun,NXOpen C++,大量的实例及官方内部的开发技术对于老鸟也值得借鉴!.

    NX CAM二次开发培训报名 NX二次开发基础培训报名
  • PLM之家Catia CAA二次开发培训

    Catia二次开发培训

    Catia二次开发的市场大,这方面开发人才少,难度大。所以只要你掌握了开发,那么潜力巨大,随着时间的积累,你必将有所用武之地!

  • PLM之Teamcenter最佳学习方案

    Teamcenter培训

    用户应用基础培训,管理员基础培训,管理员高级培训,二次开发培训应有尽有,只要你感兴趣肯学习,专业多年经验大师级打造!

  • PLM之Tecnomatix制造领域培训

    Tecnomatix培训

    想了解制造领域数字化吗?想了解工厂,生产线设计吗?数字化双胞胎,工业4.0吗?我们的课程虚位以待!

PLM之家PLMHome-国产软件践行者

[已解决] ufun 获取文件夹下所有prt文件名

  [复制链接]

2019-4-17 08:00:53 2208 2

iPhone 发表于 2019-4-16 12:56:29 |阅读模式

iPhone 楼主

2019-4-16 12:56:29

请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!

您需要 登录 才可以下载或查看,没有账号?注册

x
ufun 获取文件夹下所有prt文件名
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复

使用道具 举报

全部回复2

admin 发表于 2019-4-17 07:54:25

admin 沙发

2019-4-17 07:54:25

C#的  没有用NX 函数 7 Y' m9 X, M* }) s) ]

! [6 b) {+ w! m5 d5 E& o& V
/ X& ~! i4 ?  G) W/ i" ~( K[mw_shl_code=csharp,true]  Public Class list_all_parts_in_directory0 D" i5 ]) k% i5 U& g

) |( H# M& W% U. U% t        Public Shared Sub Main()
  N" H3 Z# ]. [* Z2 }( q& ?4 z3 }1 a7 g) b; @$ |( ^
            Dim theSession As Session = Session.GetSession()& \  g6 a& D' h6 H2 s
            Dim lw As ListingWindow = theSession.ListingWindow()
* q( {" J4 ^: ^& L) X1 i) C' G  t% e0 ^
            Dim foldername As String = ""2 k# g- g; z$ c
            lw.Open()4 o* v) k1 b7 F2 g- d% g
            If (select_directory(foldername) <> DialogResult.OK) Then4 N, V' z7 X  B
                lw.WriteLine("Input canceled...exit" & vbCrLf)3 K, g1 i& u2 i
                Return% q% \- u- b5 F( S
            End If9 Q" j, q$ [3 x6 w$ I  g- H' ~$ R

9 G0 y$ R: X" m2 X: H/ s/ D) w            Dim dir As DirectoryInfo = New DirectoryInfo(foldername)
) ?! r" T* i! j+ s! m            Dim fsi As FileSystemInfo& A' K' n+ W7 v5 v) B& F3 E

3 g+ T( c6 P7 c            lw.Open()3 b3 r2 e- M9 V0 h" p
            lw.WriteLine("Parts in directory: " _7 d5 o1 ^/ o7 C( [% x9 u, T4 R1 [
              & Path.GetFullPath(dir.ToString()) & vbCrLf)2 X0 C6 |# F7 i8 Z6 A
3 e4 t! H8 q3 [# S' Z
            For Each fsi In dir.GetFileSystemInfos()
* o  L9 U& k6 O: G                If (TypeOf fsi Is FileInfo And fsi.Extension.Contains("prt")) Then9 d$ t2 J# J$ m1 s+ ]7 O  H/ w5 J, j
                    Dim f As FileInfo = CType(fsi, FileInfo)! n8 t% Y" x# t& a; Q
                    Dim size As Long = f.Length
( o) w3 i1 F  z+ y# k+ [                    lw.WriteLine(f.Name & " " & size & "Bytes" & vbCrLf)
7 M& b* t* T- V( ?0 ]' [; g                End If1 z; q8 d: l0 N: g! b" R
            Next fsi
0 ?; \' @; n, n/ F& ~5 j) B9 B
% k/ S! j0 k1 ^' r/ u% C        End Sub. w, ?; T- d5 A6 b5 f! g+ ?. u
! |" J# B1 }; f0 a/ m+ c
        Public Shared Function select_directory(ByRef foldername) As System.Windows.Forms.DialogResult
/ Z2 W1 p, f% r: ^7 @; T+ |+ Z1 U! p! q: i  k; m' M
            Dim fbd As FolderBrowserDialog' P; h6 i, N4 C$ H
            Dim result As System.Windows.Forms.DialogResult+ [6 \' _" l" g4 B* S6 A2 U- D( D
% g) {+ l0 K( R9 S$ [
            fbd = New System.Windows.Forms.FolderBrowserDialog()4 G7 T9 u8 q! i0 a+ {; r
            fbd.Description = "Select directory to check"
' Y' J' n( {& I, c            fbd.ShowNewFolderButton = False
8 R, W9 y4 [6 a$ m# Z            ' start browsing at Desktop folder, uncomment for any other default directory- d. F9 N2 z7 @* O, w
            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR")
0 n9 V6 |6 r6 o5 k$ d) S            ' fbd.SelectedPath = GetEnvironmentVariable("UGII_BASE_DIR") + "\Moldwizard"( s" J, u$ a  z) X% b. k$ K
            ' fbd.SelectedPath = "c:\aaa\bbb"+ p- h% f; c0 q
            result = fbd.ShowDialog()
; N- u5 K  y/ t2 ~! U* G2 S9 {            foldername = fbd.SelectedPath
& @4 C( d& `6 E" {4 c            fbd.Dispose(); Q, ]; a: m4 h& Z
            Return result
, W8 q3 q. C" m% [' A
' N" |8 s! q% z        End Function3 s! k# E) q' H) J

( D3 t$ o4 e0 G- b# g! E$ ]& T1 @        Public Function GetUnloadOption(ByVal dummy As String) As Integer
" B; Y$ u' I5 t! G            GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
( A. ~6 t- K" c* N- c0 t+ ]" D        End Function
4 ?* W+ E) Z7 y0 k. r
& f7 Q9 w, q+ |1 Z' G* X+ z7 ^    End Class[/mw_shl_code]' f6 Q+ V; r) b- g$ x- E
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

admin 发表于 2019-4-17 08:00:53

admin 板凳

2019-4-17 08:00:53

ufun 的 方法
1 z2 s1 r& G4 n4 }4 S; g0 b% ~; m' L$ m9 K- \# f  _2 F! X
* }7 l, a0 ]8 G3 g* d- s1 R2 H
[mw_shl_code=c,true]int+ Y4 p9 W6 P( N  f7 F
        cnt = 0,
% D- h- {" q6 s        resp;5 I; J+ |4 h) a) N9 P
    tag_t
4 _: s+ Q; E$ o+ Y        part;) E1 u9 o  c% {7 H
    char3 w- n6 e) }5 q
        dirspec[MAX_FSPEC_SIZE+1] = { "" },
4 K6 i/ Q4 i; `# |        fname[MAX_FSPEC_SIZE+1],8 u. h* s$ V0 K
        part_name[MAX_FSPEC_SIZE+1];, ]( ]2 z3 o6 P: x% K6 J0 o
    UF_PART_load_status_t1 t% \4 |$ G8 ]6 g
        status;
$ t$ ?- ^! O, H& W$ L  @$ `
- [* v8 Z4 w% @# ?# K! u( Z# P    if (UF_CALL(UF_initialize())) return 1;$ {3 ~0 x+ v6 Z/ a8 W
9 W' `8 h! S# L
    while (printf("Enter directory path:\n") && gets(dirspec) &&9 Z2 w7 l) T% D  {
        strlen(dirspec))# j9 W8 Z6 R: ?9 X; A
    {; r3 g7 S" V8 i) G2 }
        uc4508(dirspec, (1<<13)|(1<<11), 0, "*.prt");; Y  A  S! f: C6 Z' G$ J  p
        while ((resp = uc4518()) == 0)
% H8 z! O5 ]" \( f/ f; B+ l5 b5 ^        {
( m/ y) L4 s2 O: E. c. }! L- n            UF_CALL(uc4600(fname));
/ C) _) d1 ?0 E) p( t            UF_CALL(uc4575(dirspec, 2, fname, part_name));
5 ^& d3 p# |) b1 K- q6 \: S, S9 _  D( r/ j
            ECHO( "%d.  %s\n", ++cnt, part_name);
9 j' R7 F: H! p1 K! |) Y% s2 ?( r. C6 c! D  i9 `! |! a# F. l
            UF_CALL(UF_PART_open(part_name, &part, &status));
( @+ }& `! N$ O7 F( Y/ X1 j            if (status.n_parts > 0) report_load_status(&status);
# Y8 |+ l* p1 o8 v  w: Q0 h            if (!status.failed)
8 @. ~- c4 E) k3 k            {8 o% y# A' v1 u3 G
                do_it();2 l3 {% h4 V! e$ v3 L2 A# G
                UF_PART_close_all();; t( E: a. w( \! p# D% l2 E& ~
            }6 L% L. v* M6 r! z  F7 h  d
        }+ M  F4 \2 E: J+ }
5 A& R. s, ]5 @8 q0 e
        UF_CALL(uc4548());
3 z1 s( n7 B1 w8 J# M0 K+ M; d/ Z( x" B) D0 x2 q3 B
        ECHO("\nProcessed %d parts.\n", cnt);
& g2 Y% A. h& z6 M5 @% M    }[/mw_shl_code]
5 B5 q/ d1 P8 k  [. f1 K  u1 [( M6 Y
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了