求一程序可以自动找出图形所有图元的左下角

ke_keyang

公司图形文件规定，所有图元的左下角必须在0，0，0。

注意不是当前的窗口，是整个图形； 不是屏幕的左下角，是所有图元的左下角。

 

很多图形一个个转换太慢了，编个程序可以自动转换，但无法取得这个点。

哪位高手能帮忙。（找出所有图元最小的x,y,z值的那个点）

 

我只会lsp，不会用vba，如果lsp中嵌套有vba的函数，能告诉我怎么做才能运行吗。

我的cad环境是2008.

谢！

Andyhon

http://www.google.com/search?as_q=&hl=zh-cn&num=10&btnG=Google+%E6%90%9C%E5%B0%8B&as_epq=%E5%B7%A6%E4%B8%8B%E8%A7%92&as_oq=&as_eq=&lr=&cr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=http%3A%2F%2Fbbs.mjtd.com%2F&as_rights=&safe=images

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

xhq1954425

学习！谢谢！(getvar "EXTMIN") 以前不知道。

ke_keyang

EXTMIN 根本取不准图形的左下角，大家可以自己试验

 

ke_keyang

搜索了2楼的，用了以下程序

(defun rectang_min (/ ss pt_list sn n en pt1 pt2)
    (setq ss (ssget "X"))
    (setq pt_list '())
    (setq sn (sslength ss))
    (setq n -1)
    (repeat sn
 (setq en (ssname ss (setq n (1+ n))))
 (vla-getboundingbox (vlax-ename->vla-object en) 'pt1 'pt2)
 (setq pt_list (cons (vlax-safearray->list pt1) pt_list))
 (setq pt_list (cons (vlax-safearray->list pt2) pt_list))
    )
    (setq pt1 (apply 'mapcar (cons 'min pt_list)))         ;;; 左下角点
;;; (setq pt2 (apply 'mapcar (cons 'max pt_list)))         ;;; 右上角点
;;; (command "rectang" pt1 pt2)
;    (princ)
)

 

对于这个程序，大部分都能够得到左下角坐标。

但对于有些图形程序出错，如图1， 由于工程保密，图形内容已删除，不知道什么原因

有些图不能获得正确的左下角坐标，如图2

 

那个高手能指点以下？？？！！！

 

感谢呀！