[求助]LISP提取三维实体的体积

hzzhao · 发表于 2010-10-23 13:51:00

怎么搞，实体的体积啊，entget 没有要用的东西，用massprop怎么取啊!!帮帮忙啊

yshf · 发表于 2010-10-23 22:05:00

(defun c:tj()
    (while (setq ent (car (entsel "\n选择三维实体:")))
        (redraw ent 3)
         (setq vob (vlax-ename->vla-object ent)
        v   (vl-catch-all-apply 'vla-get-Volume (list vob))
)
         (if (vl-catch-all-error-p v)
      (alert "所选取的图元不具有体积属性!")
      (alert (strcat "体积=" (rtos v)))
)
        (redraw ent 4)
    )
    (princ)
)

hzzhao · 发表于 2011-10-15 08:59:35

非常感谢,我试试

zj20190405 · 发表于 2024-11-9 19:39:14

yshf 发表于 2010-10-23 22:05
 
(defun c:tj()    (while (setq ent (car (entsel "\n选择三维实体:"))) &nbs ...

这个代码让计算出的结果像前移动九位书写到CAD绘图区，后面加上单位立方米，感谢大佬指点

octopus9112 · 发表于 2024-12-4 17:19:45

谢谢分享。。。

账号		自动登录	找回密码
密码			注册

[基础] [求助]LISP提取三维实体的体积