计算厚度a的程序

soham · 发表于 2022-7-5 22:14:18

您好，先生，
我正在lisp中工作，我需要你的帮助。
现在，我想获取AutoCAD中已有的3D组件的尺寸。
例如，我有100x100x10组件的3D图。我在这一点上感到受挫。请帮帮我。

谢谢你，

marko_ribar · 发表于 2022-7-5 22:27:53

Soham，你的3D部件总是像box 3DSOLID吗？你可以得到它的边界框点坐标，并计算其高度。。。如果3DSOLIDs是在实体建模操作（并集、减法、相交）后未创建的普通图元，则最简单的方法是尝试在本文中解释的方法：
http://www.cadtutor.net/forum/showthread.php?89522-通过lisp更改曲面构建设置（&p）=#6&

HTH公司

marko_ribar · 发表于 2022-7-5 22:33:09

您在主3DSOLID中进行了减法，因此我的链接不适用，因为3DSOLID失去了其基本属性。。。你必须走另一条路：

copy


(defun c:solhig ( / ss solobj ll ur hig )
 (vl-load-com)
 (prompt "\nPick 3D SOLID")
 (setq ss (ssget "_+.:E:S" '((0 . "3DSOLID"))))
 (while (null ss)
   (prompt "\nEmpty sel.set... Please try picking 3D SOLID again...")
   (setq ss (ssget "_+.:E:S" '((0 . "3DSOLID"))))
 )
 (setq solobj (vlax-ename->vla-object (ssname ss 0)))
 (vla-getboundingbox solobj 'll 'ur)
 (setq ll (vlax-safearray->list ll))
 (setq ur (vlax-safearray->list ur))
 (setq hig (abs (- (caddr ur) (caddr ll))))
 (prompt "\nHeight of picked 3D SOLID is : ") (princ (rtos hig 2 50))
 (princ)
)