请ZZXXQQ斑竹再帮我解答一个问题，再次谢谢你了

leslie114

还是那段代码，我要每次循环把得到的数字都变成字符串行吗
(defun GetData44 ()
   (setq floor_height (get_tile "data"))
)

(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))
    )
    )
    (setq n (1+ n))
   )
   (unload_dialog dcl_id)
  )
  )

caoyin

是不是该把

(setq nn (atof (get_tile "floor")))

改成

(setq nn (atoi (get_tile "floor")))

ZZXXQQ

3. ;那就这样写。
4. (defun GetData44 ()
5. (setq floor_height (get_tile "data"))
6. (SETQ FHLIST (APPEND FHLIST (LIST floor_height)))
7. )
8. (if (> (setq dcl_id (load_dialog "support")) 0) (progn
9.   (setq n 1)
10.   (SETQ FHLIST (LIST))
11.   (setq nn (atof (get_tile "floor")))
12.   (while (and (<= n nn) (= dlgans 1))
13.    (if (new_dialog "floor_height" dcl_id) (progn
14.     (set_tile "prompt1" (strcat "请输入第" (rtos n 2) "层高"))
15.     (action_tile "accept" "(GetData44) (done_dialog 1)")
16.     (action_tile "cancel" "(done_dialog 0)")
17.     (setq dlgans (start_dialog))
18.    ))
19.    (setq n (1+ n))
20.   )
21.   (unload_dialog dcl_id)
22. ))

;那就这样写。 (defun GetData44 () (setq floor_height (get_tile "data")) (SETQ FHLIST (APPEND FHLIST (LIST floor_height))) ) (if (> (setq dcl_id (load_dialog "support")) 0) (progn   (setq n 1)   (SETQ FHLIST (LIST))   (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))    ))    (setq n (1+ n))   )   (unload_dialog dcl_id) ))

leslie114

恩谢谢版主阿