错误提示

kenny · 发表于 2004-8-14 18:36:00

请大虾们帮我看看,为什么会提示:
此类型的 LISP值不能强制转换成 VARIANT:

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

王咣生 · 发表于 2004-8-14 19:23:00

(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 · 发表于 2004-8-16 07:58:00

谢谢!!

错误提示

发表回复

精选推荐

浏览过的版块