・ ブロック名のリストをテーブルから取得する

;************************************************************************************;
  ;サブルーチン  テーブルデータよりブロック名リストの取得;
  (defun Jof_bn_list ( / bn bn_list )
    (setq bn (cdr (assoc 2 (tblnext "BLOCK" T))))
    (while bn
      (cond
	((wcmatch bn "`*D*") nil);寸法               ;
	((wcmatch bn "`*X*") nil);R13以前のハッチング;
	((wcmatch bn "`*U*") nil);名前のないブロック ;
	((wcmatch bn "`*T*") nil);テーブル（表）オブジェクト 2006/11/06追記 ;
	(T (setq bn_list (append bn_list (list bn))))
	)
      (setq bn (cdr (assoc 2 (tblnext "BLOCK" ))))
      )
    bn_list
    )