请问有办法由visual lisp来获取契子高度ma?thanks

linear

请问有办法由visual lisp来获取一个契子(wedge)在如图z 方向直角边上的高度吗？


谢谢！！！

meflying

(defun c:test( / minpt maxpt)
(vla-getboundingbox (vlax-ename->vla-object (car (entsel))) 'minpt 'maxpt)
(setq minpt (vlax-safearray->list minpt))
(setq maxpt (vlax-safearray->list maxpt))
(- (last maxpt) (last minpt))
)

linear

meflying,谢谢你。


用你给的程序得到高度1.99482


但是在图中用linear量得的尺寸是 3.0562。


请问为什么会有这个差别，是因为坐标系的原因吗？谢谢！

龙龙仔

getboundingbox取得的是wcs的点,所以无法得出正确高度