ホーム＞AcadRemocon＞サンプルプログラム

※サンプルは順次追加していきます。

ダイアログ構築 | 作図 | 編集 | 寸法 | 作図補助 | 図形変換 | 抽出 | 割り込み | メソッドサンプル

• ダイアログ構築機能使用コマンド ※Ver2.1.1以降をご使用下さい。

	コマンド名	補足
	テキスト一括エディタ	選択した複数のテキストを一括編集出来るテキストエディタです。※2002/11/27追加 文字列の置換や半角<->全角変換等も可能です。 VBScript製ですので、テキストエディタで自由に改造出来ます。 →スクリーンショット

 

• 作図

	コマンド名	補足
	円弧に沿って文字列を記入	指定した円弧に沿って文字列を記入します。 →スクリーンショット
	中心を指定して長方形を描画	中心を指示後、縦と横の長さを入力して長方形を描画します。
	底辺を指示後、斜辺の長さを入力して三角形描画
	連番記入	10・16進数、桁揃え、接頭・接尾語指、文字位置合わせ・高さ・角度指定可。
	セルの内容に従って直線を連続描画

 

• 編集

	コマンド名	補足
	連続回転コピー	図形選択後、任意の角度を入力して連続回転複写が出来ます。
	文字列内容を他オブジェクトに一括貼付	オブジェクトの文字列内容を他オブジェクトに一括貼り付けします（TEXTでもMTEXTでもなんでも可）。
	文字種変換	選択した複数の文字列の種類を変更します。 小文字→大文字、大文字→小文字、半角→全角、全角→半角の4種類の変換が可能です。※2002/11/27追加
	加算連続コピー（前方検索）	単一の文字列に含まれる数値を加減算しながらコピーします。 プログラム先頭2行のパラメータを変えているだけで、中身は同じ物です。 ※2002/11/27追加
	減算連続コピー（前方検索）
	加算連続コピー（後方検索）
	減算連続コピー（後方検索）

 

• 寸法

	コマンド名	補足
	クイック寸法記入-上側用	AutoCADレギュラー版のクイック寸法記入コマンドに近い動作をします。※2002/10/31追加 →スクリーンショット
	クイック寸法記入-下側用
	クイック寸法記入-右側用
	クイック寸法記入-左側用
	円弧寸法一括記入	円弧寸法を一括で記入します。寸法値の円弧からの距離を指定出来ます。※2002/10/15修正
	直線・円弧長さ寸法一括記入	直線・円弧の長さ寸法を一括で記入します。寸法値の図形からの距離はDIMSCALE×10になります。※2002/10/30追加 →スクリーンショット
	円弧からクイック引出線記入	円を選択後、2点目を指示するだけで、円の中心と2点目を結ぶ直線と円の交点から引出線を出すことが出来ます。※2002/10/31追加

 

• 作図補助

	コマンド名	補足
	選択したオブジェクトの属性を現在値に設定	色・画層・線種・線種尺度・線の太さに対応。
	オブジェクト不可視化	選択したオブジェクトを不可視にします。
	オブジェクト不可視化2	選択したオブジェクトと同じ画層、かつ同じ色のオブジェクトを不可視にします。
	オブジェクト不可視化解除	オブジェクトの不可視化を解除します。
	画層ON-OFF状態入替	現在図面の画層表示状態を一発で反転させます。
	図面切替(Ctrl+Tab送信)	AutoCADにCtrl+Tabキーを送信します。ツールバーに登録すればボタンで図面の切替が行えます。※2002/10/31追加

 

• 図形変換

	コマンド名	補足
	スプラインを円弧で近似 ／VB6ソースファイル	スプラインを複数の円弧で近似します。気に入らなければ許容差を入力して何度でも描画し直すことが出来ます。 →スクリーンショット
	円弧を円に一括変換	選択した複数の円弧を円に一括変換します。画層・線種・線色は元の情報が反映されます。
	重複オブジェクト削除(LINE,ARC,CIRCLEのみ)	図面内の重複オブジェクト（直線･円弧・円のみ対応）を削除します。ロックされているオブジェクトは対象外です。
	オブジェクトフラット化	ENTITIESセクション内のオブジェクトのZ値（グループコード30〜39）を0にします。ロックされているオブジェクトは対象外です。自力でDXFファイルを操作するサンプルでもあります。

 

• 抽出

	コマンド名	補足
	座標連続取得	AutoCAD上で指示した点の座標値をセルに連続記入します。
	面積連続取得	AutoCAD上で指示したエリアの面積をセルに連続記入します。
	図面に含まれる全ての文字列を抽出	図面に含まれる全ての文字列を抽出してセルに記入します。

 

• 割り込み

	コマンド名	補足
	割り込み2点間中点指示	LINEやTEXT等のコマンドの座標指示中に割り込んで、2点間の中点を指示する割り込みコマンドです。 精度は常に少数部8桁です。※2002/11/27差し替え(掲示板でIntMid2P_V4.vbsと呼んでいたバージョン)

 

• メソッドサンプル

	コマンド名	補足
	放物線描画サンプル
	リサージュ曲線描画サンプル
	FILTERダイアログ自動記入サンプル	acFilterメソッドを使って、FILTERダイアログに自動記入するサンプルです。このコマンドは割り込みで使えます。
	FINDダイアログ自動記入サンプル	acFindメソッドを使って、FINDダイアログに自動記入するサンプルです。
	QSELECTダイアログ自動記入サンプル	acQselectメソッドを使って、QSELECTダイアログに自動記入するサンプルです。