小程序为什么对天正画的东东执行不了呢？请高手指点一下

yybu

下面的小程序为什么对天正画的东东执行不了呢？请高手指点一下！
(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 "")又可以，不解！！！！

691076206

在CAD2010，对天正2014可以执行。

691076206

但是在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