你要进行操作的对象是什么呀
需要先进行选取
同VBA的方法一样
Dim sset As AcadSelectionSet
Dim Entry As AcadEntity
Set sset = ThisDrawing.SelectionSets.Add("DimNoDelcAllx1")
sset.SelectOnScreen
For Each Entry In sset
entry.copy
next
VB需要改下Thisdrawing
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024