imceshnvb 发表于 2004-6-30 13:12:00

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

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

雪山飞狐_lzh 发表于 2004-6-30 13:18:00

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


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

mikewolf2k 发表于 2004-6-30 19:17:00

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

jwz2003 发表于 2004-7-4 17:56:00

我用选择集选定了对象，但不知道该如何编辑。例如删除、复制。代码如下：


Sub selectde()<BR>        ' 创建新的选择集<BR>                       Dim sset As AcadSelectionSet<BR>                       Set sset = ThisDrawing.SelectionSets.Add("ssb")<BR>                       sset.SelectOnScreen


End Sub


还请版主或哪位高手指教！

efan2000 发表于 2004-7-4 19:46:00

dim entobj as acadentity


dim copyobj as acadentity


'遍历选择集


for each entobj in sset


'原位置复制       


       set copyobj=entobj.copy


'删除


       entobj.delete


'移动


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


next
页: [1]
查看完整版本: VBA初学者问题？.........