;;获取cad图形文件中指定TABLE(表)的所有名称的列表 (defun TABLE_LIST (NAME / TBL TBL_LIST) (while (setq TBL (tblnext NAME (null TBL))) (setq TBL_LIST (cons (cdr (assoc 2 TBL)) TBL_LIST)) ) ) ;;图层: ;;_$ (TABLE_LIST "layer") ;;("图层3" "图层2" "图层1" "0") ;;_$ ;;块: ;;_$ (TABLE_LIST "block") ;;("块2" "块1") ;;_$ ;;字体样式. ;;_$ (TABLE_LIST "style") ;;("宋体" "样式 1" "Standard") ;;_$ |