[求助]：请问怎么才能查询到组码102？

P.M.F. · 发表于 2007-3-15 11:39:05

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

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

×

我给实体添加了永久反应器后，用entget能看到组码330，但是看不到组码102，有什么办法解决吗？

先谢谢了！

zml84 · 发表于 2007-3-15 17:39:38

别无它法
(entget (car(entsel)) '("*"))

P.M.F. · 发表于 2007-3-16 10:39:44

最初由 zml84 发布
[B]别无它法
(entget (car(entsel)) '("*")) [/B]

我试过这样还是只能获得330组码的值，看不到102组码的

Underway · 发表于 2007-3-16 11:50:00

您的 102 组码的值域为何?

ref Link:
http://www.xdcad.net/forum/showthread.php?postid=2825919
http://www.xdcad.net/forum/showthread.php?threadid=129031
http://p4.xdcad.net/forum/showthread.php?threadid=605535
http://vba.cn/function/list.asp?id=113&ordertype=bydate

http://web2.airmail.net/terrycad/LISP/Groups.lsp
http://members.tripod.com/~vnestr/SaveData.lsp

P.M.F. · 发表于 2007-3-16 15:46:03

;;获取实体的永久反应器
(defun get_object_reactor (e / elst lst etlst)
  (setq elst (entget e))
  (if (and (assoc 102 elst)
   (= (cdr (assoc 102 elst)) "{ACAD_REACTORS")
   )
(progn
   (setq lst (cdr (member '(102 . "{ACAD_REACTORS") elst)))
   (while (= (caar lst) 330)
(setq etlst (cons (cdar lst) etlst))
(setq lst (cdr lst))
   )
)
  )
  etlst
)

我就是用的这个函数，不知道为什么entget出来的组码表里没有组码102...想不通啊...

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

[求助] [求助]：请问怎么才能查询到组码102？

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

相关帖子