| Pascal文法のテキストファイル | 昔にPascalの本を読みながら書いていたテキストファイルです。古いのですが、何かの役に立つかも？（本文中の Delphiとは、Ver1.0Jの事です） |
印刷テストプログラム１
(ZIP圧縮；6KB) |
Write()/WriteLn()を使って簡単に
印刷するためのサンプルプログラムです。
Delphi4.0J使用。ソースのみ。 |
印刷テストプログラム２
(ZIP圧縮；5KB) |
フォームのハードコピー機能を使って簡単に印刷するためのサンプルプログラムです。
Delphi4.0J使用。ソースのみ。 |
印刷テストプログラム３
(ZIP圧縮；7KB) |
Printerオブジェクトを使って印刷するためのサンプルプログラムです。
Delphi4.0J使用。ソースのみ。 |
AFRuns Ver 2.0
(ZIP圧縮；
218KB) |
複数のプログラムを順番に実行するためのプログラムです。引数無で実行するとエディタ画面で実行リストの編集を行い、引数に作成したリストファイルを指定すると自動実行します。
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。
起動時に「通常のプリンタ」を変更する事が出来るようにしました。ちなみに、プリンタを増やしたりしたら必ず再設定してね！ |
AFClpPrt Ver 1.0
(ZIP圧縮；
187KB) |
クリップボードにピクチャデータをコピーすると、そのピクチャを印刷するプログラム。
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
AFDC Ver 1.0
(ZIP圧縮；
228KB) |
２つのフォルダ内のファイルのサイズと日付をチェックするプログラム。
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
KeyTyping1
(ZIP圧縮；
161KB) |
くだらないキータイププログラム。A〜Zを順番に入力するってもの。（苦笑）
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
フォント確認 fontchk
(ZIP圧縮；
180KB) |
フォント表示を確認するプログラム。打ち込んだ文字をＰＣに入ってるフォントで表示します（縦書文字は除外）。
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
AFTree Ver 1.0
(ZIP圧縮；
206KB) |
フォルダツリーをファイル化するプログラム。
EXEファイルのみです。 |
ファイル名変更 rename
(ZIP圧縮；
194KB) |
ファイル名を変更するプログラム。ファイル名の前後、拡張子の前後に任意文字を付加するものです。ファイル名を小文字にしたり大文字にするスイッチを付けました。また、ダブルクリックしたファイルの名前を手入力で変更出来るようにしました。(2002.05.31)
EXEのみです。 |
FolderNameCopy Ver 1.0
(ZIP圧縮；
224KB) |
フォルダ名だけをコピーするプログラムです。中にあるファイルは一切コピーしません。
EXEのみです。 |
ReadOnlyCheckOut Ver 1.1
(ZIP圧縮；
224KB) |
フォルダごと一括して、ファイル・フォルダの「読取専用属性」を外すプログラムです。サブフォルダ無し状態にも対応させました。(2003.01.25)
EXEのみです。 |
ToSmallName Ver.1.1
(ZIP圧縮；
224KB) |
フォルダごと一括して、ファイル・フォルダの名前を小文字にするプログラムです。２バイト系文字はそのままです。サブフォルダ無し状態にも対応させました。(2003.01.25)
EXEのみです。 |
AFDXFTCW
(ZIP圧縮；
182KB) |
DXFファイル内のTEXT要素のX座標,Y座標,Z座標,文字内容をCSVファイルとして出力するプログラム。
※属性文字、マルチテキスト、複合（ブロック）図形、等には対応していません。必要な複合（ブロック）図形は分解して、R12形式DXFとして出力したものを利用して下さい。文字のX,Y,Z座標は、DXFのグループ10,20,30のデータを出力します。中央等の位置合わせの要素でも左下の位置となりますのでご注意下さい。
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
AFDXFPCW
(ZIP圧縮；
181KB) |
DXFファイル内のポリライン要素のX座標,Y座標,Z座標をCSVファイルとして出力するプログラム。
※ライトウェポンポリライン、スプライン、複合（ブロック）図形、等には対応していません。必要な複合（ブロック）図形は分解して、R12又はR13形式DXFとして出力したものを利用して下さい。
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
FILEOUT
(ZIP圧縮；
180KB) |
BMP／EMFファイルを出力するサンプルプログラム。あくまでもサンプルなので深く考えてはいけません！
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
AFDXFCCW
(ZIP圧縮；
176KB)
2005/12/27 |
DXFファイル内のCIRCLE要素のX座標,Y座標,Z座標,半径をCSVファイルとして出力するプログラム。
※寸法図形、複合（ブロック）図形、等には対応していません。必要な複合（ブロック）図形は分解して、R12形式DXFとして出力したものを利用して下さい。
Delphi4.0J使用。ソース付。
改変自由の著作権フリー。 |
簡易帳票印刷プロ01
（LHA自己解凍圧縮：
248KB） |
ヒサゴ A4・２面帳票用紙 BP0105
納品書・納品書(控) に文字を印刷するだけのテストプログラム。用紙に文字だけを印刷する場合には「罫線印刷」をチェックを外して下さい
※実際の用紙に合わせた訳ではありませんので、文字がずれるかもしれません。 |
簡易帳票印刷プロ02
（LHA自己解凍圧縮：
251KB） |
ヒサゴ A4・２面帳票用紙 BP0107
納品書・納品書(控) に文字を印刷するだけのテストプログラム。用紙に文字だけを印刷する場合には「罫線印刷」をチェックを外して下さい
※実際の用紙に合わせた訳ではありませんので、文字がずれるかもしれません。 |
簡易帳票印刷プロ03
（LHA自己解凍圧縮：
249KB） |
ヒサゴ A4・３面帳票用紙 GB1112
納品書・請求書・納品書(控) に文字を印刷するだけのテストプログラム。用紙に文字だけを印刷する場合には「罫線印刷」をチェックを外して下さい
※実際の用紙に合わせた訳ではありませんので、文字がずれるかもしれません。 |
面積計算１
(自己解凍圧縮；
205KB) |
４辺の長さと面積を指定して四角形を取得するサンプルプログラム。１辺(a)は底辺になるよう固定、１辺(b)の角度θを変えていく事により頂点Ｃと対角線ｌを算出し、２つの三角形OAB、ABCの面積の合計が、指定した面積になるかどうかを判定。結果を座標ファイル状態でメモ欄出力します。
凹んだ四角形は考慮していません。気楽に作ったプログラムなので利用についてもお気軽にどうぞ。Delphi4.0J使用。EXEのみ。 |
AFPicRot Ver.1.00
(自己解凍圧縮；
277KB) | 画像ファイルを開くかTWAINスキャナで画像を読み込み、回転処理や減色処理を行い、画像ファイル保存を行うためのソフトウェアです。入出力可能な画像ファイルは、BMP,GIF,TIFF,PNG,JPEG,FPX,PCXファイルです。Delphi7.0J使用。EXEのみ。Windows95では動作不可。※別途、ライブラリ「NLIB」が必要となります。 |
DXFBtoA
(自己解凍圧縮；
203KB) |
バイナリ形式 DXFファイルを ASCIIテキスト形式 DXFファイルに変換するテストプログラムです。
AutoCAD LT 2000で動作確認をしていますが、それより以降のバージョンでは正常変換しない可能性があります。うまく変換出来ない場合には使用を中止して下さい。必ず、オリジナルのDXF図面データは残すようにして下さい。
Delphi4.0J使用。EXEのみ。 |
AFUnit(長さ単位変換)
(ZIP圧縮；
258KB) | 長さ（距離）の換算をするテストプログラムです。mm値をｍやフィート・インチ、尺寸等に換算します。逆も可能です。Jw_cadの外部エディタに登録する際には、Jw_cadをインストールしたフォルダに入れて下さい。 |
Script! 19
(LHA自己解凍圧縮；
558KB) | すくりぷと（もどき）を作成しておき、それを解釈させて図形を作成し、ＢＭＰやＤＸＦ等の出力を行います。テスト版なので注意！EXEのみ。マウスホイール対応、文字列処理命令等追加、音声合成機能追加(2008.01.11) 諸元名[TR:]追加(2010/04/05) |
txt2sc
(ZIP圧縮；
231KB) |
Script!、Script!3D支援用ツール
座標ファイルを指定して、すくりぷとコードに変換するためのツールです。変換後はコピー＆ペーストで利用して下さい。 |
jww2sc
(ZIP圧縮；
263KB)
Ver.1.01
2010/05/30 |
Script!3D支援用ツール
Jw_cad（for Windows/JWW）を起動し、範囲選択→コピーを行った後に本ツールで[取込]を行い、Script!3D用すくりぷとコードに変換する事が出来ます。変換後はコピー＆ペーストで利用して下さい。
※Jw_cadクリップボードデータは図寸となっている為、実寸にするためレイヤグループ[0]の縮尺をかけています。寸法図形要素・寸法属性の要素・文字要素・ブロック図形・画像の変換は行いません。点マーカーは単純な点データとなります。線種は実線のみとなります。色設定値は白背景時のJWW初期値と同じです。SXFユーザー色は全て[7]です。ソリッド任意色は256色範囲に丸められます。データ容量が多くなればなるほど遅くなります。※Jw_cad Ver.7.00形式クリップボードデータに対応(2010/05/30) |
Script!3D Runner
(LHA圧縮；
667KB) |
Script!3D多目的利用ツール
「Script!3D Shareware Edition」にて作成した配布用スクリプトファイル(拡張子が「.S3T」のファイル)を開いて実行し、3D図形を作図・一時的に3D-DXFファイル 又は COLLADA(.dae)ファイルを生成しそれを Google SketchUp 等へ送信する事により比較的容易に3D図形描画を行おうというためのプログラムです。 |
JoyCur
(ZIP圧縮；
176KB) | DirectX（DirectInput）にて、ジョイスティック・ゲームパッド等でカーソル表示を行うだけのテストプログラムです。それ以外には何もしません。主ボタンを押すと大きくなります。副ボタンを押しながら移動すると速く移動します。両ボタン同時押して終了します。マウスクリックでも終了します。複数回起動するとその回数分のカーソルを表示しそれぞれにIDを振り分け動作します。 |
JW文字抽出
(ZIP圧縮；
260KB)
Ver.1.01
2010/05/30 |
Jw_cadデータを読み込んで、その中の文字を抽出して表示・テキストファイル保存するためのテストプログラム。Delphi6.0J使用。EXEのみ。対応形式は、JWC/JWK/JWW/JWSで、JWWデータは 7.00形式まで対応。但し、巨大なサイズのファイルは読み込み出来ないかもしれません。
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
JW色線種変換
(ZIP圧縮；
344KB)
Ver.1.03
2010/05/30 |
Jw_cadデータの線・円弧等の色・線種を別の色・線種に一括変換するテストプログラム。Delphi6.0J使用。EXEのみ。対応形式は、JWC/JWK/JWW/JWSで、JWWデータは 7.00形式まで対応。
※SXF対応拡張線色・線種へ変更する事は出来ません。変換前のファイルは残すようにして下さい。
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
JWW任意サイズ文字振り分け設定変換
(ZIP圧縮；
335KB)
Ver.1.01
2010/05/30 |
JWWデータの任意サイズの文字要素を文字種1〜10のいずれかに振り分ける為のテストプログラム。文字の設定及び文字要素の変更を行います。寸法図形・ブロック図形の変換も可。指定範囲外のものは任意サイズのままとなります。Delphi6.0J使用。EXEのみ。対応形式は、JWW/JWS・7.00形式まで対応。
文字種1〜10の設定を行う為、既に文字種指定してある文字要素も変換対象とします。ですので文字設定をちゃんとしてある図面データを変換しないよう御注意下さい。基本的には、DXF変換直後の任意サイズ文字ばかりの状態で御利用下さい。これにより文字ピッチがずれる可能性がありますので御注意下さい。変換前のファイルは残すようにして下さい。
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
JWW任意サイズ文字振り分け変換２
(ZIP圧縮；
322KB)
Ver.1.02
2010/05/30 |
JWWデータの任意サイズの文字要素を文字種1〜10のいずれかに振り分ける為のテストプログラム。文字の設定は行いません。文字種1〜10の文字要素は変更しません。寸法図形・ブロック図形の変換も可。指定範囲外のものは任意サイズのままとなります。Delphi6.0J使用。EXEのみ。対応形式は、JWW7.00形式まで対応。
選択した図面の文字設定を読み込み、それに対して＋／−の範囲設定を行い、任意サイズの文字要素だけを文字種1〜10に振り分け変換します。これにより文字ピッチがずれる可能性がありますので御注意下さい。変換前のファイルは残すようにして下さい。
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
JWWレイヤ名・SXF対応拡張線色・線種設定
(ZIP圧縮；
289KB)
Ver.1.02
2010/05/30 |
JWW図面データを指定し、レイヤグループ名・レイヤ名・SXF対応拡張線色・線種の各設定を変更する為のテストプログラムです。なお、SXF対応拡張線色の既定線色1〜16、SXF対応拡張線種の既定線種1〜15及び予約用の16、については、設定を変更しても、JWWで反映されませんので御注意ください。
表示している「要素数」にはブロックは含まれていません。この数値を変更しても何も起きません。
Delphi6.0J使用。EXEのみ。対応形式は、JWW7.00形式まで対応。
変換前のファイルは残すようにして下さい。（一応、上書き出来ないようにはしています）
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
JWC MENU もどき
(自己解凍圧縮；
268KB
Ver.1.10
2007/02/15 |
Jw_cad for Windows（以下、JWWと略します）を、JW_CAD (MS-DOS版)風のメニューで動作させようというソフトです。単に、メニューを SendKeyでコマンドを送る、というだけのものです。最初に、画面一番上のコンボボックスで、コマンドキーを送る JWWを選択する必要があります。表示されていない場合には、横にある[更]（更新ボタン）をクリックして下さい。
なお当方は MS-DOS版のJW_CADについて詳しく知りませんし、また、メニューのサブメニューの問題は、コンボボックスで表現したり、統合・分割されたコマンドの問題もありますので、あくまでも、「もどき」という事で、お願い致します。Delphi4.0J使用。EXEのみ。 |
JWクリボ(JwClibo)
(自己解凍圧縮；
268KB)
Ver.1.07
2007/03/01 |
JWWクリップボードを監視して、クリップボード図形を最大20個まで保管し、切り替えるツールです。切り替えた後はJWWで再度[貼付]をクリックして下さい。Delphi4.0J使用。EXEのみ。エラーする場合には運用を中止してください。
Ver1.07:微調整 |
JWWREGFOLDER
(自己解凍圧縮；
211KB)
2007/05/07 |
JWWのレジストリのフォルダ情報を書き換えるツールです。Delphi4.0J使用。EXEのみ。
※レジストリを直接操作しますので自己責任の上で利用して下さい。 |
JWWレイヤ補助線変換
(ZIP圧縮；
332KB)
Ver.1.01
2010/05/30 |
JWW/JWS形式データの、ある特定のレイヤの要素を補助線色・補助線種に一括変換するテストプログラム。Delphi6.0J使用。EXEのみ。JWWデータの対応形式はVer.2.20〜7.00形式。特殊な変換を行うプログラムですので取扱いには注意して下さい。変換前のファイルは必ず残すようにして下さい。
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
JWレイヤ詰込み変換
(ZIP圧縮；
337KB)
Ver.1.01
2010/05/30 |
JWW/JWS/JWC/JWK形式データの、使用していないレイヤグループ／レイヤを詰めて各要素のレイヤ番号を一括変換するテストプログラム。Delphi6.0J使用。EXEのみ。JWWデータの対応形式はVer.2.20〜7.00形式。ブロック定義／挿入だけがあるレイヤもそのまま残しますので見た目では詰込みしていないように見える場合もあります。レイヤグループ別に変換を行います。隣のレイヤグループ内のレイヤから詰め込んでくる、という事は出来ません。特殊な変換を行うプログラムですので取扱いには注意して下さい。変換前のファイルは必ず残すようにして下さい。
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
JWW新規作成
(ZIP圧縮；
256KB)
Ver.1.04
2010/05/30 |
設定した内容でJWW形式の新規図面用初期状態のデータファイルを作成し、それをJWW起動して開きます。これに作図を行った後は必ず名前を付けて保存を行って下さい。※JWW起動直後にすぐ保存を行う方が安全です。
画面上にある項目以外の設定は何もされていない状態となります。それ以外の設定をしたい場合には、既に作成してある図面ファイルの設定を流用する事が出来ます。その図面ファイルを参照させておいて下さい。
用紙の設定は、同じサイズ又は１つ大きいサイズを設定した上で用紙枠を作図します。補助線・レイヤ指定等を行っておいて下さい。目盛設定を行う場合にはそれも併せて設定して下さい。用紙縦置きやＢサイズを利用する場合には便利かも？
Delphi6.0J使用。EXEのみ。JWWデータの対応形式はVer.2.20〜7.00形式。
※Jw_cad Ver.7.00形式データの作成に対応(2010/05/30) |
JwwHistory
(自己解凍圧縮；
306KB)
Ver.1.02
2010/03/09 |
Jw_cad for Windowsを利用する際、どんな図面ファイルを開いて作業しているのかを監視し、履歴を取るためのソフトです。
このソフトを入れたＰＣで、過去どのような図面ファイルを開いたのかを記録する事が可能です。Delphi6.0J使用。EXEのみ。
Ver.1.02：設定の内容追加、ファイル名検索追加 |
JWSW
(ZIP圧縮；
183KB)
2007/12/16 |
複数インストールした Jw_cad for Windowsを切替起動するためのツールです。
※Jw_cad (JWW) は、異なるバージョンの複数インストールは推奨されていません。これを行う場合には、全て自己責任の上で行って下さい。
※本ツールは、複数バージョンインストールを推奨するソフトではありません。作業上、やむを得ない場合にのみ利用して下さい。
※本ツールを利用して誤動作等が発生しても当方は一切の責任を負いませんし保証も致しません。全て、自己責任の上で運用して下さい。
※Ver.5.x以前を動作させると、ファイル関連付け情報がその古いバージョンのJWWに設定されてしまいます。そのままでは元に戻せません。戻すには、JWW Ver.6.xのインストールプログラムを管理者権限で実行する必要があると思われます。
※Ver.6.00eとVer.5.22で動作確認を行っております。Ver.310より前のバージョンは動作しないと思われます。
Delphi4.0J使用。EXEのみ。 |
JWlayout
(ZIP圧縮；
256KB)
2008/04/17 | Jw_cad for Windows（JWW）の画面レイアウトを保存しておき、画面レイアウトが崩れてしまったときに、元に戻すためのツールです。 |
txtclp2jww
（自己解凍圧縮；
298KB）
2008/06/10 | コピーしてクリップボードに入れたテキスト文章を読み取り、JWW専用クリップボードデータ（文字要素データ）に変換するツールです。設定を行った後[開始]をクリックするとクリップボードの監視（１秒毎）をスタートします。縮尺はJWWで作図するレイヤグループの縮尺と同じ値を入力して下さい。 |
JWWタグインデックス
（ZIP圧縮；
252KB）
Ver.1.01
2010/05/30 |
JWW形式図面ファイルを指定し、JWW用Susie-PlugInを利用したインデックスを示すJWW形式データを作成保存しようというものです。Delphi6.0J使用。EXEのみ。
※Jw_cad Ver.7.00形式データの作成に対応(2010/05/30) |
JWsyncMove
（自己解凍圧縮；
246KB）
Ver.1.02
2008/11/20 | 複数起動している Jw_cad の画面移動・拡大表示・縮小表示・全体表示を同時に行おうというソフトです。本ソフト上のボタン操作、キーボード操作（※本ソフトがアクティブな場合にのみ有効）、ジョイスティック／ジョイパッド操作（割込時間毎）、を感知して 起動中の Jw_cad へ対してコマンドキー送信を行います。コマンドキー送信については、「JwwMenu」等と同様、SendKeyを行う事により実現しています。本ソフトは、Jw_cad のみ対象となります。Jw_cad 上でのマウス操作による画面操作では連動されません。 |
JWW文字間隔ゼロ変換
(ZIP圧縮；
329KB)
Ver.1.01
2010/05/30 |
JWW/JWS形式データにおいて、文字要素の文字間隔値がマイナスになっているものをゼロ値に一括変換するテストプログラム。Delphi6.0J使用。EXEのみ。JWWデータの対応形式はVer.2.20〜7.00形式。寸法図形の文字、ブロック図形内の文字・寸法図形の文字の変換も行えます。文字間隔をゼロにする事により文字全長が変化して作図している表等の文字枠等から文字がはみ出る場合があります。また、文字データの終点座標は変更していませんので御注意下さい。変換前のファイルは必ず残すようにして下さい。
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
jwwColorDisp
(ZIP圧縮;
207KB)
2009/05/22 | Jw_cad のレジストリ情報から設定→基本設定の色・画面情報を読み取って表示するテストプログラム。Delphi6.0J使用。EXEのみ。Jw_cad 6.21aにて動作確認。あくまでもレジストリ情報であって、現在の設定内容ではありませんので注意して下さい。レジストリ情報は通常Jw_cad終了時に内容保存されます。 |
jws2jww
(ZIP圧縮；
326KB)
Ver.1.03
2010/05/30 |
JWS形式図形データを JWW形式図面データに変換するテストプログラム。Delphi6.0J使用。EXEのみ。JWW/JWSデータの対応形式はVer.2.20〜7.00形式。設定クリア状態では、用紙サイズA0・Jw_cad初期状態(白背景)・Ver.4.20形式となります。JWW形式ファイルを参照する場合はそれに依存します。
Ver.1.02：全選択ボタンの追加、設定で縮尺を指定出来るよう追加（縮尺を指定すると図形の実寸法が変わりますので要注意）
※Jw_cad Ver.7.00形式データに対応(2010/05/30) |
jww76rev
(LHA圧縮；
347KB)
2010/01/02 | Jw_cad Ver.7.00/β2で旧バージョン保存を行ったブロック図形込みのJWW/JWSデータを旧バージョンのJw_cadで開こうとするとうまく開けない場合、補正を行って、開けるようにするテストプログラム。Delphi6.0J使用。EXEのみ。JWW/JWSデータの対応形式はVer.2.20〜6.00形式。※Jw_cad Ver.7.00bにて不具合修正され正常に開けるようになりましたので本ツールは削除しました。 |
JWpepper
(ZIP圧縮；
275KB)
Ver.1.00
2010/07/22 | Jw_cad for Windows（JWW）にてタグジャンプを利用した某ペーパー空間もどきのソフトです。単に、図面のあちこちに配置した部分への表示切り替えを行うだけのソフトです。それ以外の機能はほとんどありません。※１つの図面データファイルを複数のJw_cadで同時に開く、という事になりますので、慣れるまではテスト図面で十分なテスト作業を行って下さい。※うまく行かない場合・思ったように出来ない場合・エラーする場合には運用をすぐに中止してください。※Jw_cad Ver.7.03 にて動作確認を行っています。Jw_cad を起動していない場合、無題のファイル（新規状態）の場合本ソフトを動作させても登録や切替等は機能しません。 |
