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

lisp计算质量

亲爱的朋友们
我需要一个可以计算三维实体质量的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

这是你想要的吗？
 
;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 (* SolidVolPDen );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

naserrishehri@y 发表于 2022-7-5 16:02:32

亲爱的朋友
非常感谢你的帮助。
亲切的问候

dpenney 发表于 2022-7-5 16:03:42

 
给出千克/立方米的答案会有什么变化

wimal 发表于 2022-7-5 16:09:07

我们也能找出重心吗。

BIGAL 发表于 2022-7-5 16:11:39

MASSPROP只是尝试通过写入文件然后重新读取来检索属性。

wimal 发表于 2022-7-5 16:14:12

是的，请将其写入文件。但是如何将坐标吸收到lisp中呢
页: [1] 2
查看完整版本: lisp计算质量