[编程申请]：LINE线按角度变颜色

lengliqun

求LSP程序(能框选多选)，选择多条LINE线，设LINE线的倾角为X，　　　
　　若　  0≤x<90，则线变为颜色1（红色）
　　若　90≤x<180，则线变为颜色2（黄色）
　　若 180≤x<270，则线变为颜色3（绿色）
　　若 270≤x<360，则线变为颜色4（橙色）

eachy

2. 
   
3. (defun c:tt (/ ss n el an tf)
   
4.   (if (setq ss (ssget '((0 . "line"))))
   
5.     (progn
   
6.       (setq n -1)
   
7.       (repeat (sslength ss)
   
8.         (setq el (entget (ssname ss (setq n (1+ n))))
   
9.               an (angle (cdr (assoc 10 el)) (cdr (assoc 11 el)))
   
10.               tf (assoc 62 el)
    
11.         )
    
12.         (cond
    
13.           ((and (>= an 0.) (< an (setq _pi2 (/ pi 2))))
    
14.            (if tf
    
15.              (entmod (subst '(62 . 1) tf el))
    
16.              (entmod (append el '((62 . 1))))
    
17.            )
    
18.           )
    
19.           ((and (< an pi) (>= an _pi2))
    
20.            (if tf
    
21.              (entmod (subst '(62 . 2) tf el))
    
22.              (entmod (append el '((62 . 2))))
    
23.            )
    
24.           )
    
25.           ((and        (>= an pi)
    
26.                 (< an (* 1.5 pi))
    
27.            )
    
28.            (if tf
    
29.              (entmod (subst '(62 . 3) tf el))
    
30.              (entmod (append el '((62 . 3))))
    
31.            )
    
32.           )
    
33.           (t
    
34.            (if tf
    
35.              (entmod (subst '(62 . 4) tf el))
    
36.              (entmod (append el '((62 . 4))))
    
37.            )
    
38.           )
    
39.         )
    
40.       )
    
41.     )
    
42.   )
    
43.   (princ)
    
44. )
    

<br /> (defun c:tt (/ ss n el an tf)<br />   (if (setq ss (ssget '((0 . "line"))))<br />     (progn<br />       (setq n -1)<br />       (repeat (sslength ss)<br />         (setq el (entget (ssname ss (setq n (1+ n))))<br />               an (angle (cdr (assoc 10 el)) (cdr (assoc 11 el)))<br />               tf (assoc 62 el)<br />         )<br />         (cond<br />           ((and (>= an 0.) (< an (setq _pi2 (/ pi 2))))<br />            (if tf<br />              (entmod (subst '(62 . 1) tf el))<br />              (entmod (append el '((62 . 1))))<br />            )<br />           )<br />           ((and (< an pi) (>= an _pi2))<br />            (if tf<br />              (entmod (subst '(62 . 2) tf el))<br />              (entmod (append el '((62 . 2))))<br />            )<br />           )<br />           ((and        (>= an pi)<br />                 (< an (* 1.5 pi))<br />            )<br />            (if tf<br />              (entmod (subst '(62 . 3) tf el))<br />              (entmod (append el '((62 . 3))))<br />            )<br />           )<br />           (t<br />            (if tf<br />              (entmod (subst '(62 . 4) tf el))<br />              (entmod (append el '((62 . 4))))<br />            )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;|
    
14. 选择多条LINE线，设LINE线的倾角为X，
    
15. 　　若　  0≤x<90，则线变为颜色1（红色）
    
16. 　　若　90≤x<180，则线变为颜色2（黄色）
    
17. 　　若 180≤x<270，则线变为颜色3（绿色）
    
18. 　　若 270≤x<360，则线变为颜色4（青色）
    
19. |;
    
20. (defun c:test ()
    
21.   (CMDLA0)
    
22.   (princ"\n选择LINE线 : ")
    
23.   (setq        ss (ssget '((0 . "LINE")))
    
24.         i  -1
    
25.   )
    
26.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
27.     (setq pt10 (dxf 10 (entget s1))
    
28.           pt11 (dxf 11 (entget s1))
    
29.           x (rad2ang(angle pt10 pt11))
    
30.     )
    
31.     (cond ((and (>= x 0)(< x 90))(ch-co 1))
    
32.           ((and (>= x 90)(< x 180))(ch-co 2))
    
33.           ((and (>= x 180)(< x 270))(ch-co 3))
    
34.           ((and (>= x 270)(< x 360))(ch-co 4))
    
35.           )
    
36.     )
    
37.   (CMDLA1)
    
38. )
    
39. (defun ch-co(num)
    
40.   (command "change" s1 "" "p" "c" num ""))
    
41. [/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;|<br /> 选择多条LINE线，设LINE线的倾角为X，<br /> 　　若　  0≤x<90，则线变为颜色1（红色）<br /> 　　若　90≤x<180，则线变为颜色2（黄色）<br /> 　　若 180≤x<270，则线变为颜色3（绿色）<br /> 　　若 270≤x<360，则线变为颜色4（青色）<br /> |;<br /> (defun c:test ()<br />   (CMDLA0)<br />   (princ"\n选择LINE线 : ")<br />   (setq        ss (ssget '((0 . "LINE")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt10 (dxf 10 (entget s1))<br />           pt11 (dxf 11 (entget s1))<br />           x (rad2ang(angle pt10 pt11))<br />     )<br />     (cond ((and (>= x 0)(< x 90))(ch-co 1))<br />           ((and (>= x 90)(< x 180))(ch-co 2))<br />           ((and (>= x 180)(< x 270))(ch-co 3))<br />           ((and (>= x 270)(< x 360))(ch-co 4))<br />           )<br />     )<br />   (CMDLA1)<br /> )<br /> (defun ch-co(num)<br />   (command "change" s1 "" "p" "c" num ""))<br /> [/FONT]

lengliqun

经CAD2002测试，eachy斑竹与xyp斑竹的LSP程序均可用。谢谢。

青马

楼上的兄弟，能说说你这个命令用在什么地方吗

li809

好用，作图时方便多了