VB获取CAD属性值
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
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· AI与.NET技术实操系列:基于图像分类模型对图像进行分类
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语,封装的思维:从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热?
· 分享一个免费、快速、无限量使用的满血 DeepSeek R1 模型,支持深度思考和联网搜索!
· 基于 Docker 搭建 FRP 内网穿透开源项目(很简单哒)
· ollama系列01:轻松3步本地部署deepseek,普通电脑可用
· 25岁的心里话
· 按钮权限的设计及实现