擷取某物件集合的清單

此副程式可以擷取如 圖層 , 字型 ,....等等的清單

哈! 哈!

原始的 autolisp 程式碼組裝後,

也能輕鬆取得各項集合的清單, 列表...

而且語法簡潔, 通用性廣.

; 副程式 start------------------------------

(defun tablelist ( s / d r ) (while (setq d ( tblnext s (null d))) (setq r ( cons ( cdr ( assoc 2 d)) r)) ) )

; 副程式 end------------------------------

(setq layer_list ( tablelist " LAYER "))

將回傳如下列的圖層清單

("隱藏線" "count_weight" "MARK-LINE" "layer 1"

"假想線" "正壓折線" "反壓折線" "中心線" "t" "string"

"SHEET" "PRICE" "PART" "o" "MARK-WT" "MARK-NP"

"MARK" "MAGENTA" "Lan" "DA" "CYAN" "checkdim"

"C" "1" "文字" "check尺寸" "壓折線" "圖框" "noprint"

"YELLOW" "尺寸" "WHITE" "尺寸(B)" "DEFPOINTS" "0")

(setq style_list ( tablelist " style "))

將回傳如下列的字型清單

("MT_FRAME" "Annotative" "EN-TEXT" "DIMM"

"TEXT1" "STYLE1" "STANDARD")

---