AutoCAD - 日本語フォーラムのトピックRe: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

y-inagaki98YM8 — Tue, 18 Jun 2024 23:57:00 GMT

下記動作を自動化したいと考えております
『芯』という文字が入る画層を全て、わかりやくするためにそれらの接頭に★★とつけたいと思っています。

コマンド手順「rename→画層→元の名前が*芯*→新しい名前が★★*芯*」

この動作のlispを書きたいのですがどうしたらよいでしょうか。

よろしくお願いいたします。

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

paullimapa — Wed, 19 Jun 2024 02:13:35 GMT

You may be able to do this manually using the built-in RENAME command.

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

N.H1971 — Wed, 19 Jun 2024 06:45:30 GMT

これでどうでしょう？

対象となる文字列、接頭辞は変更しやすいように変数に入れています。

(defun c:test ( / kwd Layob Layname Prefix) (setq kwd "芯") (setq Prefix "★★") (setq Layob (tblnext "layer" T)) (while Layob (setq Layname (cdr (assoc 2 Layob))) (if (wcmatch Layname (strcat "*" kwd "*")) (command-s "-rename" "la" Layname (strcat Prefix Layname)) ) (setq Layob (tblnext "layer")) ) (princ) )

回复：『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

WeTanks — Sun, 23 Jun 2024 00:59:09 GMT

以下のページに乗せているLISP、参考になるかもしれません。

https://www.lee-mac.com/pslay.html

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

mari.shimode — Wed, 03 Jul 2024 03:57:06 GMT

@y-inagaki98YM8 さん、こんにちは。コミュニティのご利用ありがとうございます。

その後、状況はいかがでしょうか？
複数の方々から返信が来ていますので、お手すきの際にご確認ください。

返信で問題が解決、または解決に至らなくとも参考になった場合は、その返信の右下に表示されている「解決策として承認」ボタンを押してください。
同じ問題を抱えた方の参考になりますので、ご協力のほどよろしくお願いいたします。

引き続き問題を抱えていましたら、返信でお知らせください。

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

y-inagaki98YM8 — Wed, 03 Jul 2024 04:26:34 GMT

ご回答ありがとうございました。
試しみます。

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

mari.shimode — Tue, 23 Jul 2024 04:11:31 GMT

@y-inagaki98YM8 さん、こんにちは。

みなさんからの返信が参考になったようですので、解決策として承認しました。

さらに質問があるようでしたら、本トピックには返信せずに、このトピックへのリンクを含んだ形で新規トピックを作成してくださいますようお願いいたします。
そうすることで、コミュニティメンバーが会話の流れを把握しやすくなります。ご協力いただけると幸いです。

AutoCAD - 日本語フォーラムのトピックRe: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

回复： 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

Re: 『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい

回复：『芯』という文字が入る画層を全て、接頭に★★とつけるlispを作りたい