[求助]圖形屬性讀取

lilq_78

多谢，很经典，

hoodpinrh

lazybug 发表于 2006-11-16 16:14
;关于块的遍历(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)
   )

LIULISHENG

支持一下