(entget(car(entsel))(list"*")) 選択したオブジェクトのエンティティリストを返す1行LISP文 拡張エンティティデータを含んでいる場合にも対応する 度忘れしたので備忘として記録する