クイックセレクトでオブジェクトを絞り込むのは便利です。
しかし、毎回ダイアログで条件を設定するのは正直面倒ですよね。
よく使う条件であれば、LISPにしてしまうことでワンタッチで選択できるようになります。
以下は円だけを選択できるLISPです。
(defun c:QSC ( / sel )
(setq sel (ssget '((0 . "CIRCLE"))))
(sssetfirst nil sel)
(princ)
)すぐできる設定手順
- コマンド「QSC」を入力
- オブジェクトを囲んで選択する
- 円だけが選択されます
仁(じん)画像付きのSTEPは、下で確認できますよ！
Contents
操作手順
STEP
- コマンド「QSC」を入力して、エンター
- オブジェクトを囲んで選択します
STEP
- 円だけが選択されます
その他のオブジェクト選択LISP
円以外にもよく選択するオブジェクトを選択可能なLISPをまとめました。
凛(りん)コピーして使用してください！
「円」を選択するLISP
(defun c:QSC ( / sel )
(setq sel (ssget '((0 . "CIRCLE"))))
(sssetfirst nil sel)
(princ)
)「ブロック」を選択するLISP
(defun c:QSB ()
(setq sel (ssget '((0 . "INSERT"))))
(sssetfirst nil sel)
)「リージョン」を選択するLISP
(defun c:QSR ()
(setq sel (ssget '((0 . "region"))))
(sssetfirst nil sel)
)「ソリッド」を選択するLISP
(defun c:QSS ()
(setq sel (ssget '((0 . "3dsolid"))))
(sssetfirst nil sel)
)「寸法」を選択するLISP
(defun c:QSD ()
(setq sel (ssget '((0 . "*DIMENSION"))))
(sssetfirst nil sel)
)「引き出し線」を選択するLISP
(defun c:QSM ()
(setq sel (ssget '((0 . "*multileader"))))
(sssetfirst nil sel)
)「文字」を選択するLISP
(defun c:QST ()
(setq sel (ssget
'((-4 . "<OR") (0 . "text") (0 . "mtext") (-4 . "OR>"))
))まとめ
- よく使う選択条件は、LISP化しておくことで作業がかなり楽になります。
- 繰り返し操作はどんどん自動化していきましょう。
コメント