<?xml version="1.0" encoding="UTF-8" ?>
<rss version='2.0'>
<channel>
<title>AutoCADマクロ屋本舗 掲示板</title>
<description>新着投稿一覧</description>
<link>http://totthi.bbs.fc2.com/</link>
<ttl>60</ttl>
<copyright>FC2, inc</copyright>
<item>
<title>Re: 文字 下線/二重下線付加　のマクロで</title>
<author>THIG</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16969665</link>
<description><![CDATA[ささぐりーんさま　動作を確認いたしました。
ご教授いただき　ありがとうございました。]]></description>
<pubDate>Tue, 28 Jul 2026 15:26:23 +0900</pubDate>
</item>
<item>
<title>Re: 文字 下線/二重下線付加　のマクロで</title>
<author>ささぐりーん</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16969665</link>
<description><![CDATA[chprop;l;;c;8;;
を
chprop;l;;la;DIM;c;ByLayer;;
に変更。

但し、図面内にDIM画層が存在しない時はエラーになります。]]></description>
<pubDate>Tue, 28 Jul 2026 11:35:56 +0900</pubDate>
</item>
<item>
<title>文字 下線/二重下線付加　のマクロで</title>
<author>THIG</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16969665</link>
<description><![CDATA[お世話になります
とってぃさまの　文字 下線/二重下線付加　のマクロをコピ－させていただきましたけど。
線種を　DIM画層のByLayerになるよう修正出来ませんでしょうか。
よろしくお願いいたします。 

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,;to;0;offset;;^x^x文字を選択【$(nth,$(getenv,sw),下線,二重下線)】--切替(Rc)--^x\$M=&amp;quot;&amp;quot;&amp;quot;$(if,$(getvar,cmdactive),;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;setenv;to;2,setenv;sw;$(nth,$(getenv,sw),1,0);;to;1)&amp;quot;&amp;quot;&amp;quot;,,,,)$(nth,$(getenv,to),,,;to;3;-attedit;y]]></description>
<pubDate>Tue, 28 Jul 2026 09:55:00 +0900</pubDate>
</item>
<item>
<title>寒い夜は、あったかい鍋と…♡</title>
<author>寒い夜は、あったかい鍋と…♡</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16969602</link>
<description><![CDATA[まさかこんな可愛い子が来るなんて]]></description>
<pubDate>Mon, 27 Jul 2026 22:30:58 +0900</pubDate>
</item>
<item>
<title>Re: 無題</title>
<author>THIG</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16967999</link>
<description><![CDATA[お世話になります　無題で投稿してすみません
動作を確認いたしました。

LUNEさま　今回もご教授いただき　ありがとうございました。]]></description>
<pubDate>Thu, 16 Jul 2026 16:50:23 +0900</pubDate>
</item>
<item>
<title>Re: 無題</title>
<author>LUNE</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16967999</link>
<description><![CDATA[&amp;gt;キ－ボ－ド入力で　D:寸法スタイル管理　H:ハッチング　とかありますけど
これらをコマンドエイリアスと呼びます。

管理タブ→エイリアスを編集→エイリアスを編集をクリックします。
そうすると、デフォルトのテキストエディタで、acad.pgpファイルが開きます。
下にスクロールしていくと、
[エイリアスとして使用する文字列],  *[コマンド名]
の順に各エイリアスが入力されています。

デフォルトのエイリアス設定に「Q」はないようなので、
CO,        *COPY
この行の下に
Q,        *COPY
を追記してください。

もし、設定したい]]></description>
<pubDate>Thu, 16 Jul 2026 09:54:01 +0900</pubDate>
</item>
<item>
<title>無題</title>
<author>THIG</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16967999</link>
<description><![CDATA[お世話になります
AutoCAD2023を使用しています

キ－ボ－ド入力で　D:寸法スタイル管理　H:ハッチング　とかありますけど
コピ－の場合　C,Oキ－になります。
例えば　このコピ－コマンドを　Qキ－に割り当てるというような方法はありませんでしょうか。]]></description>
<pubDate>Wed, 15 Jul 2026 16:28:26 +0900</pubDate>
</item>
<item>
<title>LAYMRGで最終確認をダイアログ表示</title>
<author>Hamu</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16967856</link>
<description><![CDATA[消されちゃった質問に対して、何となく作ってみた。

元々の質問内容（要望）をよく読んでなかったし、
提示されたコードもよく覚えてないから、全く要望とは関係ない動作になっている可能性大。

(defun C:Mrg_Lay ( / Lay1 Lay2)
	(setq Lay1 (GetObLayer &amp;quot;1個目（消える画層）の&amp;quot;))
	(if Lay1 (setq Lay2 (GetObLayer &amp;quot;2個目（残る画層）の&amp;quot;)))
	(if Lay2 (if (not (eq Lay1 Lay2)) (Gousei Lay1 Lay2)))
(princ)
)

(defun Gousei (Lay1 Lay2)
  (if (Get_YesNo_Msg (strcat &amp;quot;画層[&amp;quot; Lay1 &amp;quot;]　(消える)を\n[&amp;quot; Lay2 &amp;quot;]　(残る)に合成]]></description>
<pubDate>Tue, 14 Jul 2026 11:43:42 +0900</pubDate>
</item>
<item>
<title>Re: 2線間に中心線を作成マクロで</title>
<author>THIG</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16966991</link>
<description><![CDATA[動作を確認いたしました。

LUNEさま　今回もご教授いただき　ありがとうございました。]]></description>
<pubDate>Thu, 09 Jul 2026 08:55:08 +0900</pubDate>
</item>
<item>
<title>Re: 2線間に中心線を作成マクロで</title>
<author>LUNE</author>
<link>http://totthi.bbs.fc2.com/?act=reply&amp;tid=16966991</link>
<description><![CDATA[chpropで画層を変更しているので、続けて線種も変更すればいいです。

*^C^Cpline;nea;\$m=per;\;-layer;n;DIM;;area;o;l;erase;l;;offset;&amp;quot;$m=$(/,$(getvar,perimeter),2)&amp;quot;;$(getvar,lastpoint);&amp;quot;$(getvar,lastpoint)&amp;quot;;;chprop;l;;la;DIM;lt;CENTER;;^M;]]></description>
<pubDate>Wed, 08 Jul 2026 16:12:28 +0900</pubDate>
</item>
</channel>
</rss>
