[弹指神通]：如何另对话框显示前次输入值???

linhui12

搞了一整天都是点"保存"或"取消"后再运行"GETDATA"才能返回前一次输入的"P""D""N""R"值,请问如何实现点击"选择"或"继续选择"后显示的对话框中显示前一次输入的"P""D""N""R"值呢,请大家指教.谢谢

DCL文件:

getdata : dialog {
  label="提取多义线顶点坐标";
  : boxed_column {
   label="列表";
   : list_box {key="list1";width=20;height=20;}
   : column {
    : row {
     : edit_box {label="P:";key="P";edit_width=3;}
     : edit_box {label="D:";key="D";edit_width=6;}
     : row {
      : edit_box {label="N:";key="N";edit_width=3;}
     }
     : edit_box {label="R:";key="R";edit_width=6;}
    }
   }
  }
  :row {
   :retirement_button {label="选择..";key="xz";}
   :retirement_button {label="继续选择..";key="jxxz";}
   :retirement_button {label="保存..";key="accept";is_default=true;}
   :button{label="取消";key="cancel";is_cancel=true;}
  }
}

LISP文件:

(defun setdialog ()
  (set_tile "P" (if p (itoa p) "1"))
  (set_tile "D" (if D (rtos D 2) "508"))
  (set_tile "N" (if N1 (itoa N1) "4"))
  (set_tile "R" (if R1 (rtos R1 2) "500"))
  (mode_tile "jxxz" 1)
  (mode_tile "bcsj" 1)
)
(defun GETVALOFDIA ()
  (setq p (read (get_tile "P"))
        d (read (get_tile "D"))
        n1 (read (get_tile "N"))
        r1 (read (get_tile "R")))
)
(defun showbutton ()
  (mode_tile "jxxz" 0)
  (mode_tile "bcsj" 0)
)
(defun showlist (/ i lst)
  (setq i 0)
  (start_list "list1")
  (repeat (length lbl)
   (setq lst (nth i lbl))
   (add_list (car lst))
   (MAPCAR (quote ADD_LIST) (cadr lst))
   (setq i (1+ i))
  )
  (end_list)
)
(DEFUN C:getdata (
;/ P D SST H fi N1 I J K NAME DXF TYPE_LINE XY_COUNT F x y PT1 R1
)
  (setq lbl (list) re 5)
  (IF (> (SETQ DCL_ID (LOAD_DIALOG "getdata")) 0) (progn
   (while (> re 1)
    (IF (NEW_DIALOG "getdata" DCL_ID "") (PROGN
     (if (= (length lbl) 0) (setdialog) (showlist))
     (action_tile "xz" "(showbutton)(getvalofdia)(done_dialog 2)")
     (action_tile "jxxz" "(getvalofdia)(done_dialog 3)")
     (action_tile "accept"  "(GETVALOFDIA) (DONE_DIALOG 1)")
     (action_tile "cancel" "(DONE_DIALOG 0)")
     (SETQ RE (START_DIALOG))
     (if (or (= RE 2) (= RE 3)) (progn
      (if (= re 2) (setq lbl (list)))
      (PROMPT " \n选多义线:")
      (if (SETQ SST (SSGET '((0 . "*POLYLINE")))) (progn
       (SETQ J 0 te (list))
       (REPEAT (SSLENGTH SST)
        (setq ta (list (strcat (itoa p) "," (rtos D 2 3) "," (rtos R1 2 3) "," (itoa N1))))
        (SETQ NAME (SSNAME SST J))
        (SETQ J (1+ J))
        (SETQ DXF (ENTGET NAME))
        (SETQ TYPE_LINE (CDR (ASSOC 0 DXF)))
        (SETQ XY_COUNT (EVAL (READ (STRCAT "(" TYPE_LINE " DXF NAME)"))))
        (setq k 0 tl (list))
        (repeat (length xy_count)
         (setq y (nth k xy_count))
         (setq h (caddr y))
         (setq x (cadr y))
         (setq y (car y))
         (setq tl (cons (strcat (rtos y 2 3) "," (rtos x 2 3) "," (rtos h 2 3)) tl))
         (setq k (1+ k))
        )
        (setq te (append te (list (append ta (list (reverse tl))))))
        (setq p (1+ p))
       )
       (setq lbl (append lbl te))
      ))
     ))
    )
     (ALERT "Unable to display dialog box!\n无法显示对话框！")
    )
   )
    (UNLOAD_DIALOG DCL_ID)
   )
   (ALERT "Unable to open dialog box!\n无法装载对话框！")
  )
  (if (= RE 1) (progn
   (setq fn (if fn fn ""))
   (setq fn (if fn fn "") fn (getfiled "写出文件" fn "Txt" 1))
   (setq f (open fn "w"))
   (setq i 0)
   (repeat (length lbl)
    (setq lcl (nth i lbl) i (1+ i))
    (princ (car lcl) f)
    (princ "," f)
    (setq ldl (cadr lcl) j 0)
    (repeat (length ldl)
     (princ (if (= j 0) "" ",") f)
     (princ (nth j ldl) f)
     (setq j (1+ j))
    )
    (princ "\n" f)
   )
   (close f)
  ))
  (princ)
)

urljit

没有时间仔细看你的程序，看了你的文字叙述，你可能是需要在程序推出以前保存一些数据，再次启动则回复使用，这个问题恐怕需要将你的数据写入磁盘，或者写入cad预留的变量（关闭cad后失效）

zhang8755

(done_dialog 3）和(done_dialog 2)对应的处理程序需要保存当前值到变量，每次启动对话框前，判断变量的值，对对话框进行初始化。

liyl123

在赋初值时 (if (/=  "变量"  nil)  (set_tile "控件"  "变量"))

xyp1964

2. [FONT=courier new];; 顶点列表
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (xyp-initSet '(p1) '("0"))
   
6.   (defun aaa (/ s1 ptn)
   
7.     (if        (and (setq s1 (car (entsel "\n选择多段线: ")))
   
8.              (member (xyp-get-dxf 0 s1) '("POLYLINE" "LWPOLYLINE"))
   
9.         )
   
10.       (progn (setq ptn        (xyp-get-Vertexs s1 0)
    
11.                    plst        '()
    
12.              )
    
13.              (foreach pt ptn
    
14.                (setq plst (cons (xyp-2str pt) plst))
    
15.              )
    
16.       )
    
17.     )
    
18.     (main)
    
19.   )
    
20.   (defun bbb (/ ss i s1)
    
21.     (setq ss (ssget '((0 . "*POLYLINE")))
    
22.           i  -1
    
23.     )
    
24.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
25.       (foreach pt (xyp-get-Vertexs s1 0)
    
26.         (setq plst (cons (xyp-2str pt) plst))
    
27.       )
    
28.     )
    
29.     (main)
    
30.   )
    
31.   (defun ccc ()
    
32.     (setq plst '())
    
33.     (main)
    
34.   )
    
35.   (defun main (/ Ilst)
    
36.     (if        (null plst)
    
37.       (setq plst '())
    
38.     )
    
39.     (setq Ilst '(("p1" "列表" "list" "plst" "24" "16")
    
40.                  (nil nil ":row{")
    
41.                  ("b1" "选择" "button" "(aaa)")
    
42.                  ("b2" "继续选择" "button" "(bbb)")
    
43.                  ("b3" "清空" "button" "(ccc)")
    
44.                  (nil nil "}")
    
45.                 )
    
46.     )
    
47.     (if        (= (xyp-Dcl-Init Ilst "【顶点列表】" t) 1)
    
48.       (princ "ok")                                  ;另添加写出顶点到文件内容
    
49.     )
    
50.   )
    
51.   (main)
    
52.   (CMDLA1)
    
53. )[/FONT]

[FONT=courier new];; 顶点列表<br /> (defun c:test ()<br />   (CMDLA0)<br />   (xyp-initSet '(p1) '("0"))<br />   (defun aaa (/ s1 ptn)<br />     (if        (and (setq s1 (car (entsel "\n选择多段线: ")))<br />              (member (xyp-get-dxf 0 s1) '("POLYLINE" "LWPOLYLINE"))<br />         )<br />       (progn (setq ptn        (xyp-get-Vertexs s1 0)<br />                    plst        '()<br />              )<br />              (foreach pt ptn<br />                (setq plst (cons (xyp-2str pt) plst))<br />              )<br />       )<br />     )<br />     (main)<br />   )<br />   (defun bbb (/ ss i s1)<br />     (setq ss (ssget '((0 . "*POLYLINE")))<br />           i  -1<br />     )<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (foreach pt (xyp-get-Vertexs s1 0)<br />         (setq plst (cons (xyp-2str pt) plst))<br />       )<br />     )<br />     (main)<br />   )<br />   (defun ccc ()<br />     (setq plst '())<br />     (main)<br />   )<br />   (defun main (/ Ilst)<br />     (if        (null plst)<br />       (setq plst '())<br />     )<br />     (setq Ilst '(("p1" "列表" "list" "plst" "24" "16")<br />                  (nil nil ":row{")<br />                  ("b1" "选择" "button" "(aaa)")<br />                  ("b2" "继续选择" "button" "(bbb)")<br />                  ("b3" "清空" "button" "(ccc)")<br />                  (nil nil "}")<br />                 )<br />     )<br />     (if        (= (xyp-Dcl-Init Ilst "【顶点列表】" t) 1)<br />       (princ "ok")                                  ;另添加写出顶点到文件内容<br />     )<br />   )<br />   (main)<br />   (CMDLA1)<br /> )[/FONT]

linhui12

感谢大家的热心回复,问题解决了...

zteykmgscqh

路过看一下