Private Sub CommandButton1_Click() Dim pEntity As AcadObject Dim pBlock As AcadBlockReference Dim pPolyline As AcadLWPolyline Dim pSlct As AcadSelectionSet '若 Entity 选择集存在,则删除选择集,删除后并添加 For i = 0 To ThisDrawing.SelectionSets.Count - 1 If ThisDrawing.…
https://blog.csdn.net/dengyiyu/article/details/2201175 本文主要给大家介绍一下SmartSoft中用C#.Net实现AutoCAD块属性提取的方法,并给出实例代码与大家共享.此类实现AutoCAD块属性提取功能,在VS.Net2003(2005)+AutoCAD2004(2007)下调试通过. using System; using AutoCAD=Autodesk.AutoCAD.Interop; using System.Runtime.…