linjp100 发表于 2007-1-10 13:15:00

求助：选择集如何做成块？

<p>求助：选择集如何做成块？，</p><p>我想把选择集内的所有对象都转换成一个块，</p>

wyj7485 发表于 2007-1-12 09:03:00

Sub test()
On Error Resume Next
Dim a As AcadSelectionSet
ThisDrawing.SelectionSets.Item("myblk").Delete
Set a = ThisDrawing.SelectionSets.Add("myblk")
a.SelectOnScreen
ThisDrawing.SendCommand "-block" & vbCr & "wyj" & vbCr & "(list 0 0 0)" & vbCr & "P" & vbCr & vbCr
End Sub

ejingsong 发表于 2012-6-2 15:49:28

想请教下用lisp的话怎么写呢   谢谢
页: [1]
查看完整版本: 求助：选择集如何做成块？