本文へスキップ

AutoLISP AutoCAD Ares BricsCAD DraftSight IJCAD ZWCAD


プログラムPROGRAM

【AutoCAD&LTカスタマイズブック】(ISBN978-4-7943-4465-3)より抜粋
読者から
好評のプログラムを掲載します。(CDには他にも多くの有益なツールがございます。)
尚、AutoCAD/LTのバージョンによっては、動作しないプログラムもあります。

(注記)下記のプログラムの著作権は、上記書籍の著者(2名)に帰属しています。)
 開発言語  対応CAD 
 AutoLISP(総合)  AutoCAD・BricsCAD・JDraf・IJCAD・ZWCAD
 AutoLISP(個別)  AutoCAD・BricsCAD・JDraf・IJCAD・ZWCAD
 C++  AutoCAD & LT
 AutoCAD VBA  AutoCAD
 VBからコントロール  AutoCAD & LT・BricsCAD・JDraf・IJCAD・ZWCAD
 Excelとリンクする  AutoCAD & LT・BricsCAD・JDraf・IJCAD・ZWCAD
 Accessとリンクする  AutoCAD & LT・BricsCAD・JDraf・IJCAD・ZWCAD


AutoLISP

 AutoLISP(総合)
AutoLISP(38個)・・建築系、土木系、測量系  使用方法(PDF)
ダウンロード →  lisp1  ZIP圧縮ファイル 
 AutoLISP(個別)
 @(btrim20.lsp)・・ブロックの背景線分のカット&結合
 ダウンロード →  btrim20.zip  ZIP圧縮ファイル
ブロックの背景線分をカット、結合します。
ブロックを移動すると、移動先の背景の線分をカットし、元あった背景線分を結合します。
 A(bunkatu.lsp)・・三斜求積、ヘロンの公式による求積と求積表の自動作成
 ダウンロード →  bunkatu.zip  ZIP圧縮ファイル
三斜求積、ヘロンの公式による求積と、求積表の作成を自動で行います。
LT用は、C++のコーナーにございます。
先頭に戻る

C++

 C++(個別)
 @(AcadGetGlyphOutoLine)・・TTFフォントの輪郭抽出
 ダウンロード →  getglyph.zip   ZIP圧縮ファイル
フォントの輪郭を取得して、DXFファイルまたはAutoCAD/LTに閉じたPOLYLINEで出力します。
AutoCAD/LT上の文字を袋文字に変換します。
    
 A(LT_Heron)・・閉領域を三斜求積やヘロンの公式で求積します。
 ダウンロード →  lthrn207.zip  ZIP圧縮ファイル
三斜求積+ヘロン求積を行うツールで、AutoCAD/LTに対応しています。
検出した三角形の3辺の長さを、XDATAとして番号の文字に埋め込んでいます。
求積表を作る時は、この番号の文字から情報を得ています。
 
 B(CircleText2007)・・円に沿って文字を作成します。
ダウンロード →   cirtext.zip ZIP圧縮ファイル 
文字列はWindowsのTTFフォントを想定しています。
AutoCAD/LTにフォント名の文字スタイルが追加されます。
フォント名がうまく設定できない場合は、フォント名を変更して下さい。

挿入される文字列はブロックになっています。必要に応じて分解して下さい。
不要になったブロックの削除は、『ブロック[CIRTEXT*]をパージ』ボタンをクリックして下さい。

※『MS Pゴシック』が、ほぼAutoCAD/LTの txt.shx と同じ間隔になります。

参照ボタン[ ... ]をクリックし、AutoCAD/LTで1図形を選択して下さい。
円、円弧の半径、文字列の内容が取得されます。 
 
 C(LT包絡)・・包絡処理を行うツールです。囲い方によって結果が変わります。
 ダウンロード →  houraku.zip  ZIP圧縮ファイル
 UCSには対応していません。
ポリラインは、線分に変換されます。

包絡範囲を四角で囲いますが、その1辺に壁の線分2本が入っている必要があります。
同じ壁の線分2本が違う辺に1本ずつある場合は、うまく出来ません。

包絡範囲の図形のうち外周部分だけを処理しており、それより内側の図形は消えます。
消したくない時は、画層を分けてその画層をロックしておいて下さい。

包絡範囲の四角に掛かる線分のうち、外側2本が対象になります。
それ以外の線分(基準線とか)は消えます。
あらかじめ、画層を分けてその画層をロックしておいて下さい。

包絡範囲の四角に掛かる線分は一度消去され、新たに描かれます。
このときの引き継がれる属性は、画層と線色だけです。
 





先頭に戻る

AutoCAD VBA

AutoCAD VBA(12個)・・全分野に共通  使用方法(PDF)
ダウンロード →  VBA1  ZIP圧縮ファイル 
先頭に戻る

Excel VBA

Excelとリンクする(4個) 英文全解説(PDF)  使用方法(PDF)
ダウンロード →  excel1  ZIP圧縮ファイル 
先頭に戻る

Access VBA

Accessとリンクする(3個) 英文全解説(PDF)  使用方法(PDF)
ダウンロード →  access1(35MB)  ZIP圧縮ファイル 
先頭に戻る

VisualBasic6

VB6とリンクする(6個) 英文全解説(PDF)  使用方法(PDF)
ダウンロード →  vb6  ZIP圧縮ファイル 


バナースペース