关于dcl控件动作触发问题

aws

1. (defun c:tt()
   
2.   (setq lst
   
3.     '(
   
4.        "diy:dialog{"
   
5.        "label = \"dcl名称\";"
   
6.        ":popup_list{"
   
7.        "label = \"选择材料：\";"
   
8.        "key = \"k-a\";"
   
9.        "width = 40;"
   
10.        "fixed_width = true;"
    
11.        "list = \"钢铁\\n玻璃\\n木头\";"
    
12.        "}"
    
13.        ":edit_box{"
    
14.        "key = \"k-b\";"
    
15.        "label = \"属性\";"
    
16.        "value = 1;"
    
17.        "}"
    
18.        ":button{"
    
19.        "key = \"k-c\";"
    
20.        "label = \"拾取曲线\";"
    
21.        "}"
    
22.        ":edit_box{"
    
23.        "key = \"k-d\";"
    
24.        "label = \"图元名\";"
    
25.       
    
26.        "}"
    
27.        "ok_cancel;"
    
28.        "}"
    
29.      )
    
30.   )
    
31.   (setq dcl_file(vl-filename-mktemp nil nil ".dcl"))
    
32.   (setq file(open dcl_file "w"))
    
33.   (foreach str lst(write-line str file))
    
34.   (close file)
    
35.   (setq dcl_id(load_dialog dcl_file))
    
36.   (vl-file-delete dcl_file)
    
37.   (new_dialog "diy" dcl_id)
    
38.   
    
39.   (action_tile "ok" "(done_dialog 1)")
    
40.   (action_tile "cancel" "(done_dialog 0)")
    
41.   (action_tile "k-a" "(popup(setq v $value))")
    
42.   (action_tile "k-c" "(button)")
    
43.   
    
44.   (setq idd(start_dialog))
    
45.   (unload_dialog dcl_id)
    
46.   (princ)
    
47. )
    
48. ;---下拉菜单触发
    
49. (defun popup(v /)
    
50.   (cond
    
51.     ((= v 0)(set_tile "k-b" 1))
    
52.     ((= v 1)(set_tile "k-b" 2))
    
53.     ((= v 2)(set_tile "k-b" 3))
    
54.   )
    
55. )
    
56. ;---按钮菜单触发
    
57. (defun button(v /)
    
58.     (set_tile "k-d"(car(entsel "选取一根曲线：")))
    
59. )
    
60. 请教大家，这是一个错误的程序，我想要实现这样的功能，请问怎么修改呢？

