QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2941|回复: 6
收起左侧

[讨论结束] 哪位大侠能提供VB读取Mechanical明细和标题栏内容的例子?十分感谢!

[复制链接]
发表于 2008-1-25 13:38:32 | 显示全部楼层 |阅读模式 来自: 中国上海

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

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

x
我正在想弄一个公司图纸信息提取软件,由于这方面较缺乏,所以想请同仁给个例子,可以DWG* W) N+ R- h0 P- z; O1 I4 R. u

4 M, R5 {9 A8 O[ 本帖最后由 唐昕晨 于 2009-1-10 13:16 编辑 ]
发表于 2008-1-25 15:58:58 | 显示全部楼层 来自: 中国浙江宁波
明细栏和标题栏做成属性块,可以参考下面的语法来获得或修改属性;
5 l; o- C. @, {* z3 a. X% j
! t4 E$ u( d4 [' 获取块参照的属性   
$ l: p/ ]; _7 }Dim varAttributes As Variant    ) I+ @( g* x' V6 r! t
varAttributes = blockRefObj.GetAttributes    ' 将属性标记和值移至    / f6 |8 W7 Y" J4 ]8 @, B5 O
' 要在 Msgbox 中显示的字符串中   
# X* O2 L5 v0 ~5 k0 KDim strAttributes As String    " v6 i6 E( R- r4 m
strAttributes = ""   
" p) y, P' h8 U  O0 dDim I As Integer    9 w  V+ c$ v% c1 i' p& E
For I = LBound(varAttributes) To UBound(varAttributes)        
% [3 C9 S5 j# O0 PstrAttributes = strAttributes + " Tag: " + varAttributes(I).TagString + vbCrLf + " Value: " + varAttributes(I).textString    Next    , g  ^6 X7 J& ]) ~6 l( I* V! Z; @
MsgBox "The attributes for blockReference " + blockRefObj.Name & " are: " & vbCrLf & strAttributes   ! [" g/ ?2 ~6 G3 k
' 更改属性值    ' 注意:没有 SetAttributes。 一旦包含    ' 变量数组,就拥有了对象。    ' 更改这些对象就会改变图形中的对象。   
( T1 E& [/ `5 U  k% Y$ fvarAttributes(0).textString = "NEW VALUE!"   
" }% @) l2 C1 Y8 f' 再次获取属性    $ ^* o( C+ F* I2 Q2 k
Dim newvarAttributes As Variant   
6 T1 m: j8 R2 j. {2 DnewvarAttributes = blockRefObj.GetAttributes    6 R3 j6 f8 o+ D" g( {. l9 z
' 再次显示标记和值    9 \) [& j) b2 b4 G6 t
strAttributes = ""   
' a* h6 _7 F  _1 @; \For I = LBound(varAttributes) To UBound(varAttributes)        
. t  ]2 B/ [  d5 o3 F9 u6 vstrAttributes = strAttributes + " Tag: " + newvarAttributes(I).TagString + vbCrLf +  " Value: " + newvarAttributes(I).textString   
/ d) S6 z+ q6 L' h; INext   
( E, B# i  V4 _" y: Y& N) A% iMsgBox "The attributes for blockReference " & blockRefObj.Name & " are: " & vbCrLf & strAttributes
2 F, F  }) _4 [" N# A
; _+ g" u! w. @[ 本帖最后由 sealive_leafage 于 2008-1-25 16:04 编辑 ]

评分

参与人数 1三维币 +5 收起 理由
★新手★ + 5 应助

查看全部评分

发表于 2008-1-25 20:22:32 | 显示全部楼层 来自: 中国江苏泰州
二楼,你的VBA能力不错啊,为什么不多发点资料和经验给大家啊!!!
 楼主| 发表于 2008-1-28 13:18:15 | 显示全部楼层 来自: 中国上海
首先感谢二楼的帮助,但Mechanical的明细不是属性块组成的,它是用BOM变量的,如代号为Standard、名称为Descr等,这时如何提取呢?谢谢
 楼主| 发表于 2008-1-29 13:19:15 | 显示全部楼层 来自: 中国上海
哪位行家路过,一定请赐教,最好有现成的小例子,可以让我有个总体的感觉,谢谢!
发表于 2008-2-5 11:02:31 | 显示全部楼层 来自: 中国浙江杭州
2楼先生的软件设计知识不错。希望以后多发表这类文章!谢谢!
 楼主| 发表于 2008-2-13 09:57:18 | 显示全部楼层 来自: 中国上海

回复 5# 的帖子

回复管理员:关于MDT开发手册,我没有唉,这些属性还是我摸索出的,我总共找了二十几个。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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