しばらくお休み

引っ越し先でNet環境が整うまで
しばらく記事の追加はお休みです。

ADSL　から　ISDN　になってしまう。
なんてこった。田舎は，こまる。

Lineの切れ目を探せver.5たたき台版

kjuさんのBBS内でとりあえずVER.UP。
もうちょっと整理してから，出します。

男の表記入

「OtokonoHyou.xls」をダウンロード

Excelの文字を，CADの表に記入します。
定型の表への記入には重宝すると思います。

男シリーズはコピペが基本です。
もひとつ，がさつです。

n行飛ばしのデータ取得

「nGyouTobasi.xls」をダウンロード

例えば，５行飛ばしに拾ったデータを
別のセルに連続で記入したい場合等に
使えます。

LINEの切れ目を探せVer.2

「line2.vbs」をダウンロード

使用方法

１．コピーした問題の図形を分解して線分化しておく。
２．スクリプトを実行して一連の線分を指定する。
３．つながっていない線分の端点に円が描画される。
細かい場合はクイック選択で円を指定してやると見つけやすいかも。

※円弧には対応していないので、つながっている場合は、円弧の両端（円弧と接続する線分の端）に
○がつきます。つながっていない場合は円弧には○がつきませんので、そこは状態をチェックして下さい。
円弧と線の接続部分はつながっていないことが多々あるので必須チェック箇所です。

選択図形の最大XY座標点と最小XY座標を求め,
その対角線の長さに対する比率で得られた長さを半径とする円を記入します。

Denさん，gakuさん，hirahiraさんお世話になりました。

GetArea

とりあえず急ぎでアップします。
KJUさんとこのBBSからの流れです。
ファイルがでかいと怒られたので，ここに。

「GetArea.lzh」をダウンロード

CAD＆CG

☆CAD&CG２月号情報
少し遅れましたが、１２月２４日発売でした。お役立ち情報がありまっせ！
特集１の「AutoCadを生かせるワザとツールを紹介します。」です。
本屋で立ち読み、又は下記で情報収集しましょう。
http://www.interlabo.com/

え？もう買いましたか。残念！斬り！
アドメニュー、LTラスター、AcadSky、その他の唸る情報が目白押し！
特に齋藤秀一さん（オフィス　スリー・ワン）の「麗耶」。
土木屋にとっては最高の一品です。
国土交通省「CAD製図基準（案）」の画層構成を簡単作成・編集できる。
ほんとはシェアウェアなのだが、本誌収録版は無料なんだって。
拙作「男シリーズ」が目指すところです。
日本語レイヤ名の追加，削除が出来れば個人的には尚最高。

PDFとDWFの比較記事も必見。
他にもいろいろ優れものばかりです。ご確認下さい。
ちなみに３月号（１月２４日発売）は
「オンラインソフト大集合」だそうです。
売り切れごめん。（私はCAD＆CGの回し者ではありません。あしからず）

CAD文字をExcelにコピペVer.5&Ver6

Ver.6
正規表現をちょっと見直しました。
動作確認用のｺｰﾄﾞが残っていたので削除しました。2005.2
申し訳ない。
「MTextClip6.vbs」をダウンロード

Ver.5
前回の課題に対応してみました。
MTEXTの書式削除と文字基点を基準とした縦横指定コピペです。
実行の有無をﾀﾞｲｱﾛｸﾞから選択可能。

なお，クリップボードを介してコピーしますので，貼り付け先はExcelに限らず，CADにもWordにもOK。
CADに貼り付ける場合は，現在画面の左上となり，文字の大きさは寸法値の設定に左右されるようです。
説明書きが，ﾌｧｲﾙの冒頭にあります。読んで下さい。
MTextClip5.vbsのダウンロード

CAD文字をExcelにコピペVer4

MTEXTの書式削除に対応してみました。

今後の課題は
１．縦，横に対応して座標の大小で，上下左右順に並び替え
２．書式削除の機能強化

です。削除できない書式があれば連絡お願いします。

MTextClip.vbsのダウンロード

MText書式削除（参考）

マルチテキストの書式削除を行う参考VBSです。
CADから文字列を取得するプログラム用として応用して下さい。
例：CADから文字列を取得してExcelに取り込むとき変換する等

使い方
書式設定されたMTEXTをがばっと選択。書式が削除されて
表示されればOK。うまく削除されないMTEXTがあれば
教えて下さい。

試行で正規表現を使ってみましたが，なかなか便利です。
いろいろ使い道がありそうですね。検証に，yoshiさんとm-starさんに
ご協力願いお世話になりました。
有り難うございました。
MTextPform.vbsのダウンロード

面積値図心記入Ver.８にアップ！

いいかげんにしろ！ってか？
またまたまたいきなり，バージョンアップです。
というより，間違い修正です。とほほほほほほ・・

