帮我看看哪里错了。。。高手，，我是新手，，自己弄了一个小程序。
(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)
)
运行错误，，不知道为什么、、、麻烦老大帮我看看。
如果能加上循环语句就好了，，最后输出的是距离和高程
(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)
) SunSpring 发表于 2013-1-8 21:22 static/image/common/back.gif
(defun c:tq () ; 命令
(setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
(whi ...
厉害呀，我想了一个晚上，到现在都没弄出来，但我想我原来的程序里面哪里出错了，麻烦师傅指点下，，一直都找不出原因来？？？ SunSpring 发表于 2013-1-8 21:22 static/image/common/back.gif
(defun c:tq () ; 命令
(setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
(whi ...
我是新手，比菜鸟还要菜鸟级的，不要拍砖， SunSpring 发表于 2013-1-8 21:22 static/image/common/back.gif
(defun c:tq () ; 命令
(setq ff (open (getfiled "文件保存为" "c:/" "txt" 1) "a"))
(whi ...
哦，我看了一下，（rtos dist），那为什么变量GCC不用加这个函数？？而且我原来的一直没有输出到文本中。 54525596 发表于 2013-1-8 22:04 static/image/common/back.gif
哦，我看了一下，（rtos dist），那为什么变量GCC不用加这个函数？？而且我原来的一直没有输出到文本中。
这些数据能不能以行的格式输出。。
页:
[1]