请教高手，这个程式如何实现，谢了！
(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))
已经在群里面解决，群众力量大啊！谢谢了！
感谢 (1468225785) 15:39:42 这位朋友的指教！
页:
[1]