Ver７からの改良点
１．接頭辞表示
２．境界作成失敗時の処理
３．その他こまごま

Ver６からの改良点
１．誤字修正
２．接頭辞に現在の画層名，選択図形画層名追加
３．ツールチップ追加

Ver4からの改良点
１．文字記入を重心だけでなく，任意の位置に記入できる
２．コードも余計なものを整理
３．LUPREC設定値の関係で精度が低くなりそうな場合，警告する。
４．四捨五入，切り捨て・上げと小数位の指定可能
５．前回設定値の反映を整理しました。

MensekiZusin8.vbsのダウンロード

転ばぬ先の杖は引っ越しました

Cadのお役立ち・転ばぬ先の杖は，右下の「連携ブログ」からアクセスして下さい。
または，ここから。

縦断ペーロケろーぺyoshiⅡ

現況縦断ペーロケ用です。横断図にも使えます。
ﾌｧｲﾙの中にも説明書きがあります。読んで下さい。
平面図で変化点をｸﾘｯｸして，標高入力していきます。
円文字，標高，Memoを記入できます。

現状で安定動作と操作手順が確認できたら，環境設定を
ダイアログで出来るよう改良予定です。

縦断ペーロケろーぺyoshiⅡのダウンロード

面積値図心記入Ver.4

不具合修正版です !　許してちょ・・・
'@@@@@　選択図形の重心位置に面積を記入ダイアログ版
'　ByPowers　Thanks　Mr.Oyama

'大山さん作を改造。感謝いたします。ダイアログでやってみました。
'リージョンの作成方法選択の設定で，「境界作成」か「図形の選択」かを選べる。
'目的図形の中に，境界作成に余計な線がある場合は，「図形の選択」が良い。
'「図形の選択」の場合，複数図形を選択すると，その合計値で合成の図心に記入されます。

'図形内指定の場合は，単一図形対象となります。ただし交差している場合は，
'その囲まれている範囲を対象とします。通常の場合と一緒です。
'面積算出根拠となるリージョン図形を，残すか，消すか設定可能。
'右クリックでダイアログ再表示。終わる場合は終了か×ボタン。
面積値図心記入Ver.4のダウンロード

横断位置関係を平面へ

○○○ AraPolyEx5-2.vbs 　　　By Powers 2004.7.29改訂○○○
横断図形の位置関係を平面図に反映させる。CLから横断図の選択されたポリライン各頂点までの距離を算出し，
直線ポリラインと，各頂点及びCLとの交点を中心とする円を記入する。これを平面図の対応測点にコピペし，各点を結線していく基準にする。横断図上の各点（アンカー位置，各種法面保護構造物の位置等）を,平面図に落としたいときに便利。ファイルの中にも使い方を記述していますので，覗いて下さい。
あらポリEX5-2のダウンロード

接線円弧，接線直線追加

'接線円弧5.vbs　ByPowers
'直線に接円を追加。こんなの誰が使うんだ？
参考でどうぞ。
接線円弧5のダウンロード

'☆☆ EnkoPlusLine.vbs By Powers
'円弧に接線を追加。接線長さは、円弧長さの二分の一
'円弧をひとつ選択して右ｸﾘｯｸするだけ
'もひとつ，こんなの誰が使うんだ？
もひとつ，参考でどうぞ。
EnkoPlusLineのダウンロード

国交省ブロック断面標準図～男シリーズ～

※9/18再UP
kjuさんの掲示版の流れです。
頻繁に使うものではありませんが，スクリプトの参考になれば。
半端な高さが出てくる数量計算の根拠図には，重宝するかと。
ブロック積み8のダウンロード

＋縦算（種別名指定版)

拙作のArea_Laylist.vbsと，組み合わせて使うことを想定しています。また，種別名をきちっと分けている文字になら使えます。

集計したい基準種別名の文字を指示、その種別名を持つ数値を足し算し、合計する。2004.08.31改良
例： 舗装１=100.0m2を基準として指示した場合の種別名は「舗装１」。この「種別名=」を持つ数値のみ足し算していく。
＋縦算（種別名指定版)のダウンロード

LINEの切れ目が，縁の切れ目

LINEで囲まれた図形に境界作成等を行いたいときや，線分の端点同士が，微妙にずれてるトラブル解決のお手伝い。円弧には対応してません。逆に言うと円弧やポリラインと線分の境を探せる？良いように考えよう。

LINEの切れ目を探せ2のダウンロード

カーブデータ記入

yoshiさんの「園路用引き出し」に対応作成。

円弧始点・中心・終点とクリックして，文字記入位置を指示。
道路関係のかたは，もうひとつふたつデータが欲しいかな？
yosiCurveDataのダウンロード

