张大锤 发表于 2018-12-4 10:43:51

勾选窗口如何制作


①输入命令：xxx
②弹出窗口
      □ 块1
      □ 块2
      □ 块3
③勾选 1项 执行插入块命令

我想请教一下各位
我想做这个弹出的窗口
要找那些相关知识呢
或者有简单的例子 能否提供一下参考

Andyhon 发表于 2018-12-4 11:40:50

Ref:
https://www.afralisp.net/dialog-control-language/tutorials/index.php?category_id=12

张大锤 发表于 2018-12-4 13:10:45

tile_button:
   dialog{   
   label="测试" ;
   : button {
   label="块1";
   width=20;
   height=2;
   alignment=centered;
   }
   }

现在能 能调出来了 我想点击 块1 按钮
执行(command "-insert" "块1" pause "" "" "")
用什么函数执行 有人直到嘛。。。

张大锤 发表于 2018-12-4 13:11:40

Andyhon 发表于 2018-12-4 11:40
Ref:
https://www.afralisp.net/dialog-control-language/tutorials/index.php?category_id=12

3Q 这都是知识啊

Andyhon 发表于 2018-12-4 16:41:04

https://wiki.mcneel.com/doslib/home

实务上可选用
dos_checklist
or
dos_listbox

ljfdjjj 发表于 2018-12-7 20:41:06

张大锤 发表于 2018-12-4 13:10
tile_button:
   dialog{   
   label="测试" ;


DCL代码：
tile_button:dialog{label="测试";
:row{
:button{
label="块1";
key="k1";
width=20;
height=2;
alignment=centered;
is_cancel=true;
}
:button{
label="块2";
key="k2";
width=20;
height=2;
alignment=centered;
is_cancel=true;
}
:button{
label="块3";
key="k3";
width=20;
height=2;
alignment=centered;
is_cancel=true;
}}}
lsp调用代码：
(defun c:tt(/ dcl_id jz)
(setq jz nil)
(defun ck()
    (cond
      ((= jz 1)(command "-insert" "块1" pause "" "" ""))
      ((= jz 2)(command "-insert" "块2" pause "" "" ""))
      ((= jz 3)(command "-insert" "块3" pause "" "" ""))
    )
)
(setq dcl_id (load_dialog "tile_button.dcl"))
(if (not (new_dialog "tile_button" dcl_id))(exit))
(action_tile "k1" "(setq jz 1)")
(action_tile "k2" "(setq jz 2)")
(action_tile "k3" "(setq jz 3)")
(start_dialog)       
(unload_dialog dcl_id)
(ck)
(princ)
)

张大锤 发表于 2019-2-1 08:49:22

ljfdjjj 发表于 2018-12-7 20:41
DCL代码：
tile_button:dialog{label="测试";
:row{


十分感谢 :handshake

xyp1964 发表于 2019-2-1 10:23:22

本帖最后由 xyp1964 于 2019-2-1 10:31 编辑

;; tt(插块dcl)
(defun c:tt ()
(defun ak1 () (command "-insert" "块1" pause 1 1 0))
(defun ak2 () (command "-insert" "块2" pause 1 1 0))
(defun ak3 () (command "-insert" "块3" pause 1 1 0))
(defun ak4 () (command "-insert" "块4" pause 1 1 0))
(setq        Dlst '(":row{"
             ("k1" "" "i6" "-15" "3" "blank" "(ak1)")
             ("t1" "块1" "textpart")
             ("k2" "" "i6" "-15" "3" "blank" "(ak2)")
             ("t2" "块2" "textpart")
             ("k3" "" "i6" "-15" "3" "blank" "(ak3)")
             ("t3" "块3" "textpart")
             ("k4" "" "i6" "-15" "3" "blank" "(ak4)")
             ("t4" "块4" "textpart")
             "}"
              )
)
(xyp-Dcl-Init Dlst "【插图块】" t)
(princ)
)

张大锤 发表于 2019-2-1 10:52:58

xyp1964 发表于 2019-2-1 10:23


这个是用lisp 直接调用dcl 嘛
不需要再多创建一个dcl文件了炫酷

张大锤 发表于 2019-2-1 10:59:01

xyp1964 发表于 2019-2-1 10:23


xyp-Dcl-Init
这个能发出来嘛~~~~ 嘿嘿
页: [1]
查看完整版本: 勾选窗口如何制作