请教高手，这个程式如何实现，谢了！

安柱

(DEFUN C:HD (/ a s)
(princ"边缘程式___线性标注")
(setq b(tblnext "layer"))
(setq s(tblsearch b dim))
(if (= s "dim")
    (progn
         (setq a "dim")
)
    (progn
         (setq a "标注")
)
)
(COMMAND "LAYER" "S"  a "")
(COMMAND"dimlinear" ))

这个程式中，我是想达到这样的目的：线性标注时，可自动选择操作图层为（标注）或（DIM）层，
在上面我编好的，无办法赋值给S，我是业余方便自己工作用的，请高手指点，感激不尽！

安柱

(DEFUN C:HD (/ a)
(princ"边缘程式___线性标注")
(setq oldcm(getvar "cmdecho"))
(setvar"cmdecho"0)
(setq a(
        if (tblsearch "layer" "dim")
        "dim" "标注"))
(COMMAND "LAYER" "S" a "")
(COMMAND"dimlinear" )
(setvar"cmdecho" oldcm)
(princ))

已经在群里面解决，群众力量大啊！谢谢了！
感谢 [ZZXXQQ](1468225785) 15:39:42 这位朋友的指教！