根据选集中的一个字串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
)