兔爸哥 发表于 2022-6-11 22:36
("an1" "确定" "qd" "10" "2" "(abc)" 1)
这个如果要点击后关闭DCL然后执行
(defun c:tt()
(setq dcl-lst '(("dcl" "DCL测试")
("an1" "确定" "qd" "10" "2" "" 1)
("}")
)
)
(if(=(jjj-dcl-make dcl-lst "" 0)1)
(command "ucs" "o" p0)
)
)