乐筑天下

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

根据提示读取TXT文件中的数据

[复制链接]
CADghost

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-6-16 11:10:00 | 显示全部楼层 |阅读模式
L1
((b 20) (d 3) (r 3.5) (jmmj 1.13) (mzl 0.89) (z0 0.6))
L2
((b 20) (d 4) (r 3.5) (jmmj 1.46) (mzl 1.15) (z0 0.64))
L3
((b 25) (d 3) (r 3.5) (jmmj 1.43) (mzl 1.12) (z0 0.73))
L4
((b 25) (d 4) (r 3.5) (jmmj 1.86) (mzl 1.46) (z0 0.76))
形如以上的TXT文件，下面还有很多就不写了
(setq a (getstring "\n请输入规格:"))
;输入L4
那么怎么定义一个变量mzl等于TXT文件中L4下的mzl呢
回复

使用道具 举报

alin

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-6-16 12:18:00 | 显示全部楼层
(defun C:test (/ f a line LL)
         (setq f (open "[I]filename[/I]" "r"))
         (setq a (getstring "\n请输入规格:"))
         (while (setq line (read-line f))
                         (if        (= (read line) (read a))
                                         (progn
        (setq LL (read (read-line f)))
        (mapcar '(lambda (x) (set (car x) (cadr x))) LL)
                                         )
                         )
         )
         (close f)
         (princ)
)
回复

使用道具 举报

CADghost

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-6-16 15:50:00 | 显示全部楼层
谢谢你alin，我读写文件那里掌握的不太好，
(mapcar '(lambda (x) (set (car x) (cadr x))) LL)
这句是什么意思？
还有，如果我想要的规格在TXT文件中没有，可不可以在LISP里直接进行添加呢？
回复

使用道具 举报

alin

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-6-16 21:46:00 | 显示全部楼层
(mapcar '(lambda (x) (set (car x) (cadr x))) LL)
是把数据文件中的数据逐个赋予前面的变量， 如jmmj = 1.86
[I][/I]
        
[/CODE]
请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:sh4snoathak.lsp 
下载次数:0  文件大小:1.09 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

秋枫

37

主题

297

帖子

15

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
449
发表于 2004-6-17 08:09:00 | 显示全部楼层
楼主可能是看不懂mapcar与lambda函数。但这些不是关键，你完全可以用其它方式实现。
关键是使用 Set函数 与 Setq函数 的区别。
你可以查一下 Set 函数 的说明。
回复

使用道具 举报

CADghost

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-6-17 09:06:00 | 显示全部楼层
alin用你昨天给我的程序时,为什么老是提示参数太多呢?
回复

使用道具 举报

alin

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-6-17 10:26:00 | 显示全部楼层
??? Have you changed the path in the codes ? Have you got the right format of data.txt?
回复

使用道具 举报

CADghost

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-6-18 10:27:00 | 显示全部楼层
说中文行不?
回复

使用道具 举报

alin

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-6-19 07:27:00 | 显示全部楼层
我测试过好象没问题，所以不明白。你可以把你实际运行的程序和数据文件贴上来看看
回复

使用道具 举报

CADghost

62

主题

938

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1186
发表于 2004-6-20 15:20:00 | 显示全部楼层
我用了个笨办法，我把他们全放在LSP里了
就是改着吃点力
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-8-18 14:42 , Processed in 1.417878 second(s), 78 queries .

© 2020-2025 乐筑天下

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