如何静默方式保存CAD图层状态，不回显到命令行，不弹出文本窗口

sfzyr · 发表于 2021-7-4 19:03:00

(defun c:lAyAS2 (/ LS_Ord_N)
  ;(setq order (strcase order))
  (if (not (or (= (type $LayerState$) 'LIST)
            (= $layerState$ nil)
         )
   )
(setq $layerState$ nil)
  )
  (graphscr)
  (setvar "CMDECHO" 0)
  (setq       LS_Ord_N
      (strcat "LS-" "ORD" (itoa (+ (length $LayerState$) 1)))
  )
  (vl-cmdf "_.layer" "A" "S" LS_Ord_N "" "" "");如何静默保存图层状态，不要回显到命令行，也不要弹出文本窗口；
  (setq $LayerState$ (cons (cons order LS_Ord_N) $LayerState$))
  (setvar "CMDECHO" 1)
  (princ)
)