csqqqqq 发表于 2008-8-23 12:47:00

[求助] 对象选择VBA代码

<p>各位大侠</p><p>我想选择图层2上的已有全部图形（非用ADD方法）然后使用移动命令。不知选择图层2上的全部图形的代码如何编写。请指教，谢谢。</p>

sailorcwx 发表于 2008-8-23 17:50:00

Sub test()<br/>On Error Resume Next<br/>Dim sset As AcadSelectionSet<br/>ThisDrawing.SelectionSets.Add ("test")<br/>Set sset = ThisDrawing.SelectionSets("test")<br/>sset.Clear<br/>Dim ft(0) As Integer<br/>Dim fd(0) As Variant<br/>ft(0) = 8<br/>fd(0) = "图层2"<br/>sset.Select acSelectionSetAll, , , ft, fd<br/>MsgBox "选中图层2上" &amp; sset.Count &amp; "个对象"<br/>End Sub

csqqqqq 发表于 2008-8-23 20:51:00

谢谢大侠无私帮助。致以崇高敬意。谢谢。为此段代码我今天调试了一天都没有成功。高手且热心。
页: [1]
查看完整版本: [求助] 对象选择VBA代码