[求助]：请教lisp高手关于新建多个图层的问题

曹杰

我想请教高手们能不能用lisp写出一次新建多个图层：一个图层里包括图层名称、图层颜色、线宽设置以及图层说明，这能用lisp写出吗？哪位高手能帮忙写一个样例吗？

eachy

2. 
   
3. ;;Name  - string , layer name
   
4. ;;Color - Int , layer indexcolor
   
5. ;;lw    - Layer lineweight 0.0毫米 - 2.11毫米
   
6. ;;des   - Description
   
7. (defun faddlyr (name color lw des / lyrs lyr)
   
8.   (setq
   
9.     lyrs (vlax-get-property
   
10.            (vlax-get-property (vlax-get-acad-object) 'activedocument)
    
11.            'layers
    
12.          )
    
13.   )
    
14.   (if (not (tblsearch "layer" name))
    
15.     (progn
    
16.       (setq lyr (vla-add lyrs name))
    
17.       (if (and color ;_ 此 仅支持 1 - 255 号色
    
18.                (and (>= color 1)
    
19.                     (<= color 255)
    
20.                )
    
21.           )
    
22.         (vlax-put-property lyr color)
    
23.       )
    
24.       (if lw
    
25.         (vlax-put-property lyr 'lineweight lw)
    
26.       )
    
27.       (if des
    
28.         (vlax-put-property lyr 'Description des)
    
29.       )
    
30.     )
    
31.   )
    
32. )
    
33. ;;example
    
34. ;|
    
35. (mapcar        '(lambda (x)
    
36.            (eval (cons 'faddlyr x))
    
37.          )
    
38.         '(("124" 1 0 "Road") ("125" 2 0 "Street"))
    
39. )|;

<br /> ;;Name  - string , layer name<br /> ;;Color - Int , layer indexcolor<br /> ;;lw    - Layer lineweight 0.0毫米 - 2.11毫米<br /> ;;des   - Description<br /> (defun faddlyr (name color lw des / lyrs lyr)<br />   (setq<br />     lyrs (vlax-get-property<br />            (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />            'layers<br />          )<br />   )<br />   (if (not (tblsearch "layer" name))<br />     (progn<br />       (setq lyr (vla-add lyrs name))<br />       (if (and color ;_ 此 仅支持 1 - 255 号色<br />                (and (>= color 1)<br />                     (<= color 255)<br />                )<br />           )<br />         (vlax-put-property lyr color)<br />       )<br />       (if lw<br />         (vlax-put-property lyr 'lineweight lw)<br />       )<br />       (if des<br />         (vlax-put-property lyr 'Description des)<br />       )<br />     )<br />   )<br /> )<br /> ;;example<br /> ;|<br /> (mapcar        '(lambda (x)<br />            (eval (cons 'faddlyr x))<br />          )<br />         '(("124" 1 0 "Road") ("125" 2 0 "Street"))<br /> )|;

sdwy19691229

(defun c:JZ() (command "-layer" "n" "zxxc" "c" "4" "zxxc" "lt" "center" "zxxc" "")
      (princ ))
是只建了一个图层，不知道你能合用吗？

曹杰

谢谢eachy斑主及 sdwy19691229帮助。不知在eachy斑主的写的程序里加上如何加上自己定义的命令：mlayer