请教一个块的问题

a65306805

请问VLISP里面有没有象VBA中GetBoundingBox这样的函数,可以获得模型空间中块的方框?谢谢!

torcky

(defun c:test();get boundingbox of a line (vl-load-com)
(setq acadobject(vlax-get-acad-object)
acaddocument(vla-get-activedocument acadobject )
mspace(vla-get-modelspace acaddocument))
(setq sp(vlax-make-safearray vlax-vbdouble '(0 . 2)))
(vlax-safearray-fill sp '(10 10 0))
(setq ep(vlax-make-safearray vlax-vbdouble '(0 . 2)))
(vlax-safearray-fill ep '(50 50 0))
(setq yline(vla-addline mspace sp ep))
(setq minext(vlax-make-safearray vlax-vbdouble '(0 . 2)))
(setq maxext(vlax-make-safearray vlax-vbdouble '(0 . 2)))
(vla-getboundingbox yline 'minext 'maxext)
(princ (vlax-safearray->list minext))
(princ (vlax-safearray->list maxext))
)

a65306805

谢谢!

meflying

不用这么复杂 http://www.mjtd.com/function/list.asp?id=190

a65306805

老大这个法子是好用，我试了一下，前面还是要将ENT转换为VLA对象的。


谢谢老大！