拡張データの要素の選択

[Angelo2449]

皆さんこんにちは。
拡張データを組み合わせる要素を検索する lisp プログラムを書きました。
すべてがうまく機能します, 拡張されたデータは抽出されます, しかし、私は強調され、おそらくズームされたことが判明した要素が気に入っています.
拡張データを含むグループが署名されます <
> 研究.lsp.
お問い合わせ

 (defun c:rfirma (/ss ename einfo)) )

(setq ss (sget "x" ((-3 ("fir")))))))))))))

(ss の場合)
(プログ)
(ファイル名 0)
(setq einfo (entget ename (list "firma"))))))
(プライン einfo)
;;progn
;;if

;;defun 罰金 rfirma

 

[rpor66]

ss セレクショングループ、ループを作成し、(reraw ename 3) をハイライトします。

 

[Angelo2449]

感謝のrpor66