帮我看看哪里错了。。。高手，，我是新手，，自己弄了一个小程序。

54525596

(defun c:tq();命令
  (setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
  (setq dist(getdist"\n取2点距离:"))
（setq gc(gtestring"输入高程："))
  (setq pdz (strcat dist","gc))
  (write-line pdz ff)
  (princ)
)
运行错误，，不知道为什么、、、麻烦老大帮我看看。
如果能加上循环语句就好了，，最后输出的是距离和高程

SunSpring

(defun c:tq ()                               ; 命令
  (setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
  (while (setq dist (getdist "\n取2点距离:"))
    (setq gcc (getstring "输入高程："))
    (setq pdz (strcat (rtos dist) "," gcc))
    (write-line pdz ff)
  )
  (close ff)
  (princ)
)

54525596

SunSpring 发表于 2013-1-8 21:22
(defun c:tq ()                               ; 命令
  (setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
  (whi ...

厉害呀，我想了一个晚上，到现在都没弄出来，但我想我原来的程序里面哪里出错了，麻烦师傅指点下，，一直都找不出原因来？？？

54525596

SunSpring 发表于 2013-1-8 21:22
(defun c:tq ()                               ; 命令
  (setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
  (whi ...

我是新手，比菜鸟还要菜鸟级的，不要拍砖，

54525596

SunSpring 发表于 2013-1-8 21:22
(defun c:tq ()                               ; 命令
  (setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
  (whi ...

哦，我看了一下，（rtos dist），那为什么变量GCC不用加这个函数？？而且我原来的一直没有输出到文本中。

54525596

54525596 发表于 2013-1-8 22:04
哦，我看了一下，（rtos dist），那为什么变量GCC不用加这个函数？？而且我原来的一直没有输出到文本中。

这些数据能不能以行的格式输出。。