(defun c:ufl00009 ( / att1 att2 att3 ents enna exda enls newe )
;拡張エンティティとして情報を付加する
  (setq att1 "abcdef")
  (setq att2 "1000.0")
  (setq att3 "あいうえお")
  (setq ents (entsel "\n図形を選択："))
  (if (/= ents nil)
    (progn
      (setq enna (nth 0 ents))
      (if (/= enna nil)
        (progn
          (regapp "UFPATT") ;使用するアプリケーション文字列
          (setq exda (list (list -3 (list "UFPATT" (cons 1000 att1)
                                  (cons 1000 att2) (cons 1000 att3)))))
          (setq enls (entget enna))
          (setq newe (append enls exda))
          (entmod newe)
        )
      )
    )
  )
  (princ)
)