查找图形的最大最小坐标

我爱你王子呀

1.各位大神，大家下午好，小弟先这厢有礼了
2.本人是lisp的菜鸟，现在想编写一个自动绘制图框的程序。具体来说就是选取图形以后，自动绘制一个矩形的图框，要求所选取的图形都在图框内，且图框不能太大？我想了一下，如果要实现这个目的，需要分别找出所选图形的X最大最小坐标和Y的最大最小坐标，这个算法是什么？还望大神们不吝赐教呀。本人想了好久，在百度上也找了很久，没找出来


该贴已经同步到 我爱你王子呀的微博

我爱你王子呀

我刚看了一个帖子，对我有所启发，就是得到框选图形的长宽尺寸，这个怎么获得呢？

ZZXXQQ

;...
(command "ZOOM" "E" "REGEN")
(setq pmin (getvar "EXTMIN"))
(setq pmax (getvar "EXTMAX"))
;...

Gu_xl

XLRX-PickSet-GetBox
   功能: 返回选择集或图元名对象包围框
   语法:  (XLRX-PickSet-GetBox ss/ename [offset = 0.0])
     参数:
       ss/ename 选择集/图元名
       offse 可选参数，包围框外偏移距离
    返回值: 点表 '(左下 右上)

用法示例
    (XLRX-PickSet-GetBox (ssget))

我爱你王子呀

Gu_xl 发表于 2015-9-11 16:34
XLRX-PickSet-GetBox
   功能: 返回选择集或图元名对象包围框
   语法:  (XLRX-PickSet-GetBox ss/ename ...

Gu_xl 大神 您好 您能回复 我不胜感激 小弟没想到 您作为版主 这么敬业
你在帖子 http://bbs.mjtd.com/thread-84595-3-1.html 第3页 第24楼 提到一个自动图框的源码 其中有一条代码是 (apply 'mapcar (cons 'list (list p1 p2))) 我把 p1 设为 (10 20) p2 设为(30 40) 结果是((10 30) (20 40)) 小弟想了几个小时都不得其解 还请您能指教一二 不胜感激