各位大神帮忙整合一下两个LISP

magicboy555

各位大神能帮我整合下下面两个LISP吗

2. (defun YH_chlayer (YH_layer / YH_S)
   
3. (if (null (tblsearch "LAYER" YH_layer))
   
4. (entmake (list
   
5. '(0 . "LAYER")
   
6. '(100 . "AcDbSymbolTableRecord")
   
7. '(100 . "AcDbLayerTableRecord")
   
8. (cons 2 YH_layer)         ;图层名称
   
9. '(70 . 0)                 ;图层状态
   
10. '(62 . 7)                 ;图层颜色
    
11. '(6 . "bylayer")          ;图层线型
    
12. )
    
13. )
    
14. )
    
15. (setq YH_S (cadr (ssgetfirst)))
    
16. (if YH_S
    
17.     (command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "")
    
18.     (setvar "clayer" YH_layer)
    
19.     )
    
20. (princ)
    
21. )
    
22. (defun c:0 ()
    
23. (YH_chlayer "0")
    
24. )
    
25. (defun c:1 ()
    
26. (YH_chlayer "轮廓线-粗")
    
27. )
    
28. (defun c:2 ()
    
29. (YH_chlayer "轮廓线-中")
    
30. )
    
31. (defun c:3 ()
    
32. (YH_chlayer "轮廓线-细")
    
33. )
    
34. (defun c:4 ()
    
35. (YH_chlayer "填充")
    
36. )
    
37. (defun c:5 ()
    
38. (YH_chlayer "标注")
    
39. )
    
40. (defun c:6 ()
    
41. (YH_chlayer "文字")
    
42. )
    
43. ;可继续添加，便于切换图层
    

(defun YH_chlayer (YH_layer / YH_S)<br /> (if (null (tblsearch "LAYER" YH_layer))<br /> (entmake (list<br /> '(0 . "LAYER")<br /> '(100 . "AcDbSymbolTableRecord")<br /> '(100 . "AcDbLayerTableRecord")<br /> (cons 2 YH_layer)         ;图层名称<br /> '(70 . 0)                 ;图层状态<br /> '(62 . 7)                 ;图层颜色<br /> '(6 . "bylayer")          ;图层线型<br /> )<br /> )<br /> )<br /> (setq YH_S (cadr (ssgetfirst)))<br /> (if YH_S<br />     (command "CHPROP" YH_S "" "la" YH_layer "c" "bylayer" "")<br />     (setvar "clayer" YH_layer)<br />     )<br /> (princ)<br /> )<br /> (defun c:0 ()<br /> (YH_chlayer "0")<br /> )<br /> (defun c:1 ()<br /> (YH_chlayer "轮廓线-粗")<br /> )<br /> (defun c:2 ()<br /> (YH_chlayer "轮廓线-中")<br /> )<br /> (defun c:3 ()<br /> (YH_chlayer "轮廓线-细")<br /> )<br /> (defun c:4 ()<br /> (YH_chlayer "填充")<br /> )<br /> (defun c:5 ()<br /> (YH_chlayer "标注")<br /> )<br /> (defun c:6 ()<br /> (YH_chlayer "文字")<br /> )<br /> ;可继续添加，便于切换图层<br />

2. (defun c:gc ()
   
3.   (prompt "选择要改变的图素: ")
   
4.   (while (setq ss (ssget))
   
5.    (prompt "输入你要改变到的层名:")
   
6.    (setq a (getstring))
   
7.    (if (not (tblsearch "layer" a))
   
8.     (progn
   
9.     (command "layer" "n" a "")
   
10.     (setq cc (getstring "输入你要的色 1-红 2-黄 3-绿 4-靑 5-蓝 6-紫 "))
    
11.     (if (= cc "")()   (command "layer" "c" cc a ""))
    
12.     (setq ll (getstring "输入你要的线型 中心线-center 虚线-hidden 假想线-divide 回车为轮廓线 实线"))
    
13.     (if (= ll "")() (command "layer" "l" ll a ""))
    
14.    ))
    
15.     (setq b (getreal "输入线型比例:   "))
    
16.     (if (= b nil)(setq b 1))
    
17.     (command "change" ss """p" "s" b "la" a  """layer" "s" a "")
    
18.     (prompt "选择要改变的图素: ")
    
19.     )
    
20. )
    

(defun c:gc ()<br />   (prompt "选择要改变的图素: ")<br />   (while (setq ss (ssget))<br />    (prompt "输入你要改变到的层名:")<br />    (setq a (getstring))<br />    (if (not (tblsearch "layer" a))<br />     (progn <br />     (command "layer" "n" a "")<br />     (setq cc (getstring "输入你要的色 1-红 2-黄 3-绿 4-靑 5-蓝 6-紫 "))<br />     (if (= cc "")()   (command "layer" "c" cc a ""))<br />     (setq ll (getstring "输入你要的线型 中心线-center 虚线-hidden 假想线-divide 回车为轮廓线 实线"))<br />     (if (= ll "")() (command "layer" "l" ll a ""))<br />    ))<br />     (setq b (getreal "输入线型比例:   "))<br />     (if (= b nil)(setq b 1))<br />     (command "change" ss """p" "s" b "la" a  """layer" "s" a "")<br />     (prompt "选择要改变的图素: ")<br />     )<br /> )<br />

比如在第一个执行命令时，比如按键盘2然后空格，命令发现没有2的图层，则新建图层，这是第一个命令可以实现的。我想在这个命令新建图层的那一步加上第二条命令的部分内容。也就是建层的话会要求你进行设置。而不是自动新建默认的图层

magicboy555

求大神帮下忙啊！谢谢啦！

magicboy555

怎么没人呢

wzg356

我看糊涂了

鱼与熊掌

关键是代码太难用。

ll_j

这两个程序涉及多个命令，这些命令虽然看似关联，实际相互独立，程序整合起来没有什么意义，不怕麻烦，写在一起也可以。
程序中相关图层的几个概念是可以整合的，但如果像楼主提供的这种代码不整合也罢，这些程序原本就是某人为了简便的，如果强行整合，只会又增加麻烦，不如直接使用acad命令了。
关于图层是有东西可写的（论坛也有一些程序，不妨搜索试试），不过真写好了还是要有点功底的，毕竟acad（及ET）本身关于图层的功能就比较全面。
如果有兴趣，楼主这样的程序功能可以作为初学者练手用。如果非要整合不可，楼主也应该说明到底整合后要达到怎样的功能。

magicboy555

ll_j 发表于 2014-11-19 09:05
这两个程序涉及多个命令，这些命令虽然看似关联，实际相互独立，程序整合起来没有什么意义，不怕麻烦，写在 ...

其实就是在没有你自定义的图层的时候，会提示要你自己定义其颜色等参数，现在只要颜色就可以了