AutoCADマクロ屋本舗 掲示板

選択したオブジェクトでabcの画層にあるオブジェクトを黄色に変更したいのですが
下記lispだとabc画層を含むグループ化されていてるものも
abcが層以外のものも色が変わってしまいます。

ダイアログがでるfilterコマンドだとグループ化されていても
問題なくabc画層オブジェクトのみ色が変更できます。

どの部分を変更すればいいでしょうか？

(defun c:filterchgcolor ()
(setq Objs (ssget '((8 . "abc"))))
(command-s "._change" Objs "" "p" "c" "2" "")
(princ))

システム変数pickstyleを0にしてからssgetしてみたら。

(command-s "._change" Objs "" "p" "c" "2" "")
を
(command-s "._change" "p" "" "p" "c" "2" "")
にしてみては？

Objs →　"p"　に変更したらできました。
ありがとうございます。

下記の部分で　"abc" を　変数にすることはできるのでしょうか？

画層名を先に取得した画層を変数にして代入したいのですがエラーがでます。
(ssget '((8 . "abc")))

(defun c:filterchgcolor (/ lay)
(setq lay (assoc 8 (entget (car (entsel)))))
(setq Objs (ssget "_X" (list lay)))
(command-s "._change" "p" "" "p" "c" "2" "")
(princ))

こんな感じでしょうか。
選択オブジェクトの画層の色を変更します。

ありがとうございます。
理想通りになりました。