pxt2001 发表于 2012-12-15 09:58:18

ucs下，如何求实体外矩形框

(defun GETBOX (e1 / obj minpoint maxpoint)
(setq obj (vlax-ename->vla-object e1)) ;转换图元名
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
;;取得包容图元的最大点和最小点
(setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
(setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
;;(command "box" minpoint maxpoint 2)
(setq obj (list minpoint maxpoint))
)这段求实体外矩形框的程序，如何在用户坐标系下使用？


zyhandw 发表于 2012-12-15 11:07:55

trans下如何？可以查阅下trans函数

highflybir 发表于 2012-12-15 11:16:43

http://bbs.mjtd.com/thread-66618-1-1.html

pxt2001 发表于 2012-12-15 13:03:53

highflybir 发表于 2012-12-15 11:16 static/image/common/back.gif
http://bbs.mjtd.com/thread-66618-1-1.html

楼上高人，正需要这个！

ygp820601 发表于 2013-1-30 17:43:16

高手，很有用哦。
页: [1]
查看完整版本: ucs下，如何求实体外矩形框