Ｌ９．拡張エンティティとして情報を付加する 　　　(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) 　　　) 　　上記ＡｕｔｏＬＩＳＰファイル（ufl00009.lsp）のダウンロード 　説明 　　regapp：アプリケーションを登録する。 　　cons：１つの要素をリストに結合する。 　　entmod：図形を変更する。 Presented By ユーザーフレンドリー E-mail:usrfr@yk.rim.or.jp