请教高手，哪处出错了：想要将一个变量返回的点表写入一个.tst文件中，并显示该文本

cadcailiao · 发表于 2003-4-1 09:01:00

请教高手，哪处出错了：想要将一个变量返回的点表写入一个.tst文件中，并显示该文本文件[br]不知如果将一autolisp程序返回的（坐标）点表写入一文本文件中，该把点表作为实数还是字符或者其他的形式处理？？恳请赐教，修改下面的程序，谢谢！

(defun c:test()
(setq a (getreal "\n输入A点的横坐标:"))
(setq b (getreal "\n输入A点的纵坐标:"))
(setq x (+ 10 a))
(setq y (- 20 b))
(setq PT (list x y))
(setq f (open "e:\\new.tst" "w"))
(write-line ("B点坐标为" PT) f)
(close f)
)

alin · 发表于 2003-4-1 10:28:00

(write-line (strcat "B点坐标为 (" (rtos x) " " (rtos y) ")") f)[br]

cadcailiao · 发表于 2003-4-2 09:21:00

多谢alin兄，如果在这小段程序前还有一个复杂点的lisp程序（用来循环选择实体顶点），得到的变量返回的点表中不止一个点（很多）的坐标，如何才能将这些顶点坐标按行写入.tst中呢？

meflying · 发表于 2003-4-2 10:36:00

本帖最后由作者于 2003-4-2 10:36:02 编辑

或使用字符串拷贝，两个点之间家上“\n”

alin · 发表于 2003-4-2 10:40:00

cadcailiao · 发表于 2003-4-3 19:48:00

多谢两位高手，现在可以写到文件中去了。但如何才能执行后马上让new.tst文件亮显在当前屏幕呢？[br]

alin · 发表于 2003-4-3 23:54:00

cadcailiao · 发表于 2003-4-4 15:49:00

cadcailiao · 发表于 2003-4-4 15:54:00

其实我所说的“亮显”是指执行完lisp程序（即查询程序）后该文本文件弹出到CAD当前屏幕上[br]其实我所说的“亮显”是指执行完lisp程序（即查询程序）后该文本文件（内有已获取的数据库的信息）弹出到AUTOCAD当前屏幕上，而不用费力的到E盘去打开这个文件，不知该如何处理？

龙龙仔 · 发表于 2003-4-4 17:09:00

账号		自动登录	找回密码
密码			注册

请教高手，哪处出错了：想要将一个变量返回的点表写入一个.tst文件中，并显示该文本

(write-line (strcat "B点坐标为 (" (rtos x) " " (r

多谢alin兄，如果这个变量返回的点表中不止一个点（很多）的坐标该怎么办？

得到一个点就写一次，它会自动换行

(write-line (strcat "B点坐标为" (vl-princ-to-string PT)) f)

多谢两位高手，现在可以写到文件中去了。但如何才能执行后马上让new.tst文件亮显在

DOSLIB里的(dos_shellexe)非常方便

alin兄，你说的(dos_shellexe)如何在lisp程序中调用啊？我一筹莫展，：（

其实我所说的“亮显”是指执行完lisp程序（即查询程序）后该文本文件弹出到CAD当前

(startapp "notepad" )