;关于块的遍历(defun c:blk () (setq ent (car (entsel "\n选择一个块"))) & ...
感謝大大提供源碼
我做了小小的改變,可不可以在改進一下.
;加入翔虹科技 林美櫻老師 提供的群碼一覽程式,再次感謝林老師,順便提供給大家參考
;在2022版上試用過 可行 用記事本寫入 好做比對
(defun c:blk ()
(vl-load-com)
(setq ent (car (entsel "\n選擇一個塊")))
(setq blk (cdr (assoc 2 (entget ent))))
(setq filename (getstring "\n 輸入圖元名稱:"))
;或者用下面一句替代上面兩行:
;(setq blk (getstring "請輸入塊名:"))
(setq file (getfiled "圖元群碼列表"
(strcat "c:/Users/Users/Desktop/";放在你想存放的地方
filename
"群碼列表"
".num"
) ;
"num"
1
)
)
(setq ff (open file "w"))
(write-line "圖元群碼一覽表" ff)
(setq e1 (tblsearch "BLOCK" blk))
(setq e1 (cdr (assoc -2 e1)))
(setq en_data (entget e1))
(while (setq e1 (entnext e1))
(setq en_data (entget e1))
(write-line "=============================" ff)
(foreach en_num en_data (princ en_num ff) (princ "\n" ff))
)
(close ff)
(command "notepad" file)
(prin1)
) 支持一下
页:
1
[2]