求循环读出扩展数据的代码。

kingerst · 发表于 2009-7-30 15:27:00

求循环读出扩展数据的代码。

小弟在一条线段上加扩展数据。加了N个专属名作为属性，并为每个专属性加上了字符串值（1000.""）

需要循环读出这些值，谢谢！

liminnet · 发表于 2009-7-30 17:08:00

提示: 作者被禁止或删除内容自动屏蔽

wxgy2806 · 发表于 2009-7-30 17:16:00

(defun xlb(ent / entdata ent pplist plist d ptlist)

(setq ptlist nil)

(setq ent (car ent))

(setq entdata (entget ent(list "*")))

(setq entdata (assoc -3 entdata))

(SETQ pplist (member(assoc 1000 entdata) entdata))

(setq plist (car pplist))

(while (/= plist nil)

(setq d (cdr pplist))

(setq ptlist (cons (cdr plist) ptlist))

(setq pplist (member(assoc 10000 d) d))

(setq plist (car pplist))

)

(setq ptlist (reverse ptlist))

)

加下划线的那一步可能要根据你的数据列表再改一下就可以了

kingerst · 发表于 2009-7-30 17:23:00

谢谢！再请教一下，我只想到""字符串的值，如何写呢？

另外，有个效果不知道能不能实现。当我用line 画出一条线段出来。这条线段已经自动加入了空值的扩展数据。就相当于初始化了一样。

谢谢！

wxgy2806 · 发表于 2009-7-30 17:27:00

第一个没看明白，

第二个应该是可以的，就相当于加入的扩展数据都是nill

kingerst · 发表于 2009-7-30 17:31:00

大哥。告诉我实现方法啊！

wxgy2806 · 发表于 2009-7-30 17:51:00

(cons 1000 "")

kingerst · 发表于 2009-7-30 17:56:00

这个我知道，定义空值，我想请教的是。当我用line 画出一条线段出来。这条线段已经自动加入了空值的扩展数据。就相当于初始化了一样。

就像插出块一样，块已经定义了属性。

wxgy2806 · 发表于 2009-7-30 18:06:00

不知道了

liminnet · 发表于 2009-7-31 09:04:00

提示: 作者被禁止或删除内容自动屏蔽

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

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-30 17:08:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9742 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-7-31 09:04:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