如何得到长宽高
;功能：返回选择集包围盒;来自明经网友
;返回值：选择集所有实体做为整体的包围盒
(defun GetSSBoundingbox (ss / i ssn ll rr box ptlist ssbox)
(if ss
(progn
(setq i -1)
(repeat (sslength ss)
(setq ssn (ssname ss (setq i (1+ i))))
(vla-GetBoundingBox (vlax-ename->vla-object ssn) 'll 'rr);得到对象的包围盒
(setq box (list (vlax-safearray->list ll) (vlax-safearray->list rr)))
(setq ptlist (append box ptlist))
)
(setq ssbox (mapcar '(lambda (x) (apply 'mapcar (cons x ptlist))) (list 'min 'max)))
)
)
)
(defun c:asd(/ pt1 pt2 pt3 pt4)
(VL-LOAD-COM)
(princ "\n 请选择正视图")
(setq ssbox (GetSSBoundingbox (setq ss (ssget '((0 . "LINE,ARC,CIRCLE,LWPOLYLINE,PLWPOLYLINE"))))))
(setq pt1 (car ssbox)
pt3 (cadr ssbox)
pt2(list (car pt3) (cadr pt1) 0)
pt4(list (car pt1) (cadr pt3) 0)
)
(setq distl (distance pt1 pt2))
(setq distk (distance pt1 pt4))
(princ "\n 请选择投影视图")
(setq ssboxt (GetSSBoundingbox (setq ss (ssget '((0 . "LINE,ARC,CIRCLE,LWPOLYLINE,PLWPOLYLINE"))))))
(setq ptt1 (car ssboxt)
ptt3 (cadr ssboxt)
ptt2(list (car ptt3) (cadr ptt1) 0)
ptt4(list (car ptt1) (cadr ptt3) 0)
)
(setq distl2 (distance ptt1 ptt2))
(setq distk2 (distance ptt1 ptt4))
(if (= distl distl2)
(setq disth distk2)
)
(if (= distl distk2)
(setq disth distl2)
)
(if (= distk distk2)
(setq disth distl2)
)
(if (= distk distl2)
(setq disth distk2)
)
(princ "\nL =")
(PRINCdistl)
(princ "\nk =" )
(PRINCdistk)
(princ "\nh =" )
(PRINCdisth)
)
情况1
情况2
如何得到DISTH
我不知道怎么判断
(AND (equalX X1 0.001 ) (not (equal Y Y1 0.001)) ) ; X軸相等 , Y不相等 ,視圖為上下
長寬高= X*Y*Y1或X1*Y1*Y
(AND (equalY Y1 0.001 ) (not (equal X X1 0.001)) ) ; Y軸相等 , X不相等 ,視圖為左右
長寬高= X*Y*X1或X1*Y1*X
(T(print "兩視圖無法對應,請檢查視圖"))
shenhung 发表于 2013-6-14 08:44 static/image/common/back.gif
(AND (equalX X1 0.001 ) (not (equal Y Y1 0.001)) ) ; X軸相等 , Y不相等 ,視圖為上下
長寬高= X*Y ...
对，就是精度问题，我也过这个问题，呵呵谢谢先生了 邹锋 发表于 2013-6-14 20:23
对，就是精度问题，我也过这个问题，呵呵谢谢先生了
前辈这个完整代码有吗？求分享:lol
页:
[1]