如何能知道插入块的高度？

cadmole

已经能选择块，但是属性中只有块的插入点，怎么知道块的大小？

marting

楼主，建议规范下名词，多加些定语，文字表达不了的，屏幕截图说明下。

1、你想问的高度是指什么？ 高程？
2、那什么是大小？

你是想得到块的包围矩形框，指的长和宽？

cadmole

我有一个图框，是块，插入后我想选择图框内的对象，需要先取得图框的大小，指的是图框的长和宽，谢谢

kurt1000

你看看下面这个G斑的是否适用

;;By Gu_xl 明经通道 2014.05.12
(defun box (e / p1 p2 p3 p4 obj)
    (setq obj (vlax-ename->vla-object e))
    (vla-GetBoundingBox obj 'p1 'p3)
    (setq p1 (vlax-safearray->list p1)
          p3 (vlax-safearray->list p3)
          p2 (list (car p1) (cadr p3) (caddr p1))
          p4 (list (car p3) (cadr p1) (caddr p1))
    )
    (if        (= "SPLINE" (cdr (assoc 0 (entget e))))
      (progn
        (setq lst
               (mapcar '(lambda        (a b)
                          (vlax-curve-getClosestPointToProjection e a b t)
                        )
                       (list p1 p2 p3 p4)
                       '((1.0 0 0) (0 -1.0 0) (-1.0 0 0) (0 1.0 0))
               )
        );_setq
        (list
          (apply 'mapcar (cons 'min lst))
          (apply 'mapcar (cons 'max lst))
        )
      );_progn
      (list p1 p3)
    );_if
  )

marting

cadmole 发表于 2017-7-7 11:13

用 vla-GetBoundingBox 获得对象的包围盒左下，右上点

cadmole

谢谢，学习了