[求助]：已知文本实体，如何求其内容？

menglangs · 发表于 2006-2-11 21:13:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

已知实体text1＝工程1，其DXF组码中有（1 . 工程1），但是不能用表处理函数last来求其内容？请问用什么函数或以什么方式才能得到这个文本实体的内容？？？谢谢

雨箭风刀 · 发表于 2006-2-11 21:40:59

xyp1964 · 发表于 2006-2-11 22:47:14

[FONT=courier new](cdr (assoc 1 (entget (car (entsel "\n选择文本: ")))))[/FONT]

复制代码

lidejun_55 · 发表于 2006-2-12 02:13:11

(cdr (assoc 1 (entget (text1)))))

menglangs · 发表于 2006-2-12 11:56:54

不行。
已知实体text1，是一个文字实体，其内容为“工程1”。
[PHP](setq pl (assoc 1 (entget (text1))))[/PHP] 可以得到p1=(1 . 工程1)，工程1为text1实体的内容，可以使用[PHP](car p1)[/PHP] 即[PHP](car ( 1 . 工程1)[/PHP] 取得表的第一个值为1，但是不能用[PHP](last p1)[/PHP] 即[PHP](last ( 1 . 工程1))[/PHP] 取得text1实体的内容，或用[PHP](last p1)[/PHP] 即[PHP](last ( 1 . 工程1))[/PHP] 报错。

雨箭风刀 · 发表于 2006-2-12 12:31:48

不行什么？没有人推荐用ｌａｓｔ阿，是你自己非要用ｌａｓｔ的，我搞不明白为什么。。。：（，你就是不用cdr呢？

ljpnb · 发表于 2006-2-12 18:57:43

To 5楼：(car p1)即为(car '( 1 . 工程1) 而不是(car ( 1 . 工程1)
另外当 list 参数是一点对时, cdr 将返回在表中的第2个元素，用last函数无效。

menglangs · 发表于 2006-2-12 19:54:36

谢谢。
刚试了(car '(1 . 工程1))和(cdr '( 1 . 工程1)) ，都不行，可以。不知昨天为什么不行，都是加了“'”的

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

[求助] [求助]：已知文本实体，如何求其内容？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子