面積記入&縦算（指定画層）連携

「面積値取得記入」と，「縦算：指定画層で集計」の連携を必要にせまられて，改良してみました。必要な方には凄く便利な二品。解凍後のReadMeを読んで下さい。
面積記入&縦算（指定画層）連携のダウンロード

カスタマイズのとっかかり～男シリーズ～

EXCELの計算式や関数を使って座標をまとめた物を
CADのコマンドラインに手動で貼り付ける，または，簡単なVBA
でCADにデータを渡す方法です。

ちょっとした座標がわかっている図形を書く場合は，いまだに使っています。
お手頃なんですね。単機能で，逆に狭い範囲の用途には便利なんです。

ポリラインで座標を追って，丸付き文字を記入します。
男シリーズは，コマンドラインへの手動貼り付け（半自動）が基本です。
作ってみたらCAD＆CGで紹介されていたものと，そっくりになってしまいました。
「男のコピペ」のダウンロード

文字回転VER.4

VER４だよ～ん。８月７日。
二点指示で指定した角度に文字を回転させます。
avaさん作の文字を180度回転を改造しています。
avaさん感謝！いたします。m(_ _)m

kjuさんのBBSで，やすけんさん用に作成しましたので
このネーミングになってます。
使い方
１．一点目指示
２．二点目指示
３．文字選択（矩形選択OK）
４．右クリック
※UCSをワールドにして作業し，元に戻すようにしました。VER.4。
戻らない場合もあるかも。その時は，許してくれい。

やすけん文字回転４のダウンロード

CAD文字をExcelにコピペVer３

CAD文字をクリップボードに格納。またまたVER.UP。７月４日
貼り付け方向を選択できるようにしてみました。
CADはもちろんExcelや，メモ帳等にもコピペできます。当然ですが。
要改良多数ですが，たたき台でアップ。
マルチテキストには分解で対応。
°やφなども別々の文字になります。
ファイルのダウンロード

GetPPSTL5にVERアップ

※4は，Mtextのみの抽出でTextがGet出来ていませんでした。修正して再アップします。m(_ _)m
Mtextの書式削除を分解で処理してます。プログラムが異常終了したり，上書き保存のタイミングが悪かったりすると，マルチテキストがテキストに分解されたままになるので，作業用に別名で保存してます。勉強中のおじさんさん，大山さんに感謝致します。KJUさんの掲示版からの流れです。　ファイルが大きいと怒られてしまったのでここにUP！。　図面から，ある特定の画層名を指示して，それに属する文字列を取得記入します。　最初に図面の画層名リストを取得して，その中から希望画層を，コピペで指定できるようにしています。　改良点も多数ですが，お試しの一品です。　使い勝手を教えて頂ければ，今後に役立ちます。よろしくお願いします。
GetPPSTL5.lzhのダウンロード

寸法関係

寸法関係をいくつか作成中なので，でき次第ここに入れていきます。
DimLayValue.vbs
値を上書きした寸法の画層を変えて，寸法値の色を変更　kosoさんに感謝
DimLayValue.vbsのダウンロード

オブジェクト不可視化2yosi

kjuさんの掲示版でyoshiさんと作成
'オブジェクト不可視化2.vbs（kjuさん)を改造。感謝！
'選択したオブジェクトと，同じ色のオブジェクトを不可視にします。
'色がByLayerの場合は属する画層の色で対応した。
'元に戻すには， オブジェクト不可視化解除.vbsを使って下さい。
オブジェクト不可視化2yosi.vbsのダウンロード
オブジェクト不可視化解除.vbs入手先

造園系_数量計算根拠図用１

Kjuさんの掲示版でyoshiさんと作ったものです。
いつもながら皆さんのスクリプトを参考にしています。感謝！
夢のvbs
流れ概略
図形選択→面積取得→植栽単位当たり株数入力→必要株数と計算式記入
夢のvbsのダウンロード
＋縦算yoshi
＋縦算の改良版。選択した数値に記号を付けて区分する。
＋縦算yoshiのダウンロード

GetSelectTxt2.xls

GetPPSTL2.xls の前身ですが，yoshiさん用に改造。
これはこれで，使い道がありそうなのでUP。
GetSelectTxt2.xlsのダウンロード

＋縦算

足し算を縦表記で。合計値記入。数量計算書の根拠図あたりに使えます。詳しくはファイルの中を覗いて下さい。
面積 = 234.8㎡　,　234.8m2,　234.8等　使いたい文字列で試用のうえ利用して下さい。
矩形で文字以外を一緒に選択してもOKのはずです。AcadRemocon掲示版の多数の過去スクリプトを参考にさせてもらいました。皆さんに感謝。動作確認用コードが残ったままでした。ファイルを入れ替えました。
Download file