VB获取CAD属性值
2015-07-06 15:43
381 查看
Dim myAcadApp As AutoCAD.AcadApplication, activeDoc As AutoCAD.AcadDocument, acMS As AutoCAD.AcadModelSpace Set myAcadApp = CreateObject("Autocad.Application") Set activeDoc = myAcadApp.ActiveDocument Dim I% Dim entry As AcadEntity, blk1 As AcadBlockReference, att1 As AcadAttributeReference Dim varAttributes As Variant Dim strAttributes As String For Each entry In activeDoc.ModelSpace If entry.ObjectName = "AcDbBlockReference" Then Set blk1 = entry if blk1.name="?????" then'你的块名 varAttributes = entry.GetAttributes strAttributes = "" For I = LBound(varAttributes) To UBound(varAttributes) Set att1 = varAttributes(I) strAttributes = strAttributes & "标记:" & att1.TagString & ",值:" & att1.TextString & "。" '自己想怎么用就怎么用^_^ Next end if End If Next
相关文章推荐
- CvBoostType
- 无法找到脚本*.VBS的脚本引擎解决办法
- 抛弃vboot不格盘用grub4dos+firadisk安装Ghost版XP到VHD,轻松RAMOS!
- Base64编码的vbs实现
- VBS版BrainFuck语言解释器
- 使用vbs脚本uft8toansi进行文件编码转换
- VB获取本机网卡类型、IP、MAC地址
- 关于在64位win7下运行Virtualbox安装系统时出错(提示VBoxDD.DLL错误)的解决方案。
- VB 常用函数
- excel使用正则表达式
- Excel VBA 基础知识——用代码读写目标单元格
- VBoxManage命令详解技术文章
- vb.net中利用双缓冲绘图技术解决listview加载数据闪烁的问题
- 这是 qq整人代码 VB
- 你是猪,,,vb经典代码 2015年07月02日 12:57:24 424人阅读 评论
- VB控件 与 引用或部件
- VBA基础学习
- Vb程序运行时出现"找不到工程或库"
- VBoxManage命令用法详解
- VB实现的《QQ美女找茬游戏》作弊器实例