请帮我改个写法,不那么容易出错的 ,谢谢!

yangist

请教各路神仙:
(if (not (tblsearch "layer" "13Hide"))
    (command "layer" "n" "13Hide" "c" "5" "13Hide" "l" "continuous"  "13Hide" "p" "n"  "13Hide"  "")
)
上面的语句可以执行,但CAD总是隔三差五的出错,
请帮我改个写法,不那么容易出错的 ,谢谢!

ll_j

语句没有什么问题，只是不同版本的acad命令会有差异，所以会不行。试试entmake方法：

1. (setq ln "hide"
   
2.       lc 5
   
3.       ll "continuous"
   
4.       lp 0
   
5. )
   
6. (if (not (tblsearch "layer" ln))
   
7.   (entmake (list '(0 . "layer")
   
8.                  '(100 . "AcDbSymbolTableRecord")
   
9.                  '(100 . "AcDbLayerTableRecord")
   
10.                  (cons 2 ln)
    
11.                  '(70 . 0)
    
12.                  (cons 62 lc)
    
13.                  (cons 6 ll)
    
14.                  (cons 290 lp)
    
15.            )
    
16.   )
    
17. )
    

(setq ln "hide"<br />       lc 5<br />       ll "continuous"<br />       lp 0<br /> )<br /> (if (not (tblsearch "layer" ln))<br />   (entmake (list '(0 . "layer")<br />                  '(100 . "AcDbSymbolTableRecord")<br />                  '(100 . "AcDbLayerTableRecord")<br />                  (cons 2 ln)<br />                  '(70 . 0)<br />                  (cons 62 lc)<br />                  (cons 6 ll)<br />                  (cons 290 lp)<br />            )<br />   )<br /> )<br />

yangist

谢谢,很好用!