AutoCAD - 日本語フォーラムのトピックRe: 画層が存在するか。lisp

画層が存在するか。lisp

naozo8257 — Tue, 24 Oct 2017 12:49:50 GMT

画層が存在するかどうかを調べるにはどうすればよいでしょうか。

また、commandを使わずに新規で画層を作成するにはどうすればよいでしょうか。

まずは画層が存在するかどうか判断し、あれば現在層に設定する。なければ新規に作成して現在層に設定するというものを作ろうと思っています。

よろしくお願いします

Re: 画層が存在するか。lisp

N.H1971 — Wed, 25 Oct 2017 01:27:02 GMT

こういう感じでしょうか。

(defun c:scl ( / alay alays dcment adLays lay1 layname indx flg msg)

(vl-load-com)
(setq alay (getstring "\検索する画層名を入力:"))
(setq alays (strcase alay T))
(setq dcment (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq adLays (vla-get-layers dcment));現在の画層リストを取得

(setq indx 0)
(setq flg 0)
(repeat (vla-get-count adLays)；現在の画層リスト分だけリピート
(setq lay1 (vla-item adLays indx));画層
(setq layname (vla-get-name lay1));画層名
(setq layname (strcase layname T))
(setq indx (1+ indx))
(if (vl-string-search alays layname);検索画層名と一致した場合
(setq flg 1)
); end if
); end repeat
(if (= flg 1)
(progn
(setq msg (strcat "\n画層名:" alay "は存在します。"))
(princ msg)
)
(progn
(setq msg (strcat "\n画層名:" alay "は存在しません。"))
(princ msg)
)
)
(princ)
)

commandを使わずに画層を作成するには、layersプロパティとvla-Addを使用します。

詳しくはヘルプでlayersプロパティを検索してみてください。

Re: 画層が存在するか。lisp

naozo8257 — Thu, 26 Oct 2017 12:49:54 GMT

N.H1971 さん回答ありがとうございます。

頂いたlspを使ってみて私が求めていたように、画層がある時は"画層名:**は存在します。"無い時は"画層名:**は存在しません。"と表示されました。

ですが、画層"ABC"のみ存在する時に"A"画層が存在するかを調べると、存在しますと返されてしまいました。

また、教えていただいたlayersプロパティとvla-Addですが、なかなか理解できませんでした。

画層名や画装色等の情報をリスト化して何かの関数で新規画層が作成できるのでしょうか。

理解できそうなurlがありましたら頂けますか。

よろしくお願いします。

Re: 画層が存在するか。lisp

N.H1971 — Fri, 27 Oct 2017 00:29:07 GMT

すみません。vl-string-searchがまずかったみたいですね。

(if (vl-string-search alays layname);検索画層名と一致した場合　　→　　(if (equal alays layname);検索画層名と一致した場合

に書き換えてください。

layersプロパティとvla-Addについてですが、ヘルプで「layers」を検索→「layersプロパティ」の項目はご覧になりましたか？

その中のVisual LISPのコードの中で

「;; Create a dimension style named "TEST" in current drawing」以下の部分が、TESTという新画層を作成する部分になっています。

コメント文は新たに寸法スタイルを作るとなってますが、これは間違いだと思います。

Re: 画層が存在するか。lisp

naozo8257 — Fri, 27 Oct 2017 16:27:10 GMT

画層有無の判断正しく行えましたありがとうございます。

新画層作成なのですが

　(setq testlayer (vla-Add layerColl "TEST"))

のvla-Addで今ある画層にtest画層を新規作成していると思うのですが、

このsetqは何をしているのでしょうか。

画層を作成と同時に画層色も設定しようと思うのですが、

(vla-put-Color "画層名" acRed) の形で画層色を設定できるでしょうか。

よろしくお願いします。

Re: 画層が存在するか。lisp

N.H1971 — Mon, 30 Oct 2017 02:14:36 GMT

>　(setq testlayer (vla-Add layerColl "TEST"))

>のvla-Addで今ある画層にtest画層を新規作成していると思うのですが、

>このsetqは何をしているのでしょうか。

これは、このコードの最終行にある、

(alert (strcat "A new layer called " (vla-get-Name testlayer) " has been added to the Layers collection.")))

で画層名を取り出すために、変数testlayerに入れています。testlayerはLayerオブジェクトになります。

オブジェクトから、再度名前を取り出してメッセージに入れているわけです。

このコード内ではメッセージを出さないのであれば、setqの必要はありません。

ただし、画層のプロパティ設定には必要です。

画層色設定の場合は、

>(vla-put-Color "画層名" acRed)

ここで、画層名ではなく上記のLayerオブジェクトが必要になります。

(setq testlayer (vla-Add layerColl "TEST"))
(vla-put-color testlayer acRed)

こうすると、画層色が設定できます。

Re: 画層が存在するか。lisp

naozo8257 — Mon, 30 Oct 2017 12:44:57 GMT

N.H1971 さん

画層有無判断のコード、画層作成と色設定の手引きありがとうございました。

ユーザー入力(画層名)をして画層名が有るか判断し、有れば現在層への適応

無ければ新規作成し画層色に赤を設定する。というlspが作成できました。

とても勉強になりました。

まだlispでやりたいことがいくつかあります。

また質問を上げることがありますので是非ご教示お願いします。