忽略图层前缀，修改图层颜色，改为修改图层线型如何操作

l452002882

(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)
)