忽略图层前缀，修改图层颜色，改为修改图层线型如何操作
(defun N5-get-layers (/ lst a)(SETQ LST (LIST (CDADR (tblnext "layer" t))))
(while (setq a (cdadr (tblnext "layer")))
(setq lst (cons a lst))
)
lst
)
(defun c:ct (/ LST LAYER) ;把"A"，"B"改成自己想要的，带WALL的图层注意要大小写
(vl-load-com)
(SETQ LST (N5-GET-LAYERS))
(FOREACH LAYER LST
(cond
((= layer "0") (N5-changelayercolor LAYER 1))
((= layer "JZD") (N5-changelayercolor LAYER 5))
((and (>= (strlen layer) 7);这句别动
(="0q-承台"(substr layer (- (strlen layer) 6)))
)
(N5-changelayercolor LAYER 8)
)
((and (>= (strlen layer) 5)
(="0m-桩"(substr layer (- (strlen layer) 4)))
)
(N5-changelayercolor LAYER 6)
)
)
)
(PRIN1)
)
页:
[1]