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

sfzyr

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

sfzyr

采用layerstatesave命令，也无法静默方式。即不要弹出对话框，不要回显到命令行文本窗口，也不要总是闪烁一下文本窗口。

tigcat

sfzyr 发表于 2021-7-4 19:05
采用layerstatesave命令，也无法静默方式。即不要弹出对话框，不要回显到命令行文本窗口，也不要总是闪烁一 ...

(layerstate-restore "lay8" nil 5)