[求助]：请教如何建立一个全是数据的选择集？

eobser

我是想通过框选 对全部数据进行编辑
刚学 希望高手能指点下
先谢！

xyp1964

“全部数据”不知何意？！

eobser

我想处理的是建筑中的 高程点数据
即单行文字 除去文本的

xyp1964

对“高程点数据”想怎么编辑？
发DWG文件说清楚！

eobser

我想试编的是 搞一个能对地形图的高程系统进行简单转化的程序
（只对高程点数据全部+x或者全部-x）
会不会就是您老签名里面的 ★数字运算
呵呵 斑竹很多好东西 搬去慢慢研究
谢谢了

qjcpj

是否这个：
(setq ss1 (ssget "X" '((0 . "TEXT"))))

eobser

谢谢楼上兄弟

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20051205 (1781)
   
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. 
    
14. (defun c:test ()
    
15.   (CMDLA0)
    
16.   (setq        no1 (UREAL 1 "" "\n高程增减值" no1)
    
17.         s1  (car (USEL1 0 "TEXT" "高程点数据样板"))
    
18.         la  (xyp-get-DXF 8 s1)
    
19.         ss  (ssget (list (cons 0 "TEXT") (cons 8 la)))
    
20.         i   -1
    
21.   )
    
22.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
23.     (if        (setq tx (distof (xyp-get-DXF 1 s1)))
    
24.       (progn
    
25.         (setq tx (rtos (+ tx no1) 2 3))
    
26.         (sub_upd s1 1 tx)
    
27.       )
    
28.     )
    
29.   )
    
30.   (CMDLA1)
    
31. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20051205 (1781)<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 /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        no1 (UREAL 1 "" "\n高程增减值" no1)<br />         s1  (car (USEL1 0 "TEXT" "高程点数据样板"))<br />         la  (xyp-get-DXF 8 s1)<br />         ss  (ssget (list (cons 0 "TEXT") (cons 8 la)))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (if        (setq tx (distof (xyp-get-DXF 1 s1)))<br />       (progn<br />         (setq tx (rtos (+ tx no1) 2 3))<br />         (sub_upd s1 1 tx)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

大雪无痕

全部数据是什么意思，请明示？

zxq0220

下面程序行可以获得从一个数字到五个数字的文字选择集
(SETQ SS (SSGET "X" '((0 . "TEXT") (1 . "#,##,###,####,#####"))))

eobser

看代码 查函数
正艰难入门中……
谢谢各位了

butterflydml

你们都会写程序，那画图是不是很快啊。 。