[LISP程序]：块中实体数据的提取

redapple · 发表于 2003-9-1 14:32:30

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

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

×

欲提取某一块中所有实体的信息，有没有这样的函数或程序？
谢谢！

lsjjm · 发表于 2003-9-1 15:52:52

一个例子:
(defun getnameofblock&att ()
(setq e1 (entsel))
(setq p1 (cadr e1))
(setq elist1 (entget (car e1)))
(setq e2 (nentselp p1))
(setq e3 (car e2))
(setq elist2 (entget e3))
(Alert (strcat "\nBlock name is " (cdr (assoc 2 elist1))" and the Attr. value is " (cdr (assoc 1 elist2))))
(princ)
)

心梦相随 · 发表于 2003-9-1 19:46:09

楼上的朋友漏了一个。若该快含有多个属性或其他的实体。
应该有entnext测试，直到出现seqent.

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

[LISP程序]：块中实体数据的提取

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

相关帖子

浏览过的版块