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

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

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

(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 发表于 2021-7-4 19:05:00

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

tigcat 发表于 2022-7-12 22:58:00

(layerstate-restore "lay8" nil 5)

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