レイヤーを管理するツール DenGas の現在のコーディングは次の通り。
アクティブな図面のレイヤー状態を取得し、それを変更し、図面に反映させるところ
まで、完了。
StringGridのCell範囲外をクリックすると、例外発生。
しばらく原因がわからず、悩む。
だが、高さを調整して、問題解決。
（ぼやきの始まり）
AutoCADの日本語版はlayerを画層というが、勘弁して欲しい。
laye . . . 本文を読む
ForDenDen
October 28,2006
by Kim
(1)建築図、電気図名称
建築図 電気図ファイル名称
-----------------------------------------------------------
配置図 HaitiZu ---> DenkiHaitiZu
1階平面図 1KaiHeimenZu ---> Denki1KaiHeimen . . . 本文を読む
;;DenGas
;;電気設備作図用レイヤ設定ツール（IntelliCAD用）
;;DENkizumenGASousettei
;;
;;October 28,2006 Ver 0.1
;;Coding by Kim Grossa
;;
*****DenGasとは何ですか
IntelliCAD用に作成した電気設備図面用レイヤ設定ツールです。
*****なぜつくったのですか（注 実際にはまだつく . . . 本文を読む
;;DenTen
;;電気設備作図用初期設定（IntelliCAD用）
;;DENkizumenTENpureto
;;
;;October 28,2006 Ver 0.1
;;Coding by Kim Grossa
;;
*****DenTenとは何ですか
IntelliCAD用に作成した電気設備図面用初期設定ツールです。
*****なぜつくったのですか（注 実際にはまだつくっていません） . . . 本文を読む
IntelliCADで電気設備図面を作成する場合にあると便利な色々なツールを
DenDenシリーズとして、作っていこうと思う。
作成済みは
DenSin.....ブロックの挿入(Delphi Personal 6) Version 0.9
DenHai.....配線(Auto Lisp) Version 1.2
DenBuro.....シンボル集(dwgファイル)
今後、作ろうと思ってい . . . 本文を読む
;;DenSin
;;電気設備シンボル用アプリケーション（IntelliCAD用）
;;DenkiSinboru
;;
;;June 08,2006 Start
;;October 25,2006 Version 0.9
;;
;;Coding by Kim Grossa
;;
*****DenSinとは何ですか
IntelliCAD用に作成した電気設備シンボル用アプリケーションです。
Jw_C . . . 本文を読む
;;DenHai
;;電気設備配線作図用AutoLispコード集（IntelliCAD用）
;;DENkisetubiHAIsen
;;
;;April 30,2006 Original
;;May 6,2006 Version 1.0
;;May 22,2006 Version 1.1
;;October 27,2006 Version 1.2
;;Coding by Kim Gros . . . 本文を読む
ようやく、ほぼ完成。ふー。
電気設備設計の仕事が入ったので、少し使って見る。
Delphi６で作成したDenSinのコードは次の通り。
unit UntiDenSin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, . . . 本文を読む
現在のコードは下記の通り。
-----Delphi Code Begin
FormにButton,Editをふたつ。
まだ、プレビュー機能は実装していない。
unit UntiDenSin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs . . . 本文を読む
以下は失敗したコード。うまくいかない。
unit UntiDenSin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls;
type
TForm1 = class(TForm)
Butt . . . 本文を読む
blockを挿入するlispコードの修正版を作成。
コードは以下の通り。
;;File Name "densin.lsp"
;;Command Name "ib"
;;Code Begin----------
(defun C:des()
;;external block
(setq exblk_name "c:\\CAD\\DenBuro\\S42Konsento\\CT01.DWG") . . . 本文を読む
lispでblock挿入のコードを作成。
コードの内容は次の通り。
;;File Name "densin.lsp"
;;Command Name "ib"
;;Code Begin----------
(defun C:ib()
(setq ins_name "c:\\CAD\\fl441.dwg")
(setq ins_p "0,0,0")
(setq ins_x "1")
. . . 本文を読む