哪里有EPDM二次开发的论坛？国内国外的都行

89 主题	310 帖子	181 金币

版主

Rank: 7 Rank: 7 Rank: 7 Rank: 7

积分: 502

电梯直达

楼主

发表于 2010-9-20 14:30:00 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

谁能贴个输出自定义属性值的代码？
再给出BOM输出到EXCEL的代码，谢谢！！
可以参考
Private Sub ShowFolderComment(folder As IEdmFolder5)! _/ R/ v( y* i) t( T
On Error GoTo ErrHand' i& P8 p6 o! Z; F# ?6 ?
Dim varEnum As IEdmEnumeratorVariable5
Set varEnum = folder
Dim value As Variant
If varEnum.GetVar("comment", "", value) Then
MsgBox value
Else
MsgBox ""+ J- u6 `8 n& ?8 J
End If3 {& W$ o& r' f, V
Exit Sub 9 o1 ~! J4 U; n+ E2 S3 Y& ]: d
ErrHand:) S& S. ?% [) C$ h0 _, p
Dim ename As String% }5 J; C. w$ X. n0 a* e
Dim edesc As String. F( e% q1 J' U4 H
folder.vault.GetErrorString Err.Number, ename, edesc) S }! G- p1 k4 m4 R
MsgBox ename + vbLf + edesc9 X6 ^; |) M# G+ Q+ _0 O) ~1 b
End Sub

comment, folder, EXCEL, Error, 开发

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 转播 教程|习题|模型|技巧0 点赞4430 拍砖3128

相关帖子

SolidWorks机械工程师网

提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）

使用道具举报

返回列表

手机版|小黑屋| GMT+8, 2024-5-11 22:41 , Processed in 0.157753 second(s), 38 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

		自动登录	找回密码
密码			立即注册