[编程申请]：请教变换图层的lsp

amengsq

看了变换图层的lsp，甚是喜爱，帮了很大的忙，如何调试成，还能设定该层的颜色与线性（程序运行中不要对话框和提示）
(defun c:1 () (mkla1 "1") (princ))
(defun c:2 () (mkla1 "2") (princ))
(defun c:3 () (mkla1 "3") (princ))
(defun c:4 () (mkla1 "4") (princ))
(defun c:5 () (mkla1 "5") (princ))
(defun c:6 () (mkla1 "6") (princ))
(defun c:7 () (mkla1 "7") (princ))
(defun c:8 () (mkla1 "8") (princ))
(defun c:9 () (mkla1 "9") (princ))
(defun c:10 () (mkla1 "10") (princ))
(defun mkla1 (name)
  (If (= (Tblsearch "layer" name) nil)
    (Command "layer" "m" name "")
    (Command "layer" "t" name "s" name "")
  )

xyp1964

2. [FONT=courier new](defun c:1 () (mklaco "1" 1) (princ))
   
3. (defun c:2 () (mklaco "2" 2) (princ))
   
4. (defun c:3 () (mklaco "3" 3) (princ))
   
5. (defun c:4 () (mklaco "4" 4) (princ))
   
6. (defun c:5 () (mklaco "5" 5) (princ))
   
7. (defun c:6 () (mklaco "6" 6) (princ))
   
8. (defun c:7 () (mklaco "7" 7) (princ))
   
9. (defun c:8 () (mklaco "8" 8) (princ))
   
10. (defun c:9 () (mklaco "9" 9) (princ))
    
11. (defun c:10 () (mklaco "10" 10) (princ))
    
12. (defun mkla (name)
    
13.   (If (= (Tblsearch "layer" name) nil)
    
14.     (Command "layer" "m" name "")
    
15.     (Command "layer" "t" name "s" name "")
    
16.   )
    
17. )
    
18. (defun mklaco (name color)
    
19.   (If (= (Tblsearch "layer" name) nil)
    
20.     (Command "layer" "m" name "c" color name "")
    
21.     (Command "layer" "t" name "s" name "c" color name "")
    
22.   )
    
23. )
    
24. (defun mklacolt        (name color ltype)
    
25.   (If (= (Tblsearch "layer" name) nil)
    
26.     (Command "layer" "m" name "c" color name "lt" ltype name "")
    
27.     (Command "layer" "t" name "s" name "c" color name "lt" ltype name "")
    
28.   )
    
29. )
    
30. ;;;颜色层
    
31. (defun c:ysc ()
    
32.   (if (null int)
    
33.     (setq int 1)
    
34.   )
    
35.   (SETQ INT (UINT 1 "" "\n颜色号" INT))
    
36.   (if (<= int 255)
    
37.     (mkla (rtos int 2 0) int)
    
38.     (princ "\n颜色号不能大于255! ")
    
39.   )
    
40.   (princ)
    
41. )[/FONT]

[FONT=courier new](defun c:1 () (mklaco "1" 1) (princ))<br /> (defun c:2 () (mklaco "2" 2) (princ))<br /> (defun c:3 () (mklaco "3" 3) (princ))<br /> (defun c:4 () (mklaco "4" 4) (princ))<br /> (defun c:5 () (mklaco "5" 5) (princ))<br /> (defun c:6 () (mklaco "6" 6) (princ))<br /> (defun c:7 () (mklaco "7" 7) (princ))<br /> (defun c:8 () (mklaco "8" 8) (princ))<br /> (defun c:9 () (mklaco "9" 9) (princ))<br /> (defun c:10 () (mklaco "10" 10) (princ))<br /> (defun mkla (name)<br />   (If (= (Tblsearch "layer" name) nil)<br />     (Command "layer" "m" name "")<br />     (Command "layer" "t" name "s" name "")<br />   )<br /> )<br /> (defun mklaco (name color)<br />   (If (= (Tblsearch "layer" name) nil)<br />     (Command "layer" "m" name "c" color name "")<br />     (Command "layer" "t" name "s" name "c" color name "")<br />   )<br /> )<br /> (defun mklacolt        (name color ltype)<br />   (If (= (Tblsearch "layer" name) nil)<br />     (Command "layer" "m" name "c" color name "lt" ltype name "")<br />     (Command "layer" "t" name "s" name "c" color name "lt" ltype name "")<br />   )<br /> )<br /> ;;;颜色层<br /> (defun c:ysc ()<br />   (if (null int)<br />     (setq int 1)<br />   )<br />   (SETQ INT (UINT 1 "" "\n颜色号" INT))<br />   (if (<= int 255)<br />     (mkla (rtos int 2 0) int)<br />     (princ "\n颜色号不能大于255! ")<br />   )<br />   (princ)<br /> )[/FONT]

amengsq

太好了，功能挺全的阿
但是使用出现几个问题：
1.使用ysc，出现no function definition: UINT
2.。第一句改成(defun c:1 () (mklacolt "1" 2  centerx2）(princ))，出现提示：无效的选项关键字。
无效的选项关键字

xyp1964

1、加载通用函数xyp_lib.vlx
2、线型名称属字符串，要加半角双引号：(defun c:1 () (mklacolt "1" 2 "centerx2")(princ))

amengsq

明白了，ysc，再给优化一下吧，看来也是个好程序，十分感谢xyp1964兄的源码提供，这个软件太值得珍藏了，你的专业图层设置里面，还没有线性的设置呢，绝对经典！