[求助]：怎么获得dxf组码

flydyt · 发表于 2007-11-20 11:12:24

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

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

×

请问有没有显示自定义实体DXF组码的小工具,我想用于选择集过滤,谢谢

taner · 发表于 2007-11-20 11:23:06

entget

flydyt · 发表于 2007-11-30 10:58:35

本人对LISP不太熟,有没有现成的代码?谢谢

enixing · 发表于 2007-12-1 10:00:36

(defun c:qd (/ e )
(setq e (car (entsel))
eenn(entget e (list "*")))
(princ "\nThe Object's (X)data:\n")(princ eenn)(princ)
)

(defun c:lkn (/ e en in)
(setq e(car (entsel)) in 0
en(entget e))
(princ "\n主实体数据为:")(princ en)(princ)
(while (and (setq e(entnext e)) (/= (dxf 0 en) "SEQEND") )
(setq en(entget e (list "*")) in(1+ in))
(princ (strcat "\n次实体 " (itoa in) " 数据为:" ))(princ en)
) (princ)
)
这个是我之前在论坛上找的

leeyuan · 发表于 2007-12-1 22:52:03

[php]
(defun c:dxf()
(princ (entget (car (entsel))))
(princ)
)[/php]

flydyt · 发表于 2007-12-13 16:22:43

先谢谢了,但是怎么查询到的信息不多啊?我想获得自定义实体的自定义属性.是不是不行啊?

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

[求助] [求助]：怎么获得dxf组码

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

相关帖子