オブジェクトのグループ名を取得
(defun y_gname (E_NAME / KEY E_DATA LST)
(setq KEY (cons 340 E_NAME))
(setq E_DATA (dictsearch (namedobjdict) "acad_group"))
(while (setq E_DATA (member (assoc 3 E_DATA) E_DATA))
(if (member KEY (entget (cdadr E_DATA)))
(setq LST (cons (cdar E_DATA) LST))
)
(setq E_DATA (cddr E_DATA))
)
(reverse LST)
)
This entry was posted on 火曜日, 4月 18th, 2006, 12:50 AM and is filed under LISP.
You can follow any responses to this entry through RSS 2.0. You can leave a response, or trackback from your own site.
Loading ...
