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

linjp100

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

我想把选择集内的所有对象都转换成一个块，

wyj7485

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

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

想请教下用lisp的话怎么写呢   谢谢