[求助]提出个想法，可以编出个按颜色选择物体的程序吗？

userzhl

如题：

可以编出个按颜色选择物体的程序吗？

xyp1964

2. (load "xyp_lib.vlx") ;版本 V.20060210
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
12. |;
13. ;;;按颜色选择物体
14. (defun c:test ()
15.   (if (null int)
16.     (setq int 7)
17.   )
18.   (setq INT (UINT 7 "" "\n颜色号" INT)
19. ss  (ssget)
20. ss1 (ssadd)
21. i   -1
22.   )
23.   (while (setq s1 (ssname ss (setq i (1+ i))))
24.     (if (= (xyp-get-Color s1) int)
25.       (setq ss1 (ssadd s1 ss1))
26.     )
27.     (princ ".")
28.   )
29.   (princ "\n物体集名称: !ss1")
30.   ss1
31. )

(load "xyp_lib.vlx") ;版本 V.20060210 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;按颜色选择物体 (defun c:test ()   (if (null int)     (setq int 7)   )   (setq INT (UINT 7 "" "\n颜色号" INT) ss  (ssget) ss1 (ssadd) i   -1   )   (while (setq s1 (ssname ss (setq i (1+ i))))     (if (= (xyp-get-Color s1) int)       (setq ss1 (ssadd s1 ss1))     )     (princ ".")   )   (princ "\n物体集名称: !ss1")   ss1 )

userzhl

楼上，出错了：

命令: TEST ; 错误: no function definition: UINT

我想要的是：颜色号不用输入，直接选取的，

xyp1964

userzhl发表于2006-3-11 23:35:00楼上，出错了：命令: TEST ; 错误: no function definition: UINT我想要的是：颜色号不用输入，直接选取的，

先加载通用函数！

2. (load "xyp_lib.vlx")   ;版本 V.20060210
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url]
12. |;
13. ;;;按颜色选择物体
14. (defun c:test ()
15.   (while (not (setq s1 (entsel "\n选择任意目标实体: "))))
16.   (setq int (xyp-get-Color (car s1))
17. ss  (ssget)
18. ss1 (ssadd)
19. i   -1
20.   )
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
22.     (if (= (xyp-get-Color s1) int)
23.       (setq ss1 (ssadd s1 ss1))
24.     )
25.     (princ ".")
26.   )
27.   (princ "\n物体集名称: !ss1")
28.   ss1
29. )

(load "xyp_lib.vlx")   ;版本 V.20060210 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]dispbbs.asp?boardID=3&ID=37554&page=1[/url] |; ;;;按颜色选择物体 (defun c:test ()   (while (not (setq s1 (entsel "\n选择任意目标实体: "))))   (setq int (xyp-get-Color (car s1)) ss  (ssget) ss1 (ssadd) i   -1   )   (while (setq s1 (ssname ss (setq i (1+ i))))     (if (= (xyp-get-Color s1) int)       (setq ss1 (ssadd s1 ss1))     )     (princ ".")   )   (princ "\n物体集名称: !ss1")   ss1 )

userzhl

没有更简单一点的了吗？终于被我研究出来了：

(defun c:ssc (/ al)
   (if (setq al (entsel "\n请选择:")) (progn
      (setq ss (ssget (list (assoc 62 (entget (car al))))))
......
   ))
)

xyp1964

userzhl发表于2006-3-12 14:49:00 没有更简单一点的了吗？终于被我研究出来了： (defun c:ssc (/ al)(if (setq al (entsel \"\n请选择:\"))&n...

既然研究出来了，应该不错！目前还没有更简单一点的。

楼上的东东看不懂！

 

userzhl

此程序是选择所有同一颜色的物体，我想把它改成“点色框选”呀。

ZZXXQQ

试一下：
(defun c:ssc (/ al)
   (if (setq al (entsel "\n请选择:")) (progn
      (setq ss (ssget (list (assoc 62 (entget (car al))))))
......
   ))
)

userzhl

非常的感谢ZZXXQQ和xyp1964，好像是已解决，但后来不知为何又出错了：

错误: ssget 列表错误

是不是：DXF 群组码出错了？

无痕

组码62不是必须的

当随层时候，62是没有的。