BY鱼与熊掌 CAD定制程序 QQ775452144
;Layer Ltype Viewx Style Block Appid Ucs Dimstyle 和 Vport
(defun sytc(ys / tc tc_lst)
(setq tc_lst (cons (cdr(assoc 2(tblnext ys "t"))) tc_lst))
(while(setq tc(tblnext ys nil))
(setq tc_lst (cons (cdr(assoc 2 tc)) tc_lst))
)
(reverse tc_lst)
)
(entget(tblobjname "Layer" "0" ))