AutoCad 圖塊資料查詢 ( Lisp )

Question

請問如何取得圖塊內的資料 ?

例 : 一個圖塊內有一個圓、一個正方形、一條線
(圖塊內無屬性物件)
請問如何以 Lisp 程式取得其資料串 ?

另問 :
有屬性圖塊以 ENTNEXT 可以取得其內屬性資料,
然則除了屬性資料串外,其餘資料串又該如何取得 ?

Answer 1

使用 SS_A 為選集,抓取一個圖塊
(IF(/= NIL SS_A)
(PROGN
(SETQ NAME_A(SSNAME SS_A 0));圖塊圖元名稱
(SETQ NAME_B(CDR(ASSOC 2(ENTGET NAME_A))));圖塊名稱
(SETQ DATA_B(TBLSEARCH "BLOCK" NAME_B))
;取得該圖塊的符號表資料串列
(SETQ NAME_C(CDR(ASSOC -2 DATA_B)))
;取得第一個子圖元名稱
(SETQ NAME_D(ENTNEXT NAME_C))
;取得下一個子圖元名稱
.......
))

PS: " 為字串符號 , 字串符號無法正常貼上,請自行改回