・ INSERT 図形が属性情報を持っているかどうか

INSERT 図形が属性情報を持っているかどうかを知るには、INSERT図形のグループコード 66 番を調べます

;/////////////////////////////////////////////////////////////////
;INSERT 図形が属性情報を持つかどうか調べる 
;/////////////////////////////////////////////////////////////////
 (defun Jo_att_chek ()
   (setq ed (entget (car (entsel "\nINSERT 図形を選択"))))
   (if (= (cdr (assoc 0 ed)) "INSERT")
     (progn 
       (if (and (assoc 66 ed) (= 1 (cdr(assoc 66 ed))))
         (princ "\n属性データあり") 
         (princ "\n属性データなし")
         )
       ) 
     (princ "\n選択したオブジェクトは INSERT 図形ではありません")
     )
   (princ)
   )

属性情報を持つ場合は、INSERT 図形のデータに続いて (entnext) で取得できるエンティティーデータでSEQEND が現れるまで、属性情報のデータが存在します