VBA初学者问题？.........

imceshnvb

怎样把非VBA作出的对象，如直线的一些数据，如直线的端点，中点等给VBA，

雪山飞狐_lzh

一、用GetEntity obj,pnt或选择集获取图元对象


二、调用对象的相应方法或属性对对象进行操作

mikewolf2k

对，先选择对象，再获得该对象的顶点等信息。

jwz2003

我用选择集选定了对象，但不知道该如何编辑。例如删除、复制。代码如下： Sub selectde()
' 创建新的选择集
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("ssb")
sset.SelectOnScreen End Sub 还请版主或哪位高手指教！

efan2000

dim entobj as acadentity


dim copyobj as acadentity


'遍历选择集


for each entobj in sset


'原位置复制         


         set copyobj=entobj.copy


'删除


         entobj.delete


'移动


         copyobj.move         point1, point2 '这两点构成移动的位移和方向


next