获取符号表条目

st788796

1. ;;Get names of block Include :
   
2. ;;"LAYER", "LTYPE", "VIEW", "STYLE", "BLOCK", "UCS", "APPID", "DIMSTYLE", and "VPORT".
   
3. (defun tables (s / d r n)
   
4.   (while (setq d (tblnext s (null d)))
   
5.     (setq n (cdr (assoc 2 d))
   
6.           r (cons (list n (tblobjname s n)) r)
   
7.     )
   
8.   )
   
9.   (reverse r)
   
10. )
    

;;Get names of block Include :<br /> ;;"LAYER", "LTYPE", "VIEW", "STYLE", "BLOCK", "UCS", "APPID", "DIMSTYLE", and "VPORT". <br /> (defun tables (s / d r n)<br />   (while (setq d (tblnext s (null d)))<br />     (setq n (cdr (assoc 2 d))<br />           r (cons (list n (tblobjname s n)) r)<br />     )<br />   )<br />   (reverse r)<br /> )<br />

zyhandw

顶，非常实用！

xvjiex

感谢分享获取符号表条目！

janshyl

感謝樓主分享