[求助]：求得所有图元的范围

zhengguoyun

有什么好的方法求得所有图元的范围吗，如图

zhengguoyun

也就是图中虚线部分的长和宽

taner

http://www.xdcad.net/forum/showthread.php?s=&threadid=458086

xyp1964

2. [FONT=courier new][/FONT](load "xyp_lib.vlx")                        ;版本 V.20051230 (1873)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. (defun c:test ()
    
14.   (CMDLA0)
    
15.   (setq        ss  (ssget '((0 . "TEXT")))
    
16.         pt1 (xyp-get-SsMinMaxPoint ss 1)
    
17.         pt9 (xyp-get-SsMinMaxPoint ss 9)
    
18.   )
    
19.   (command "zoom" "w" pt1 pt9)
    
20.   (CMDLA1)
    
21. )

[FONT=courier new][/FONT](load "xyp_lib.vlx")                        ;版本 V.20051230 (1873)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss  (ssget '((0 . "TEXT")))<br />         pt1 (xyp-get-SsMinMaxPoint ss 1)<br />         pt9 (xyp-get-SsMinMaxPoint ss 9)<br />   )<br />   (command "zoom" "w" pt1 pt9)<br />   (CMDLA1)<br /> )

寒光四射

斑竹帮你解决了，
我想起来了一个问题（原来网友问我的，我不会）
就是已知某一范围，（如对角两坐标），能不能就全部选中此范围内的所有图元呢

xyp1964

最初由 寒光四射 发布
[B]斑竹帮你解决了，
我想起来了一个问题（原来网友问我的，我不会）
就是已知某一范围，（如对角两坐标），能不能就全部选中此范围内的所有图元呢 [/B]

(command "select" "w" pt1 pt2 "")
或
(command "select" "c" pt1 pt2 "")

温柔女神

斑竹哥哥,5楼的那个问题就是我问的.
我的对角两点的坐标是固定的:(80,80),(115,115).
那么(command "select" "w" pt1 pt2 "")中的PT1,PT2怎么带入啊?
刚开始学,一小步就要调很久,还不对呢,请你帮忙,谢谢

yshf

2. (setq  pt1 '(80 80)  pt2 '(115 115))
   
3. (command "select" "w" pt1 pt2 "")
   
4. ;或者将选择赋值给一变量
   
5. (setq ssa (ssget "w" pt1 pt2))

(setq  pt1 '(80 80)  pt2 '(115 115))<br /> (command "select" "w" pt1 pt2 "")<br /> ;或者将选择赋值给一变量<br /> (setq ssa (ssget "w" pt1 pt2))

jcmtxgt

我用的是R14的,不需要加载通用函数编个程序出来好吗?