 |
 |
 |
 |
ＡｕｔｏＬＩＳＰ、ＶＢＡ及びＣＡＤ開発ロジック
に関しての参考資料
平成１６年６月より 
Ｅｘｃｅｌ ＶＢＡ関連 を追加しました。 平成28年11月14日
ここに記してある内容に関して参考とする場合は、すべて自己責任にてお願いします。また、内容に関して
御意見、間違い、問い合わせなどありましたらメールにて連絡していただければと思います。
下記のＡｕｔｏＬＩＳＰに関しての参考資料、ＣＡＤ開発ロジックに関しての参考資料、ＡｕｔｏＬＩＳＰ
フリーソフトコマンドにはフリーソフトのＡｕｔｏＬＩＳＰコマンド、関数があります。
フリーソフトの使用にあったては使用上の注意をお読み下さい。
使用上の注意及びシェアウェアに関して
使用する場合は、ダウンロードしたファイルをロードして使用することになります。
コマンド： のところからファイルをロードする。
(load "ドライブ:\\ディレクトリ\\ファイル名.lsp")を入力後、
Enter を押す。
以後コマンドが使用できるようになります。（ＡｕｔｏＬＩＳＰに関しての参考資料のを参照）
ＡｕｔｏＬＩＳＰに関しての参考資料 ＶＢとＡｕｔｏＬＩＳＰ比較
Ｌ１．線分（コマンド使用）を作図する＜ufl00001.lsp＞
ｄｅｆｕｎ、ｐｒｉｎｃ、ｌｉｓｔ、ｓｅｔｑ、ｃｏｍｍａｎｄ
Ｌ２．図形を選択する＜ufl00002.lsp＞
ｐｒｏｍｐｔ、ｓｓｇｅｔ、ｓｓｌｅｎｇｔｈ、ｉｆ、ｓｓｎａｍｅ
Ｌ３．図形の情報（画層、線種、色）を取得する＜ufl00003.lsp＞
ｅｎｔｓｅｌ、ｎｔｈ、ｐｒｉｎｔ、ｅｎｔｇｅｔ、ｃｄｒ、ａｓｓｏｃ
Ｌ４．線分（ｅｎｔｍａｋｅ）を作図する＜ufl00004.lsp＞
ｇｅｔｖａｒ、ｅｎｔｍａｋｅ
Ｌ５．ポリラインの点列を取得する＜ufl00005.lsp＞
ｆｉｘ、ｆｌｏａｔ、ｒｅｐｅａｔ、ｍｅｍｂｅｒ、ａｐｐｅｎｄ、ｗｈｉｌｅ
Ｌ６．テキストファイルを書き出す＜ufl00006.lsp＞
ｏｐｅｎ、ｗｒｉｔｅ−ｌｉｎｅ、ｃｌｏｓｅ
Ｌ７．テキストファイルを読み込む＜ufl00007.lsp＞
ｒｅａｄ−ｌｉｎｅ
Ｌ８．ダイアログボックスよりテキストデータを取得する＜ufl00008.lsp＞
ｌｏａｄ＿ｄｉａｌｏｇ、ｎｅｗ＿ｄｉａｌｏｇ、ｓｅｔ＿ｔｉｌｅ、・・・
Ｌ９．拡張エンティティとして情報を付加する＜ufl00009.lsp＞
ｒｅｇａｐｐ、ｃｏｎｓ、ｅｎｔｍｏｄ
Ｌ１０．拡張エンティティとしての情報を取得する＜ufl00010.lsp＞
AutoLISP 参考資料
下記サイトより【ダウンロード】→【初級AutoLISP講座】
http://augi.jp/
AutoLISP 参考資料
http://manualchair.html.
AutoLISP 参考資料
https://yayoi3gatsu.sakura.ne.jp/rd.cgi?f=lsp_lisp ＜びわ工房＞
AutoLISP 参考資料
アルゴ算法堂 下記サイトより【入り口】→【お楽しみプログラム】
http://sampodo.la.coocan.jp/
ＣＡＤ開発ロジックに関しての参考資料
Ｂ１．単位ベクトルを求める＜ufb00001.lsp＞
まずは単位ベクトルから・・
Ｂ２．有限線分の延長点を求める＜ufb00002.lsp＞
延長長さ＊単位ベクトル
Ｂ３．直線の方程式を求める＜ufb00003.lsp＞
Ａ＊Ｘ＋Ｂ＊Ｙ＝Ｃ
Ｂ４．無限線分と無限線分の交点を求める＜ufb00004.lsp＞
ＡｕｔｏＬＩＳＰではｉｎｔｅｒｓがあるがここでは計算にて算出
Ｂ５．無限線分と有限線分の交点を求める（誤差に関して）＜ufb00005.lsp＞
Ｂ６．有限線分と有限線分の交点を求める＜ufb00006.lsp＞
Ｂ７．回転した座標値を求める＜ufb00007.lsp＞
回転中心を指定
Ｂ８．有限線分左右へのオフセット点を求める＜ufb00008.lsp＞
オフセット長さを左右へ９０度回転した位置計算
Ｂ９．指定点が線分の左右どちらにあるか判定する（誤差に関して）＜ufb00009.lsp＞
外積を利用
Ｂ１０．座標変換（世界座標系⇒ローカル座標系）をする＜ufb00010.lsp＞
Ｂ１１．座標変換（ローカル座標系⇒世界座標系）をする＜ufb00011.lsp＞
Ｂ１２．無限線分と円の交点を求める（誤差に関して）＜ufb00012.lsp＞
円の中心を原点に・・、原点近くで計算すれば誤差が少ない
Ｂ１３．有限線分と円の交点を求める＜ufb00013.lsp＞
Ｂ１４．２つの有限線分の角度を求める＜ufb00014.lsp＞
ＡｕｔｏＬＩＳＰでのａｎｇｌｅを使用
Ｂ１５．無限線分と円弧の交点を求める＜ufb00015.lsp＞
円弧の中心を原点に・・
Ｂ１６．有限線分と円弧の交点を求める＜ufb00016.lsp＞
Ｂ１７．円と円の交点を求める＜ufb00017.lsp＞
Ｂ１８．円と円弧の交点を求める＜ufb00018.lsp＞
Ｂ１９．円弧と円弧の交点を求める＜ufb00019.lsp＞
Ｂ２０．点列で囲まれた面積を求める＜ufb00020.lsp＞
同時に点列が左回りか右回りか判定
Ｂ２１．点が点列で囲まれた形状の内か外かを判定する＜ufb00021.lsp＞
Ｂ２２．点列を指定されたベクトル方向へ並べ替える＜ufb00022.lsp＞
数学関連 参考資料
http://www.deqnotes.net/acmicpc/2d_geometry/ ＜deq notes＞
ＡｕｔｏＬＩＳＰ及びＶＢＡフリーソフトコマンド
Ｃ１．中間線分作図＜ufc00001.lsp＞ ＶＢＡ＜ufc00001.dvb＞
選択された２線分の中間に線分を作図する。
使用関数：Ｂ１
Ｃ２．複数線分カット＜ufc00002.lsp＞ ＶＢＡ＜ufc00002.dvb＞
最初に選択された線分で次以降に選択された線分をカットする。
使用関数：Ｂ１、Ｂ３、Ｂ４、Ｂ５、Ｂ６、Ｂ７、Ｌ３、Ｌ４
Ｃ３．複数線分トリム＆延長＜ufc00003.lsp＞ ＶＢＡ＜ufc00003.dvb＞
最初に選択された線分及びトリム側指示にて次以降に
選択された線分をトリム及び延長する。
使用関数：Ｂ１、Ｂ３、Ｂ４、Ｂ９
ツールバーの作成 メニューをロードすることでコマンド関連ファイルを自動ロード
中間線分作図、複数線分カット、複数線分トリム＆延長のツールバー作成
Ｅｘｃｅｌ ＶＢＡ関連
Ｅｘｃｅｌ ＶＢＡ関連へ
Presented By ユーザーフレンドリー
E-mail:usrfr@yk.rim.or.jp