急急急我想得到DWG中所有的块名

singlewolf · 发表于 2004-12-23 16:32:00

急急急我想得到DWG中所有的块名

f5612140 · 发表于 2004-12-23 16:50:00

(tblnext "block")

(tblnext "block")...

BDYCAD · 发表于 2004-12-23 16:51:00

(defun c:test ( / style_list start sty)
(setq style_list '())
(setq start t)
(while (setq sty (cdr (assoc 2 (tblnext "BLOCK" start))))
(setq start nil)
(setq style_list (cons sty style_list))
);while
style_list
)

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

急急急 我想得到DWG中所有的块名

急急急我想得到DWG中所有的块名