乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 125|回复： 5

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

[复制链接]
cadcailiao

10

主题

17

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
57
发表于 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

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2003-4-1 10:28:00 | 显示全部楼层
(write-line (strcat "B点坐标为 (" (rtos x) " " (rtos y) ")") f)[br]
回复

使用道具 举报

cadcailiao

10

主题

17

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
57
发表于 2003-4-2 09:21:00 | 显示全部楼层
多谢alin兄，如果在这小段程序前还有一个复杂点的lisp程序（用来循环选择实体顶点），得到的变量返回的点表中不止一个点（很多）的坐标，如何才能将这些顶点坐标按行写入.tst中呢？
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-4-2 10:36:00 | 显示全部楼层

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

使用道具 举报

cadcailiao

10

主题

17

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
57
发表于 2003-4-3 19:48:00 | 显示全部楼层
多谢两位高手，现在可以写到文件中去了。但如何才能执行后马上让new.tst文件亮显在当前屏幕呢？[br]
回复

使用道具 举报

cadcailiao

10

主题

17

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
57
发表于 2003-4-4 15:54:00 | 显示全部楼层
其实我所说的“亮显”是指执行完lisp程序（即查询程序）后该文本文件弹出到CAD当前屏幕上[br]其实我所说的“亮显”是指执行完lisp程序（即查询程序）后该文本文件（内有已获取的数据库的信息）弹出到AUTOCAD当前屏幕上，而不用费力的到E盘去打开这个文件，不知该如何处理？
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-1 10:28 , Processed in 0.878317 second(s), 65 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表