错误提示

kenny

请大虾们帮我看看,为什么会提示:       


此类型的 LISP值不能强制转换成 VARIANT:

王咣生

(defun c:test (/ layersel clfspt av_la CenLine pt)
(vl-load-com)
(setq AcadObject (vlax-get-acad-object)
AcadDocument (vla-get-ActiveDocument AcadObject)
mSpace (vla-get-ModelSpace AcadDocument)
)
(setq av_la (null (tblsearch "layer" "center"))
layersel (vla-get-layers AcadDocument)
clfspt (getpoint "\nPick")
)
;;; (if (= av_la T) (setq new_layer (vla-add layersel "Center")))
(setq pt (getpoint clfspt "\nPick end: "))
(setq CenLine (vla-addline mSpace (vlax-3d-point clfspt) (vlax-3d-point pt))) ;***
)

kenny

谢谢!!