AutoCADマクロ屋本舗 掲示板

プロパティの線種コントロールに表示されている線種を選択するマクロです。

まず変数を手動で登録します。
setenv→sen1→「(sssetfirst nil (ssget '((6 . "」
setenv→sen2→「"))));」

^C^C$M=$(getenv,sen1)$(getvar,celtype)$(getenv,sen2)
マクロ起動後、範囲選択やA11で現在線種のオブジェクトが選択されます。

AutoCADではＯＫでしたが、IJCADは無理なのでLISPで考えました。

(defun c:d-sensyu ( )
(setq sen (getvar "celtype"))
(sssetfirst nil (ssget '((6 . sen))))
)

「SSGET リスト値エラー」となり動きません。
解決案を教えて下さい。

変数と「'」の組み合わせがとダメみたいです。
なんで、(ssget (list (cons '6 sen))))　ならOKかな。

zukki-さん、LUNEさん
ありがとうございます。

クォートするとそのリストは評価されないので中のsenは評価されない。
変数を使う場合、関数でそのリストになるように組み立てる必要がある。

(defun c:d-sensyu ( )
(setq sen (getvar "celtype"))
(sssetfirst nil (ssget (list (cons 6 sen))))
)

上記で解決しました。

内容はまだ把握していません( ;∀;)

ついでに作ってみました。

;--- 現在の寸法スタイルのオブジェクトを抽出 ----
(defun c:d-sunpoustyle ( )
(setq sen (getvar "dimstyle"))
(sssetfirst nil (ssget (list (cons 3 sen))))
)