练习对话框出问题，求助修改

永不言弃

文本框内容等于点击列表内容，点击确定修改文字高度



(defun c:tt ()
;;;;;对话框
  (vl-load-com)
  (setq        newname        (vl-filename-mktemp "txsize.dcl")
        f        (open newname "w")
  )
  (write-line "txsize:dialog { label=\"文字高度设置\";" f)
  (write-line
    ":edit_box {label=\"文字高度\";key=\"txtsiz\";is_default=ture; }"
    f
  )
  (write-line
    ":list_box  {label=\"选择字高\";key=\"zgxz\";is_default=ture; }"
    f
  )
  (write-line "ok_only;} " f)
  (close f)
  (new_dialog "txsize" (setq dcl_id (load_dialog newname)))
  (set_tile "txtsiz" "45")
  (start_list "zgxz")
  (mapcar 'add_list (setq zgxz (list "1.0" "1.5" "2.0" "3.0"  "5.0"  "10.0" "15.0" "20.0" "25.0" "30.0")))
  (end_list)
  (action_tile "OK" "(get_maisiz)(done_dialog 1)")
  (action_tile "zgxz" "(get_maisiz)(done_dialog 2)")
  (setq dd (start_dialog))
  (cond        ((= dd 1)
         (get_maisiz)
        )
        ((= dd 2)
         (get_maisiz)
        )
  )
  (start_dialog)
  (unload_dialog dcl_id)
  (vl-file-delete newname)
  (princ)
)

(defun get_maisiz()
  (setq pp (get_tile "txtsiz"))
  (print "AA")
  (print pp)
  )

mmmmmm

没必要这种联动，直接使用popup_list就行了。

永不言弃

mmmmmm 发表于 2015-11-28 11:37
没必要这种联动，直接使用popup_list就行了。

之前学了一些，都不记得怎么做的了，哥们能不能帮我实现一下，谢谢

mmmmmm

(write-line
    ":list_box  {label=\"选择字高\";key=\"zgxz\";is_default=ture; }"
    f
  )
改成
(write-line
    ":popup_list  {label=\"选择字高\";key=\"zgxz\";is_default=ture; }"
    f
  )

ZZXXQQ

2. (defun c:tt ()
   
3. ;;;;;对话框
   
4.   (vl-load-com)
   
5.   (setq newname (vl-filename-mktemp "txsize.dcl")
   
6.         f (open newname "w"))
   
7.   (write-line "txsize:dialog{label="文字高度设置";" f)
   
8.   (write-line ":edit_box{label="文字高度";key="txtsiz";is_default=ture;}" f)
   
9.   (write-line ":list_box{label="选择字高";key="zgxz";is_default=ture;}" f)
   
10.   (write-line "ok_only;} " f)
    
11.   (close f)
    
12.   (new_dialog "txsize" (setq dcl_id (load_dialog newname)))
    
13.   (set_tile "txtsiz" "45")
    
14.   (start_list "zgxz")
    
15.   (mapcar 'add_list (setq zgxz (list "1.0" "1.5" "2.0" "3.0" "5.0" "10.0" "15.0" "20.0" "25.0" "30.0")))
    
16.   (end_list)
    
17.   (action_tile "OK" "(get_maisiz)(done_dialog 1)")
    
18.   (action_tile "zgxz" "(set_tile "txtsiz" (nth (atoi(get_tile "zgxz")) zgxz))")
    
19.   (setq dd (start_dialog))
    
20.   (if (= dd 1) (princ pp))
    
21.   (start_dialog)
    
22.   (unload_dialog dcl_id)
    
23.   (vl-file-delete newname)
    
24.   (princ)
    
25. )
    
26. (defun get_maisiz ()
    
27.   (setq pp (get_tile "txtsiz"))
    
28.   (print "AA")
    
29.   (print pp)
    
30. )
    

(defun c:tt ()<br /> ;;;;;对话框<br />   (vl-load-com)<br />   (setq newname (vl-filename-mktemp "txsize.dcl")<br />         f (open newname "w"))<br />   (write-line "txsize:dialog{label="文字高度设置";" f)<br />   (write-line ":edit_box{label="文字高度";key="txtsiz";is_default=ture;}" f)<br />   (write-line ":list_box{label="选择字高";key="zgxz";is_default=ture;}" f)<br />   (write-line "ok_only;} " f)<br />   (close f)<br />   (new_dialog "txsize" (setq dcl_id (load_dialog newname)))<br />   (set_tile "txtsiz" "45")<br />   (start_list "zgxz")<br />   (mapcar 'add_list (setq zgxz (list "1.0" "1.5" "2.0" "3.0" "5.0" "10.0" "15.0" "20.0" "25.0" "30.0")))<br />   (end_list)<br />   (action_tile "OK" "(get_maisiz)(done_dialog 1)")<br />   (action_tile "zgxz" "(set_tile "txtsiz" (nth (atoi(get_tile "zgxz")) zgxz))")<br />   (setq dd (start_dialog))<br />   (if (= dd 1) (princ pp))<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (vl-file-delete newname)<br />   (princ)<br /> )<br /> (defun get_maisiz ()<br />   (setq pp (get_tile "txtsiz"))<br />   (print "AA")<br />   (print pp)<br /> )<br />

永不言弃

ZZXXQQ 发表于 2015-11-28 14:53

非常感谢

永不言弃

ZZXXQQ 发表于 2015-11-28 14:53

(setq pp (get_tile "txtsiz"))不能获得PP的值

Andyhon

一般可套用 dos_combolist

Command: (dos_combolist "Set Text Height" "Select a Height" zgxz)
"10.0"

张大锤

ZZXXQQ 发表于 2015-11-28 14:53

求帮忙能帮帮我吗?

永不言弃

张大锤 发表于 2015-11-28 23:31
求帮忙能帮帮我吗?

？？什么情况