・ ブロック名から ATTDEF図形名リストを取得する

属性定義をする場合と、ATTRIBを持つ INSERT 図形を分解した場合のほかは、 ATTDEF は可視オブジェクトとして図面に現れません
通常は、ブロック定義の中に出てきますので、ブロックテーブルへのアクセスが必要です
ブロック定義のはじめ（オブジェクトタイプ "BLOCK"）のデータで、グループコード70番のビットコードで 2 が指定されている場合、ATTDEF を従属図形としています

;************************************************************************************;
;サブルーチン　（ATTDEF のエンティティーネームのリストを取得）  ;
;        bn:ブロック名
; attd_list:ATTDEFの図形名リスト

  (defun Jof_attd_list ( bn / en ed attd_list)
    (setq en (tblobjname "BLOCK" bn))
    (if (= (logand (cdr (assoc 70 (entget en))) 2) 2)
      (progn
	(while (setq en (entnext en))	  
	  (if (= (cdr (assoc 0 (entget en))) "ATTDEF")
	    (setq attd_list (append attd_list (list en)))
	    )
	  )
	)
      )
    attd_list
    )