lisp计算质量

naserrishehri@y · 发表于 2022-7-5 15:43:48

亲爱的朋友们
我需要一个可以计算三维实体质量的lisp
输入=密度和三维实体对象
输出=质量

MSasu · 发表于 2022-7-5 15:48:51

这可以让你开始：

(if (vlax-property-available-p MyVLAEntity "VOLUME")
(vlax-get (vlax-ename->vla-object MyVLAEntity) "VOLUME")
)

当做

naserrishehri@y · 发表于 2022-7-5 15:51:38

尊敬的Froned：
请详细解释您的代码。我怎么用？
亲切的问候

MSasu · 发表于 2022-7-5 15:56:12

该代码将返回以VLA实体的当前单位表示的卷-它旨在添加到已写入的代码中。

当做

Small Fish · 发表于 2022-7-5 15:58:04

这是你想要的吗？

copy

;by Small Fish
(defun c:Solid_Prop(/ OldCmd PDen enaPline vname SolidVol SolidWgt)
   (vl-load-com);load vla 
   (setq   OldCmd (getvar "CMDDIA"))
   (setvar "CMDECHO" 0)
   (setq PDen (getreal "\nDensity of object : ")
         enaPline(car(entsel"\nSelect any edge of solid object : "))
         vname (vlax-ename->vla-object enaPline )
         SolidVol (/(vla-get-volume vname)1e9);volume
         SolidWgt (* SolidVol  PDen );weight
   );setq
   (alert
   (strcat
       "Properties for a solid object at "
       (rtos PDen 2 2)" t/m³ : "
       "\n"
       "\nVolume = "
       (setq VolTxt (rtos SolidVol 2 2))
        " m³"
       "\t\tWeight = "
              (setq WgtTxt (rtos SolidWgt 2 2))
       " t"
   );strcat
   );alert
   (setvar "CMDECHO" OldCmd);
   (princ)
   );defun