如何得到长宽高

邹锋

;功能：返回选择集包围盒
;来自明经网友
;返回值：选择集所有实体做为整体的包围盒
(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 =")
  (PRINC  distl)
  (princ "\nk =" )
  (PRINC  distk)
  (princ "\nh =" )
  (PRINC  disth)
  )

情况1


情况2



如何得到DISTH
我不知道怎么判断

shenhung

(AND (equal  X X1 0.001 ) (not (equal Y Y1 0.001)) ) ; X軸相等 , Y不相等 ,視圖為上下
長寬高= X*Y*Y1  或  X1*Y1*Y

(AND (equal  Y 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
(AND (equal  X X1 0.001 ) (not (equal Y Y1 0.001)) ) ; X軸相等 , Y不相等 ,視圖為上下
長寬高= X*Y ...

对，就是精度问题，我也过这个问题，呵呵谢谢先生了

78946299

邹锋 发表于 2013-6-14 20:23
对，就是精度问题，我也过这个问题，呵呵谢谢先生了

前辈这个完整代码有吗？求分享