请高手帮忙

fengyong88 · 发表于 2006-11-8 16:46

我有一个记录图形对象属性的文件，放在C：\data.txt下，假设有100行，每行为一个完整记录

121000 jmd 6 text no
121003 jmd 6 polyline yes
113002 dgx 3 polyline no
*
*
每个信息分别代表厚度、层、颜色、类型、是否闭合，中间用不规则空格隔开

现在我在图上拾取了一个对象，假如读取它的厚度是113002的话，我如何才能让cad从data.txt文件中找出相应的记录来与之比较其他的属性是否相等呢？

xbtang · 发表于 2006-11-8 17:30

这个没有仔细研究过﹐不能帮到你﹐但一行行读取应该可以实现﹐但有一个问题﹐如有相同标高的麻烦了。

fengyong88 · 发表于 2006-11-8 17:40

不是标高,而是厚度!程序执行的过程是:先将所有厚度不等于零的对象构造一个选择集,然后进行循环,当具体处理到单个对象时,获取其厚度及其它的几项属性,然后以厚度为ID,在那个属性文件中搜索相应的记录(这一步是关键，也是我问题的关键,注意:所有的厚度,在这个属性文件中都会存在,即相当于一个数据字典),与图形对象的属性进行比较,判断是否相等.

rongyifei · 发表于 2006-11-8 21:53

这个应该可以实现,但可能比较麻烦!

rongyifei · 发表于 2006-11-8 22:12

再请问一下,比方你说得厚度121002,代表的是什么意义?是图元实实在在的thickness属性吗?

fengyong88 · 发表于 2006-11-9 08:11

是的，就是属性里的thickness，关键是对属性文件里的内容的搜索问题，比较难办

Andyhon · 发表于 2006-11-9 08:14

本帖最后由作者于 2006-11-9 21:57:31 编辑
(setq fp (open "C：/data.txt")
     key "113002*"
    next T
)
(while (and next (setq string (read-line fp))
(if (wcmatch string key)
    (setq next nil)
) )
(close fp)

fengyong88 · 发表于 2006-11-9 08:33

以上的代码对于大文件的处理速度是不是比较慢？

Andyhon · 发表于 2006-11-9 09:21

本帖最后由作者于 2006-11-9 21:58:37 编辑

您可以根据关键字串直接略过n列

(repeat n (read-line fp))

tcsl9621 · 发表于 2006-11-9 09:54

读出文件到表中，再对表进行处理就好了。将表中的各项再变成表。得到一个二元表。一切不都明白了吗？

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