startpoint 发表于 2013-5-15 09:54:04

牛人帮帮忙啊,急用

file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\1714297767\QQ\WinTemp\RichOle\`%VZO}65V6M5}KGfile:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\1714297767\QQ\WinTemp\RichOle\`%VZO}65V6M5}KG在modelspace中重复插入一块对象,我想用选择集对每一对象先选择再操作,但是为什么每次两个块对象同时被选中呢??????怎么回事,求解释

startpoint 发表于 2013-5-15 09:59:13

file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\1714297767\QQ\WinTemp\RichOle\`%VZO}65V6M5}KG建立选择集代码是

'安全创建选择集
On Error Resume Next
Dim sset As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("example")) Then
Set sset = ThisDrawing.SelectionSets.Item("example")
sset.Delete
End If
Set sset = ThisDrawing.SelectionSets.Add("example")

sset.SelectOnScreen



为什么每次选中的都是所有的重复图元呢,我想得到某一个图元,而不是所有!求指点,求高手指点

页: [1]
查看完整版本: 牛人帮帮忙啊,急用