(defun c:tt()<br />   (setq lst<br />     '(<br />        "diy:dialog{"<br />        "label = \"dcl名称\";"<br />        ":popup_list{"<br />        "label = \"选择材料：\";"<br />        "key = \"k-a\";"<br />        "width = 40;"<br />        "fixed_width = true;"<br />        "list = \"钢铁\\n玻璃\\n木头\";"<br />        "}"<br />        ":edit_box{"<br />        "key = \"k-b\";"<br />        "label = \"属性\";"<br />        "value = 1;"<br />        "}"<br />        ":button{"<br />        "key = \"k-c\";"<br />        "label = \"拾取曲线\";"<br />        "}"<br />        ":edit_box{"<br />        "key = \"k-d\";"<br />        "label = \"图元名\";"<br />       <br />        "}"<br />        "ok_cancel;"<br />        "}"<br />      )<br />   )<br />   (setq dcl_file(vl-filename-mktemp nil nil ".dcl"))<br />   (setq file(open dcl_file "w"))<br />   (foreach str lst(write-line str file))<br />   (close file)<br />   (setq dcl_id(load_dialog dcl_file))<br />   (vl-file-delete dcl_file)<br />   (new_dialog "diy" dcl_id)<br />   <br />   (action_tile "ok" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (action_tile "k-a" "(popup(setq v $value))")<br />   (action_tile "k-c" "(button)")<br />   <br />   (setq idd(start_dialog))<br />   (unload_dialog dcl_id)<br />   (princ)<br /> )<br /> ;---下拉菜单触发<br /> (defun popup(v /)<br />   (cond<br />     ((= v 0)(set_tile "k-b" 1))<br />     ((= v 1)(set_tile "k-b" 2))<br />     ((= v 2)(set_tile "k-b" 3))<br />   )<br /> )<br /> ;---按钮菜单触发<br /> (defun button(v /)<br />     (set_tile "k-d"(car(entsel "选取一根曲线：")))<br /> )<br /> 请教大家，这是一个错误的程序，我想要实现这样的功能，请问怎么修改呢？

xyp1964

1. (defun c:tt ()
   
2.   (setq lst '("diy:dialog{label=\"dcl名称\";"
   
3.                ":popup_list{label=\"选择材料：\";key=\"k-a\";width=40;fixed_width=true;list=\"钢铁\\n玻璃\\n木头\";}"
   
4.                ":edit_box{key=\"k-b\";label=\"属性\";value=1;}"
   
5.                ":button{key=\"k-c\";label=\"拾取曲线\";}"
   
6.                ":edit_box{key=\"k-d\";label=\"图元名\";}"
   
7.                "ok_cancel;}"
   
8.                )
   
9.         dcl_file (vl-filename-mktemp nil nil ".dcl")
   
10.         file (open dcl_file "w")
    
11.   )
    
12.   (foreach str lst (write-line str file))
    
13.   (close file)
    
14.   (setq dcl_id (load_dialog dcl_file))
    
15.   (vl-file-delete dcl_file)
    
16.   (new_dialog "diy" dcl_id)
    
17.   (action_tile "ok" "(done_dialog 1)")
    
18.   (action_tile "cancel" "(done_dialog 0)")
    
19.   (action_tile "k-a" "(popup(setq v $value))")
    
20.   (action_tile "k-c" "(done_dialog 2)")
    
21.   (if s1
    
22.     (set_tile "k-d" (vl-prin1-to-string s1))
    
23.   )
    
24.   (setq id (start_dialog))
    
25.   (unload_dialog dcl_id)
    
26.   (cond ((= id 2)
    
27.          (if (setq s1 (car (entsel "选取一根曲线: ")))
    
28.            (c:tt)
    
29.          )
    
30.         )
    
31.   )
    
32.   (princ)
    
33. )
    
34. (defun popup (v /)
    
35.   (cond ((= v "0") (set_tile "k-b" "1"))
    
36.         ((= v "1") (set_tile "k-b" "2"))
    
37.         ((= v "2") (set_tile "k-b" "3"))
    
38.   )
    
39. )

(defun c:tt ()<br />   (setq lst '("diy:dialog{label=\"dcl名称\";"<br />                ":popup_list{label=\"选择材料：\";key=\"k-a\";width=40;fixed_width=true;list=\"钢铁\\n玻璃\\n木头\";}"<br />                ":edit_box{key=\"k-b\";label=\"属性\";value=1;}"<br />                ":button{key=\"k-c\";label=\"拾取曲线\";}"<br />                ":edit_box{key=\"k-d\";label=\"图元名\";}"<br />                "ok_cancel;}"<br />                )<br />         dcl_file (vl-filename-mktemp nil nil ".dcl")<br />         file (open dcl_file "w")<br />   )<br />   (foreach str lst (write-line str file))<br />   (close file)<br />   (setq dcl_id (load_dialog dcl_file))<br />   (vl-file-delete dcl_file)<br />   (new_dialog "diy" dcl_id)<br />   (action_tile "ok" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (action_tile "k-a" "(popup(setq v $value))")<br />   (action_tile "k-c" "(done_dialog 2)")<br />   (if s1<br />     (set_tile "k-d" (vl-prin1-to-string s1))<br />   )<br />   (setq id (start_dialog))<br />   (unload_dialog dcl_id)<br />   (cond ((= id 2)<br />          (if (setq s1 (car (entsel "选取一根曲线: ")))<br />            (c:tt)<br />          )<br />         )<br />   )<br />   (princ)<br /> )<br /> (defun popup (v /)<br />   (cond ((= v "0") (set_tile "k-b" "1"))<br />         ((= v "1") (set_tile "k-b" "2"))<br />         ((= v "2") (set_tile "k-b" "3"))<br />   )<br /> )

aws

请教大家，这是一个错误的程序，我想要实现这样的功能，请问怎么修改呢？

aws

xyp1964 发表于 2024-7-27 21:39

感谢院长！又学到了

xyp1964

1. (defun c:tt (/ Dlst ll1 ll2)
   
2.   (defun main-pro () (princ))
   
3.   (defun bu1 ()
   
4.     (if        (setq s1 (car (entsel "选取一根曲线: ")))
   
5.       (setq k-d (vl-prin1-to-string s1))
   
6.       (setq k-d "")
   
7.     )
   
8.     (sub)
   
9.   )
   
10.   (defun ak-a ()
    
11.     (xyp-Dcl-Gettile '("k-a"))
    
12.     (cond ((= k-a "0") (set_tile "k-b" "1"))
    
13.           ((= k-a "1") (set_tile "k-b" "2"))
    
14.           ((= k-a "2") (set_tile "k-b" "3"))
    
15.     )
    
16.   )
    
17.   (defun sub ()
    
18.     (setq ll1 '(k-a k-b k-d)
    
19.           ll2 '("0" "" "")
    
20.     )
    
21.     (xyp-initSet ll1 ll2)
    
22.     (setq lst1 '("钢铁" "玻璃" "木头")
    
23.           Dlst '(("k-a" "材料" "poplist" "lst1" "20" "(ak-a)")
    
24.                  ("k-b" "属性" "str" "20")
    
25.                  ("k-c" "拾取曲线" "button" "(bu1)")
    
26.                  ("k-d" "图元名" "str" "20")
    
27.                 )
    
28.     )
    
29.     (if        (= (xyp-Dcl-Init Dlst "【DCL练习】" t) 1)
    
30.       (main-pro)
    
31.     )
    
32.   )
    
33.   (sub)
    
34.   (princ)
    
35. )

(defun c:tt (/ Dlst ll1 ll2)<br />   (defun main-pro () (princ))<br />   (defun bu1 ()<br />     (if        (setq s1 (car (entsel "选取一根曲线: ")))<br />       (setq k-d (vl-prin1-to-string s1))<br />       (setq k-d "")<br />     )<br />     (sub)<br />   )<br />   (defun ak-a ()<br />     (xyp-Dcl-Gettile '("k-a"))<br />     (cond ((= k-a "0") (set_tile "k-b" "1"))<br />           ((= k-a "1") (set_tile "k-b" "2"))<br />           ((= k-a "2") (set_tile "k-b" "3"))<br />     )<br />   )<br />   (defun sub ()<br />     (setq ll1 '(k-a k-b k-d)<br />           ll2 '("0" "" "")<br />     )<br />     (xyp-initSet ll1 ll2)<br />     (setq lst1 '("钢铁" "玻璃" "木头")<br />           Dlst '(("k-a" "材料" "poplist" "lst1" "20" "(ak-a)")<br />                  ("k-b" "属性" "str" "20")<br />                  ("k-c" "拾取曲线" "button" "(bu1)")<br />                  ("k-d" "图元名" "str" "20")<br />                 )<br />     )<br />     (if        (= (xyp-Dcl-Init Dlst "【DCL练习】" t) 1)<br />       (main-pro)<br />     )<br />   )<br />   (sub)<br />   (princ)<br /> )

gble119

多谢分享  学习了