[求助]：可以编出个按颜色选择字体的程序吗？

and2008

如题。

doubao

当然可以。

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314
   
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. ;;;按颜色选择物体
    
15. (defun c:test ()
    
16.   (while (not (setq s1 (car(entsel "\n选择任意目标实体: ")))))
    
17.   (princ"\n框选选择范围 : ")
    
18.   (setq        int (xyp-get-Color s1)
    
19.         ss  (ssget)
    
20.         ss1 (ssadd)
    
21.         i   -1
    
22.   )
    
23.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
24.     (if        (and (= (xyp-get-Color s1) int)
    
25.              (= (xyp-get-dxf 0 s1) "TEXT")
    
26.         )
    
27.       (progn
    
28.         (setq ss1 (ssadd s1 ss1))
    
29.         (princ ".")
    
30.       )
    
31.     )
    
32.   )
    
33.   (princ "\n物体集名称: !ss1")
    
34.   (xyp-redraw3 ss1)
    
35.   ss1
    
36. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314<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 /> ;;;按颜色选择物体<br /> (defun c:test ()<br />   (while (not (setq s1 (car(entsel "\n选择任意目标实体: ")))))<br />   (princ"\n框选选择范围 : ")<br />   (setq        int (xyp-get-Color s1)<br />         ss  (ssget)<br />         ss1 (ssadd)<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (if        (and (= (xyp-get-Color s1) int)<br />              (= (xyp-get-dxf 0 s1) "TEXT")<br />         )<br />       (progn<br />         (setq ss1 (ssadd s1 ss1))<br />         (princ ".")<br />       )<br />     )<br />   )<br />   (princ "\n物体集名称: !ss1")<br />   (xyp-redraw3 ss1)<br />   ss1<br /> )[/FONT]

neuwzy

高手

and2008

命令:  TEST
选择任意目标实体:
框选选择范围: no function definition: XYP-GET-COLOR

xyp大侠，出现上面提示，是不是没加载你的通用函数呀

雨箭风刀

最初由 xyp1964 发布
[B][CODE](load "xyp_lib.vlx")  ;版本 V.20060314
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1?.. [/B]

对随层有效么？