Ｌ１０．拡張エンティティとしての情報を取得する
　　　(defun c:ufl00010 ( / ents enna enls kae kael kae1 att1 kae2 att2 kae3 att3 )
　　　;拡張エンティティとしての情報を取得する
　　　　(setq ents (entsel "\n図形を選択："))
　　　　(if (/= ents nil)
　　　　　(progn
　　　　　　(setq enna (nth 0 ents))
　　　　　　(if (/= enna nil)
　　　　　　　(progn
　　　　　　　　(setq enls (entget enna '("UFPATT")))
　　　　　　　　(setq kae (cdr (assoc -3 enls)))
　　　　　　　　(if (/= kae nil)
　　　　　　　　　(progn
　　　　　　　　　　(setq kael (car kae))
　　　　　　　　　　(setq kae1 (cdr kael))
　　　　　　　　　　(setq att1 (cdr (assoc 1000 kae1)))
　　　　　　　　　　(setq kae2 (cdr kae1))
　　　　　　　　　　(setq att2 (cdr (assoc 1000 kae2)))
　　　　　　　　　　(setq kae3 (cdr kae2))
　　　　　　　　　　(setq att3 (cdr (assoc 1000 kae3)))
　　　　　　　　　　(print att1)
　　　　　　　　　　(print att2)
　　　　　　　　　　(print att3)
　　　　　　　　　)
　　　　　　　　)
　　　　　　　)
　　　　　　)
　　　　　)
　　　　)
　　　　(princ)
　　　)
　　上記ＡｕｔｏＬＩＳＰファイル（ufl00010.lsp）のダウンロード

　説明

Presented By ユーザーフレンドリー
E-mail:usrfr@yk.rim.or.jp