求指教个DCL的问题

rocking2008

lee50310 发表于 2022-2-9 13:04
ok,有空我再看看!

其实我的意思是：
1、通过DCL上勾选A选项，实现加载A代码；DCL上勾选B选项，实现加载B代码；
2、通过DCL上勾选，        则加载C代码，   DCL上不勾选，      则不加载C代码；

以上2个功能，DCL和LSP中分别如何修改。

feng582304

直接去弄个dcl对话框生成器就行啦。

wzg356

(defun getdate (/  lst_str str file f get_date dcl_id datalst)
        (setq lst_str '(
                "test:dialog {"
                ;":radio_column {"
                "   :radio_button {key = \"key1\" ;label = \"上方标注说明\" ;}"
                "   :radio_button {key = \"key2\" ;label = \"下方标注说明\" ;}"
                ;"}"
                ":toggle {key = \"key3\" ;label = \"是否生成\" ;}"
                "ok_cancel;"
                "}"
                )
        )
        (setq file (vl-filename-mktemp "DclTemp.dcl"))
        (setq f (open file "w"))
        (foreach str lst_str        (princ "\n" f)(princ str f))
        (close f)
        (defun get_date ()(mapcar 'get_tile(list "key1" "key2" "key3" "..." "...")))
        (new_dialog "test" (setq dcl_id (load_dialog  file)))
        (action_tile "accept" "(setq datalst(get_date))(done_dialog 1)")
        (setq dd (start_dialog))
        (unload_dialog dcl_id)
        (vl-file-delete file);删除临时dcl文件       
        datalst
)
;以上为对话框功能
(defun c:tt5 ( / datalst)
        (setq datalst(getdate));对话框取得数据
        (cond
                ;以下根据对话框输出结果添加代码
                ((= (car datalst) "1");如果DCL上选择“key1上方标注说明”
                        (setq pt2(polar pt (+ ang (* 0.5 pi)) (* size20170516 1.2)))
                        (setq pt1(polar pt (+ pi ang (* 0.5 pi))  (* size20170516 1.2)))
                )
                ((= (cadr datalst) "1");如果DCL上选择“key2下方标注说明”
                        (setq pt1(polar pt (+ ang (* 0.5 pi)) (* size20170516 1.2)))
                        (setq pt2(polar pt (+ pi ang (* 0.5 pi))  (* size20170516 1.2)))
                )
                ((= (caddr datalst) "1");如果DCL上选择“key3打钩”
                        .....
                )
                ((= (caddr datalst) "0");如果DCL上选择“key3不打钩”
                        .....
                )
                (t nil)
        )
)