分享一个DCL函数源码，高手请无视

ljfdjjj

兔爸哥 发表于 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)
)
)