社区 › Auto Lisp › （vla get propertyobject）不是

Tharwat 发表于 2022-7-6 10:52:02

（vla get propertyobject）不是

你好
 
为什么（vla get propertyobject）在Autocad命令行和Visual LISP控制台窗口中都没有响应？
 
例如
(setq myCircle (vla-addcircle
mspace (vlax-3d-point
(getpoint "\nPick the
center point for a circle: ")) 2.0))

在Autocad中直接输入将显示以下错误：
; error: bad argument type: VLA-OBJECT nil
 
有什么解释吗？
 
 
非常感谢
 
塔瓦特

alanjt 发表于 2022-7-6 11:29:36

您没有在mspace变量中定义ActiveSpace。此外，要知道，使用VL或entmake创建对象的点必须转换为WCS。

Tharwat 发表于 2022-7-6 11:44:32

你好Alanjt先生
 
我已经用很多方法尝试了这个函数，但没有结果。。。。。有什么例子吗？？？
 
我认为它可能需要（vl load com），所以我先插入了它，但问题是一样的。
 
顺致敬意，
 
塔瓦特

alanjt 发表于 2022-7-6 11:54:56

这是我的ActiveSpace子程序。。。
 
(defun AT:ActiveSpace (/)
;; Defined ActiveSpace
;; Alan J. Thompson, 10.12.09
(if (or (eq acmodelspace
             (vla-get-activespace
               (cond (*AcadDoc*)
                     ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
               )
             )
         )
         (eq :vlax-true (vla-get-mspace *AcadDoc*))
   )
   (vla-get-modelspace *AcadDoc*)
   (vla-get-paperspace *AcadDoc*)
)
)

查看完整版本: （vla get propertyobject）不是