勾选窗口如何制作

张大锤

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

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

Andyhon

Ref:
https://www.afralisp.net/dialog- ... .php?category_id=12

张大锤

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

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

张大锤

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

3Q 这都是知识啊

Andyhon

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

实务上可选用
dos_checklist
or
dos_listbox

ljfdjjj

张大锤 发表于 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)
)

张大锤

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

十分感谢

xyp1964

1. ;; tt(插块dcl)
   
2. (defun c:tt ()
   
3.   (defun ak1 () (command "-insert" "块1" pause 1 1 0))
   
4.   (defun ak2 () (command "-insert" "块2" pause 1 1 0))
   
5.   (defun ak3 () (command "-insert" "块3" pause 1 1 0))
   
6.   (defun ak4 () (command "-insert" "块4" pause 1 1 0))
   
7.   (setq        Dlst '(":row{"
   
8.                ("k1" "" "i6" "-15" "3" "blank" "(ak1)")
   
9.                ("t1" "块1" "textpart")
   
10.                ("k2" "" "i6" "-15" "3" "blank" "(ak2)")
    
11.                ("t2" "块2" "textpart")
    
12.                ("k3" "" "i6" "-15" "3" "blank" "(ak3)")
    
13.                ("t3" "块3" "textpart")
    
14.                ("k4" "" "i6" "-15" "3" "blank" "(ak4)")
    
15.                ("t4" "块4" "textpart")
    
16.                "}"
    
17.               )
    
18.   )
    
19.   (xyp-Dcl-Init Dlst "【插图块】" t)
    
20.   (princ)
    
21. )

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

张大锤

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

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

张大锤

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

xyp-Dcl-Init
这个能发出来嘛~~~~ 嘿嘿