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

hzzhao

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

yshf

 

(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

非常感谢,我试试

zj20190405

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

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