请教各位，怎样每循环对话框得到的数据成一个表格式。在线等回答

leslie114

我写的是这样的

(setq n 1)
 (setq nn (atof (get_tile "floor")))
(while (<= n nn)
   (if (> (setq dcl_id (load_dialog "support")) 0)
     (if (new_dialog "floor_height" dcl_id)
       (progn
  (set_tile "prompt1"
     (strcat "请输入第" (rtos n 2) "层高")
     )
  (action_tile "accept" "(GetData44) (done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dlgans (start_dialog))
  (unload_dialog dcl_id)
       )
     )
   )
   (setq n (1+ n))
 )

nn是总共层数，现在我只能得到最后层高，每层高得不到，求各位帮我解答

ZZXXQQ

3. 不知道(GetData44)是怎么写的，主程序可以这样写：
4. (if (> (setq dcl_id (load_dialog "support")) 0) (progn
5.   (setq n 1)
6.   (setq nn (atof (get_tile "floor")))
7.   (while (and (<= n nn) (= dlgans 1))
8.    (if (new_dialog "floor_height" dcl_id) (progn
9.     (set_tile "prompt1" (strcat "请输入第" (rtos n 2) "层高"))
10.     (action_tile "accept" "(GetData44) (done_dialog 1)")
11.     (action_tile "cancel" "(done_dialog 0)")
12.     (setq dlgans (start_dialog))
13.    )
14.     (princ "\nUnable display dialog box!")
15.    )
16.    (setq n (1+ n))
17.   )
18.   (unload_dialog dcl_id)
19. )
20.   (princ "\nUnable load dialog box!")
21. )

不知道(GetData44)是怎么写的，主程序可以这样写： (if (> (setq dcl_id (load_dialog "support")) 0) (progn   (setq n 1)   (setq nn (atof (get_tile "floor")))   (while (and (<= n nn) (= dlgans 1))    (if (new_dialog "floor_height" dcl_id) (progn     (set_tile "prompt1" (strcat "请输入第" (rtos n 2) "层高"))     (action_tile "accept" "(GetData44) (done_dialog 1)")     (action_tile "cancel" "(done_dialog 0)")     (setq dlgans (start_dialog))    )     (princ "\nUnable display dialog box!")    )    (setq n (1+ n))   )   (unload_dialog dcl_id) )   (princ "\nUnable load dialog box!") )

leslie114

谢谢ls的我忘了把GetData复制上来了是这样写的

(defun GetData44 ()
      (setq floor_height (get_tile "data"))
    )

问题是while循环只读取最后一次循环得值也就是floor_height只有我最后一次输入的层高数据，我要的是我每次循环写进去的层高数据都要，不知道怎么办了，谢谢帮我回答不胜感激

ZZXXQQ

3. ;将数据放到表中。
4. (if (> (setq dcl_id (load_dialog "support")) 0) (progn
5.   (SETQ FHLIST (LIST));空表
6.   (setq n 1)
7.   (setq nn (atof (get_tile "floor")))
8.   (while (and (<= n nn) (= dlgans 1))
9.    (if (new_dialog "floor_height" dcl_id) (progn
10.     (set_tile "prompt1" (strcat "请输入第" (rtos n 2) "层高"))
11.     (action_tile "accept" "(GetData44) (done_dialog 1)")
12.     (action_tile "cancel" "(done_dialog 0)")
13.     (setq dlgans (start_dialog))
14.    )
15.     (princ "\nUnable display dialog box!")
16.    )
17.    (setq n (1+ n))
18.   )
19.   (unload_dialog dcl_id)
20. )
21.   (princ "\nUnable load dialog box!")
22. )
23. (defun GetData44 ()
24.   (setq floor_height (get_tile "data"))
25.   (SETQ FHLIST (APPEND FHLIST (LIST (STOR floor_height)))) ;加到表的未尾
26. )

;将数据放到表中。 (if (> (setq dcl_id (load_dialog "support")) 0) (progn   (SETQ FHLIST (LIST));空表   (setq n 1)   (setq nn (atof (get_tile "floor")))   (while (and (<= n nn) (= dlgans 1))    (if (new_dialog "floor_height" dcl_id) (progn     (set_tile "prompt1" (strcat "请输入第" (rtos n 2) "层高"))     (action_tile "accept" "(GetData44) (done_dialog 1)")     (action_tile "cancel" "(done_dialog 0)")     (setq dlgans (start_dialog))    )     (princ "\nUnable display dialog box!")    )    (setq n (1+ n))   )   (unload_dialog dcl_id) )   (princ "\nUnable load dialog box!") ) (defun GetData44 ()   (setq floor_height (get_tile "data"))   (SETQ FHLIST (APPEND FHLIST (LIST (STOR floor_height)))) ;加到表的未尾 )

leslie114

请问

(SETQ FHLIST (APPEND FHLIST (LIST (STOR floor_height)))) ;加到表的未尾

这一句里的STOR变量是什么意思？？谢谢斑竹阿

ZZXXQQ

函数写错了！应该是ATOF，或者用函数READ也行。

leslie114

谢谢斑竹阿，有事在请问你