Egg's Blog

●マルチテキストの色をリセット

マルチテキストで部分的な色編集を行った箇所を
リセットするプログラムです。

データ： 「TTS Project.dvb」ファイル

マクロ：ResetMtextColor

●Line Break

交差部分　Lineの分断 Lisp

command : linebreak

linebreak コマンド

線分の交差部分で後に選択した１本を分割します。
オプション「S」で長さを設定できます。

線分図形のみの処理です。

（変数消してません。エラー処理もしていません。）

●Version 2007 カスタマイズ 資料

AutoCAD＆AutoCAD LT 2007バージョンでのカスタマイズ資料
　・CUI
　・ツールパレット
　・Diesel
　・線種
　・ハッチング

●塗潰しハッチングを利用して背後の図形を非表示

図のようにタグ部分の背景を非表示にして印刷したい場合
（AutoCAD＆AutoCAD LT）

　タグに塗潰しハッチングをし、最前面に配置

　このままだと印刷時にタグ部分は真っ黒
　印刷スタイルでハッチングで利用した色を白にして印刷。

手順

１、タグブロックにハッチングを追加

ハッチング用の特定レイヤーを作成
例）レイヤー名：i_Area-Hatch　色：250
（後から色変更が出来るようにハッチングは「ByLayer」で作成しておく）
ハッチングは最背面にする
（色は作業時の背景により黒なら250、白なら255が適当だろう。）

２、印刷スタイルの色設定
ページ設定管理から印刷スタイル（ペンの割当て）を編集

色：250　を選択し「色」から「色選択..」
「True Color」から 254,254,254　を設定
（ここで白にしてしまうと印刷時黒くなるので、限りなく白に近い色を作成）
これを印刷時の印刷スタイルとして利用する。
できれば、「名前を付けて保存」から別名にして
保存しておこう。

備考
「iArea2005」を利用されている方は添付「Sample.dwg」を参照して下さい。

●AutoCAD建築床面積表 「iArea2005」 update! Ver1.1

建築床面積表プログラムを更新しました。

更新内容：
１、タグ番号に接頭文字を追加
２、１、に伴い表のソート方法を変更
３、レイヤーを個別に現在層を利用できる
４、新規ファイルに対し前回の設定を利用
　　（レイヤー名は保存されません。）
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

注）アップデートユーザーは、ＩＤ・パスワードを控え
現在セットアップされているデータをコントロールパネルより削除
新規にセットアップして下さい。
セットアップ方法は添付のReadme.txtを参照してください。

Download：i_Area2005.zip

●AutoCAD Modify Tools2

寸法線を選択、トータル距離を入力しストレッチ

右クリックで「再生」

Command :ANDIMSTRETCH

交差選択し、変更する側の寸法線分を選択
（補助線、文字ではいけません。）
トータル距離を入力し「Enter」
選択位置の反対側からの距離を計算しストレッチします。

ダウンロードファイル（anModify.fas）
　
ボタンへの登録は
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_andimStretch,^C^C_andimStretch)

●AutoCAD Modify Tools

Offset Toolに加え
編集ツールを２つ追加しました。

（AutoCAD）

マクロ名　１、anwOffset
　　　　　　　　二重線を作成します。

　　　　　　２、ansOffset
　　　　　　　　オフセットした線分のコーナーを連結します。

　　　　　　３、ansMirror
　　　　　　　　線分選択でMirror。
　　　　　　　　ansMirrTextで基図形の削除設定

　　　　　　４、ansMidLine
　　　　　　　　２線分選択で中心線を作図。

ダウンロードファイル　（anModify.dvb）

マクロの登録方法はこちら

●Offset Tool 2

オフセットツールの更新

更新内容
　　　　　　　１、UCSに対応
　　　　　　　２、ネストした図形に対応
　　　　　　　　　（Line図形だけですけど...）

●Offset Tool

今年最初は
オフセットツールのご紹介
（どこにでもあるようなものですが、、、）

ダウンロードファイル　（an_Woffset.dvb、an_Woffset.ini）

VBAで作成してあります。（test Ver2006）

マクロ名　１、anwOffset
　　　　　　　　二重線を作成します。

　　　　　　２、ansOffset
　　　　　　　　オフセットした線分のコーナーを連結します。

登録方法はこちら
　　　　

●Text Link!

外部参照内の文字のリンク
ダウンロードファイル

サポートフォルダ内にファイルを配置します。
ファイルをロード後、コマンド：「cec_textlinkat」
外部参照したデータ内の文字を選択、文字が配置されます。
文字高さはTextSizeから取得しています。

更新時には　コマンド：「(cec_textlinkup)」
リンクされた文字が更新されます。

基の文字が見つからない場合は
更新時に文字が赤く表示されます。

●AutoCAD建築床面積表 「iArea2005」

建築床面積表プログラム
形状を指定し計測、面積表を作成　番号、計算式を記入
変更時には編集ツールを利用し再計測　表も更新されます。
その他Excel書出しなど追加

Download Page

デモ版からようやくシェア化
2006用は更に機能を追加する予定です。

●建築床面積表

面積計算ツール（Demo）
形状を指定し計測、面積表を作成　番号、計算式を記入
変更時には編集ツールを利用し再計測　表も更新されます。
（AutoCAD2004、AutoCAD2005、ADT2004、ADT2005 を対象に作成してあります。）

プログラム
解説

●XCLIPの分解＆切取り

command:XClip 「修正」－「クリップ」－「外部参照」
外部参照に関わらず、ブロック図形のクリップができるコマンド

これを分解 ＆クリップ範囲で切り取ります。

Download file

注）
１、データは必ず事前に保存し別名にし実行してください。
２、Expressツールが必須となります。
３、外部参照はバインドしてから利用。
４、クリップ範囲は直線のみ　円、円弧、楕円、スプラインには対応していません。
５、ハッチング、ポリライン、グループを分解します。
６、クリップ範囲に含まれる寸法図形は対象外です。

AutoCAD 2005 で動作確認しています。その他のバージョンでの動作は未確認です。
是非ご一報を

設定＆操作
サポートパスの通っている場所に解凍ファイル（cXclipExplode.dvb,cXclipExplode.LSP）を置きます。

A　LISPファイルをロード
　 コマンドラインに「cxclexps」

B dvbファイルをロード マクロより実行

完成後は、ブロック図形として挿入されています。
１つのファイルで2回行う場合はブロックを分解してから実行です。
（Expressの「burst」を利用すると良いでしょう）

●包絡処理

「包絡処理」コマンド
Download file

添付ファイル：cwallcleanup.dwg
Lispファイル：cwallcleanup.fas
コマンド名: cwallcleanup

dwgのコメントを参考にしてください。
レイヤーごとの処理や、UCSに対応しています。

●三角形

AutoLispで 三角形の作成
Download file

もう一度見たい時は右クリックで「再生」