乐筑天下

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

[讨论]用(setq pt (read-line ff))读取得到字符串 怎么还原为点列表?

[复制链接]
redearth

6

主题

23

帖子

2

银币

初来乍到

Rank: 1

铜币
47
发表于 2004-5-13 11:48:00 | 显示全部楼层 |阅读模式
用(write-line pt ff)         pt为点坐标         ff为文件
之后用(setq pt (read-line ff))读取
得到字符串
怎么还原为点列表?
回复

使用道具 举报

redearth

6

主题

23

帖子

2

银币

初来乍到

Rank: 1

铜币
47
发表于 2004-5-13 11:51:00 | 显示全部楼层
;;;点转化程序
(defun ch_pt(pt / n px py p pp)
                         (setq n 1 px "" py "")
                         (setq p (substr pt n 1))
                         (while (/= p " ")
        (setq px (strcat px p))
        (setq n (+ n 1))
        (setq p (substr pt n 1))
        )                         
                         (if (not (minusp (atof px))) (setq px (strcat "+" px)))
                         (setq n (+ n 1))
                         (setq p (substr pt n 1))
                         (while (/= p " ")
        (setq py (strcat py p))
        (setq n (+ n 1))
        (setq p (substr pt n 1))
        )                         
                         (if (not (minusp (atof py))) (setq py (strcat "+" py)))
                         (setq pp        -------------------------------------
                         )
;;;点坐标转化为形式+px+py型
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-5-13 11:56:00 | 显示全部楼层
(read pt)
回复

使用道具 举报

redearth

6

主题

23

帖子

2

银币

初来乍到

Rank: 1

铜币
47
发表于 2004-5-13 12:06:00 | 显示全部楼层
谢谢
我到是不知道read函数
听不错
回复

使用道具 举报

redearth

6

主题

23

帖子

2

银币

初来乍到

Rank: 1

铜币
47
发表于 2004-5-13 12:40:00 | 显示全部楼层
那反过来呢?
怎么样由list点列表,用write-line输出
我假设不用princ,prin1,就想用write-line
怎么转化
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-5-13 13:12:00 | 显示全部楼层
vl-prin1-to-string应该学会使用帮助文件,这些函数帮助文件中都有,,,
如你以上这些函数都是涉及字符串的,就应该在帮助文件中到函数摘要中的字符串处理函数中去看看
回复

使用道具 举报

wb0815

15

主题

114

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2004-5-13 15:20:00 | 显示全部楼层
我只知道要是往出写文件用princ
white line 只能一行一行的写永远写第一行
所以不行
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-5-13 17:57:00 | 显示全部楼层
white line是什么?
在打开文件未关闭的情况下,write-line写的不是第一行,是接着前面一直写下去的...
回复

使用道具 举报

wb0815

15

主题

114

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2004-5-13 18:15:00 | 显示全部楼层
哎那这个现象怪了
我记得以前写的一个程序总是往第一行写
我写错了经常写颜色习惯了^_^
回复

使用道具 举报

wjm3

14

主题

53

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
109
发表于 2004-5-14 00:15:00 | 显示全部楼层
没什么奇怪,因为你每次都是只写一行,就把文件关闭了.
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-8-16 16:38 , Processed in 0.491026 second(s), 73 queries .

© 2020-2025 乐筑天下

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