社区 › AutoLISP/Visual LISP 编程技术 › 新人第一帖，求助massprop获取体积。

rsent 发表于 2014-12-4 22:03:55

新人第一帖，求助massprop获取体积。

(defun c:vv()
(setq a (ssget))
(setq Volume (vla-get-Volume a))
(princ "矩形体的Volume（体积）是 ")
)


代码是不是不对，感觉a好像是值，不是对象。刚刚学lsp，请大家帮帮我。好人一生平安。。

Gu_xl 发表于 2014-12-4 22:32:04

(Setq a(vlax-ename->Vla-object (car(entsel))))

rsent 发表于 2014-12-4 22:43:17

Gu_xl 发表于 2014-12-4 22:32 static/image/common/back.gif
(Setq a(vlax-ename->Vla-object (car(entsel))))

(defun c:vv()
(Setq a(vlax-ename->Vla-object (car(entsel))))
(prin1 a)
)

我的代码按你的修改了下
结果如下。是不是还是修改的不对。谢谢了。
VV
选择对象: #<VLA-OBJECT IAcad3DSolid 011fc29c>#<VLA-OBJECT IAcad3DSolid 011fc29c>

锋十七 发表于 2020-3-17 14:28:56

Gu_xl 发表于 2014-12-4 22:32
(Setq a(vlax-ename->Vla-object (car(entsel))))

谢谢，从总中的到了知识

查看完整版本: 新人第一帖，求助massprop获取体积。