QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
3天前
查看: 1197|回复: 0
收起左侧

[求助] 哪里有EPDM二次开发的论坛?国内国外的都行

[复制链接]
发表于 2010-9-20 14:30:05 | 显示全部楼层 |阅读模式 来自: 中国江苏苏州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
谁能贴个输出自定义属性值的代码?3 N! M7 y! N& U2 ?5 @! L
再给出BOM输出到EXCEL的代码,谢谢!!
* T; Q0 E" V9 _* `  o7 @: @  F5 ~  `
7 Y' M& P4 W* o8 b. A可以参考
8 P# q! {8 p0 p  C9 sPrivate Sub ShowFolderComment(folder As IEdmFolder5)! _/ R/ v( y* i) t( T
& U- N: n  @* {5 S8 jOn Error GoTo ErrHand' i& P8 p6 o! Z; F# ?6 ?
; w! M# N9 l8 L$ f% ?, ^- Q; i, H3 R# ]9 i* y4 w# x
Dim varEnum As IEdmEnumeratorVariable5
; o2 [; q6 K! R4 g5 ~ Set varEnum = folder( I+ A4 I/ e/ u# x6 x4 L
Dim value As Variant
' Q0 O3 I0 Z- T( _ If varEnum.GetVar("comment", "", value) Then$ j8 l+ i, k& z& J1 c* ^) U2 w
   MsgBox value7 r7 v* }7 q6 k
Else
* r6 v) x. t! ?' J/ j! d  B   MsgBox "<No comment found.>"+ J- u6 `8 n& ?8 J
8 g9 r7 G  y/ o0 I End If3 {& W$ o& r' f, V* [; A( y' }+ q6 `/ s" S4 E
Exit Sub 9 o1 ~! J4 U; n+ E2 S3 Y& ]: d) F2 i* y* J# P  ?2 e- u2 k

0 m& d7 G' n/ W' ?, DErrHand:) S& S. ?% [) C$ h0 _, p) }, G7 u1 i. W3 @/ E  `
  Dim ename As String% }5 J; C. w$ X. n0 a* e
' j3 o4 ^  Z) a1 c  Dim edesc As String. F( e% q1 J' U4 H
6 R1 [; r# A* e: Y- z  folder.vault.GetErrorString Err.Number, ename, edesc) S  }! G- p1 k4 m4 R
1 n. H' L6 F2 u. G  MsgBox ename + vbLf + edesc9 X6 ^; |) M# G+ Q+ _0 O) ~1 b
9 I9 C; S  s* n: {8 D3 WEnd Sub

评分

参与人数 1三维币 -10 收起 理由
chenjun520601 -10 同一时间段连发多贴同类内容求助帖!

查看全部评分

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

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表