根据选集中的一个字串A读取TXT.INI文件中的数据

ayan634 · 发表于 2004-7-10 12:14:00

根据选集中的一个字串A读取TXT.INI文件中的数据
txt.ini文件格式如下
轻L30 1.373
L20X3 0.889
[20X4 1.145
I25X3 1.124
HW25X4 1.459
。。。。。。
。。。。。。
假如现在有个选集，只有A和B两个字串，怎样才能在A=轻L30时，变量C=1.373,变量D=B*C,
如此类推下去，TXT.INI文件也只有一个数与A相同

meflying · 发表于 2004-7-10 13:25:00

B是什么呢？有两个选择集，怎么又包含A和B两个对象呢？选择集包含的图元对象。。。

读出来后，算出D后又该干什么呢？

说明白点

ayan634 · 发表于 2004-7-10 13:41:00

B是数据，A和B是选择集中的图元对象, D是我要计算结果。

meflying · 发表于 2004-7-10 13:53:00

那你要问什么呢？好歹给个比较全的数据啊。。。。。

如果你仅仅需要读文件这部分，那就不用说后面那部分了，，，如果不是，你最好给个这样的包含这些图元的图，因为一个图元不等于字符串，而且字符串是不能参加乘法运算的。。。

说详细点（再次说明了）

meflying · 发表于 2004-7-10 14:17:00

参数：entA——对象A（注意是对象，不是字符串） entB——对象B (defun test(entA entB / filename f str datas C D)
(setq filename (getfiled "选择ini文件" "" "ini" 8))
(if filename
(progn
(setq f (open filename "r"))
(while (setq str (read-line f))
(setq datas (append datas (list (read (strcat "(" str ")")))))
)
(close f)
(setq C (cadr (assoc (read (cdr (assoc 1 (entget entA)))) datas)))
(if C
(setq D (* (atof (cdr (assoc 1 (entget entB)))) C))
(princ "没有你要找的东西!")
)
)
)
D
)

ayan634 · 发表于 2004-7-10 14:29:00

多谢版主的教导，我现在上传一个CAD文件，里面有我想要做的事

meflying · 发表于 2004-7-10 14:35:00

我上面给的程序差不多就是这样了

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

根据选集中的一个字串A读取TXT.INI文件中的数据

本帖子中包含更多资源