小程序为什么对天正画的东东执行不了呢？请高手指点一下
下面的小程序为什么对天正画的东东执行不了呢？请高手指点一下！(defun c:wb()
(setq ss2 (ssget))
(command "_wblock" "D:\\PLT\\111""""0,0" ss2 "")
)
但在CAD命令栏中分开执行(setq ss2 (ssget)) (command "_wblock" "D:\\PLT\\111""""0,0" ss2 "")又可以，不解！！！！
在CAD2010，对天正2014可以执行。 但是在VBA中不能处理天正图元，非常痛苦。
Public Sub start()
Dim Selset1 As AcadSelectionSet
Set Selset1 = ThisDrawing.SelectionSets.Add("SS1")
Selset1.SelectOnScreen
ThisDrawing.Wblock "d:\111", Selset1
Selset1.Delete
End Sub
页:
[1]