円弧の情報からふくらみを作成しようとしてるのですが
どうにも時計方向か反時計方向かの判定ロジックでつまづいてます。
このへんのロジック知ってる方います？

＃もっと数学まじめにやっときゃよかった。(；；)

新・DXFリファレンスガイド持ってます？

始点から終点への回転方向が時計回りの場合、ふくらみの値は負の数。
とありますけど。

http://plaza29.mbn.or.jp/~f_izawa/

> 新・DXFリファレンスガイド持ってます？

持ってますし読んでるのですが。。。
現在以下のようなロジックでやってるのですがうまくいきません。

//始点 ps 終点 pe 中心 pc
function GetBulge( ps, pe, pc: TAds_Point ): TAds_Real;
var
ang, // 円弧角度
angs, // 開始角度
ange: TAds_Real; // 終了角度
begin
// ふくらみに変換
angs := acutAngle( pc, ps ); ange := acutAngle( pc, pe );
if ( angs < ange ) then ang := ange - angs
else begin
ang := angs - ange;
if ( Abs( ang ) >= pi ) then ang := angs + 2*pi - ange;
end;
Result := Tan( ang / 4 );
end;

とやってるのですが、どうにも円弧からふくらみに変換すると
逆方向になってしまう・・・(^^;

単純に終了角から開始角を引くだけでは、零度をはさんでる場合
うまくないですよね。しかもAutoCADが0度を2piで返す場合もある。

開始角度←→終了角度で一発で回転方向がわかるアルゴリズムって
あるんだか。。。(；；)

今、EBA社サーバー(内部)に繋げない場所にいる。
ソースが無いからうすら覚え...

なんかの本(図形のアルゴリズム)をみて、おお!と感動した
ルーチンがあったような気がする。

折れ判定だったような気がするが...帰ってから確認するね。

> 折れ判定だったような気がするが...帰ってから確認するね。

ひゃあ！有難うございます〜！！(-人-)

こないだから数学の本何冊か買って読み狂ってたのですが、
さすがに頭から煙が・・・(^^;

＃ベクトルがこないだやっと判ったレベル。σ(^^;

>単純に終了角から開始角を引くだけでは、零度をはさんでる場合
>うまくないですよね。しかもAutoCADが0度を2piで返す場合もある。
AutoLISPだとある程度補正してくれたと思います。

Delphiでは、↓こうしています。参考にはならないかも。(^^;
function angle(pos1,pos2:Tifs_pos):double;
var
xx,yy:double;
begin
xx:=pos2.x-pos1.x;
yy:=pos2.y-pos1.y;
if xx=0.0 then result:=0.0
else result:=arctan(yy/xx);
if (xx<0.0) and (yy>0.0) then result:= pi+result
else if (xx<0.0) and (yy<0.0) then result:= pi+ result
else if (xx>0.0) and (yy<0.0) then result:= pi*2.0+result;
end;

>＃ベクトルがこないだやっと判ったレベル。σ(^^;
おぉ、すごい！！

>if (xx<0.0) and (yy>0.0) then result:= pi+result
>else if (xx<0.0) and (yy<0.0) then result:= pi+ result

ん？無駄な判断をやってるなぁ・・・。(^^;

ごめんなさい。m(__)m
単に２点間の角度を求めるのではありませんでしたね。(^^;

>折れ判定だったような気がするが...帰ってから確認するね。

役にたつかどうか判りませんが...
/////////////////////////////////////////////////////////////////////////////
// 時計回り/半時計回りの判定
//
// 同一線上にない
// -1: 時計回り
// 1:半時計回り
//
// 同一線上
// -1:p1-p0-p2
// 0:p0-p2-p1
// 1:p0-p1-p2
//
int clock_check(
ads_point p0, // 始点
ads_point p1, // 折点
ads_point p2 // 終点
)
{
ads_real dx1,dx2,dy1,dy2;
dx1 = p1[X] - p0[X]; dy1 = p1[Y] - p0[Y];
dx2 = p2[X] - p0[X]; dy2 = p2[Y] - p0[Y];
if (dx1*dy2 > dy1*dx2) return +1;
if (dx1*dy2 < dy1*dx2) return -1;
if ((dx1*dx2 < 0)||(dy1*dy2 < 0)) return -1;
if ((dx1*dx1 + dy1*dy1) < (dx2*dx2 + dy2*dy2)) return +1;
return 0;
}

有難うございます。m(_ _)m
で・・・

ads_point p1, // 折点

って、折点＝中点と考えていいのですか？。(^^ゞ

>折点＝中点と考えていいのですか？。(^^ゞ
・・・でしたね。(^^;
で、早速翻訳して、以下でばっちりでした。(^^)v

{ 時計回り/反時計回りの判定 }
function ClockCheck( pc, ps, pe: TAds_Point ): integer;
var
　dx1, dx2, dy1, dy2: TAds_Real;
begin
　Result := 0;
　dx1 := pc[X] - ps[X]; dy1 := pc[Y] - ps[Y];
　dx2 := pe[X] - ps[X]; dy2 := pe[Y] - ps[Y];
　if ( dx1*dy2 > dy1*dx2 ) then begin Result := 1; Exit; end;
　if ( dx1*dy2 < dy1*dx2 ) then begin Result := -1; Exit; end;
　if ( ( dx1*dx2 < 0 ) or ( dy1*dy2 < 0 ) ) then begin Result := -1; Exit; end;
　if ((dx1*dx1 + dy1*dy1 ) < ( dx2*dx2 + dy2*dy2)) then begin Result := +1; Exit; end;
end;

ただ円弧データいじくってて気づいたのですが、AutoCADの場合
フィレットした場合、デフォルトで円弧は反時計方向で書かれるようですね。
元々こういう仕様なのかな？

ごんたさんとこのBBS見ました？
２ｃｈでも相当Delphi6のスレッド立ってるようですし、
さすがにタダ版は効果大なようです。(^^;

＃Javaに続いて相当食われるのか？＞VB

>ごんたさんとこのBBS見ました？
見てますけど・・
なんともレスの付けようがないね。
どちらが良いか、なんて結論は出ないだろうしね。
でも・・　GOTO文は使ってほしくないな〜

個人的にはDelphiですが、プログラムをやったことがない人が「何がいい」
と尋ねてきたとしたら私は「VB,VBAはどうですか」と言いますね。多分

特に焦らないでVBを使っている人。。σ(^^;

>でも・・　GOTO文は使ってほしくないな〜

[On Error GoTo ErrHandler]
とりあえず動かせ！という命令の時には良く使います。(汗)
で、何とか動かしてる間にErrの番号を抜いてバグフィックスします。

＃なるべくErrになりうる要素のユーザー入力は認めない。

>個人的にはDelphiですが、プログラムをやったことがない人が「何がいい」
>と尋ねてきたとしたら私は「VB,VBAはどうですか」と言いますね。多分

同様ですね。＜VB,VBAはどうですか？
VB,VBAを使っていても自分が行き詰まらない間は満足できる思います。
ある日突然「あれ？あれれ？」となり何が原因なのか考える。

＃M$もAPIガンガンというのはVBでは推奨していないですしね。(笑)

プログラムの系統によってはVBに限界を感じない時も有りますよね？。
VBもPascalも的確適所ということで、あとは各自の判断かな？と。

で、いろいろ考えた結果。。。
私はしばらくC++Builderを主にする事にしました。(^^;)

>プログラムの系統によってはVBに限界を感じない時も有りますよね？。
>VBもPascalも的確適所ということで、あとは各自の判断かな？と。

ですね。
個人的にはVBAが搭載されているならVBA。
単体EXEと配布を考えるならDelphiってとこか？

でも最近はVC++も避けて通れなくなりつつあるが・・・(苦笑)

あーしんど。

はっぴーばーすでい！！

>あーしんど。
開発＋製品版のサポート、お疲れさまです。

一日に受ける、問い合わせメールの数：５０件以上
（うちクレームかかったのが１０件くらい＜特急対応）
一日に受ける、問い合わせ電話の数：１０件以上
一日に受ける、注文メールの数：１０件くらい？

これくらいの時間になると、さて、そろそろ仕事(プログラム)すっか...
という気になる。

>はっぴーばーすでい！！

今年は、なんか、全然そんな気になれんわ...(^^;
来年、IntelliJapanの１周年と同時に盛大に祝いたいものです。

>一日に受ける、問い合わせメールの数：５０件以上
それに対応するだけでも大変ですね。＋IcadWeb。

>来年、IntelliJapanの１周年と同時に盛大に祝いたいものです。
それを楽しみに乗り切って下さい。
ゴールは遠いですが。

お誕生日おめでとう(^.^)
えばっちさんの年は忘れんよ、あたいと同じだもんね。

>あーしんど。
お疲れ様です。
ここを・・・　頑張って乗り越えて下さい。ヨイショ

>>一日に受ける、問い合わせメールの数：５０件以上
>それに対応するだけでも大変ですね。＋IcadWeb。
それを手元で再現するのが大変ですね。
今はいろんな環境がありますからね〜

>今はいろんな環境がありますからね〜
確かに。(^^;

はっぴーばーすでー♪えばっち♪。(^^)

昔はAutoCADを安定して動す環境を作るのって結構大変でしたよね。
今となってはちょっと知識も経験もあるのでそこそこ動かせるけど。
IntelliCADも当時のそれと同じですよね。後にきっと安定する！

IntelliCADが絶対的に良いと思われるのは。。。
不具合に対してそれが何なのか教えてくれる。何か回避策がでてくる。
保守契約など交わしていないのに、いろんな人達が教えてくれる。

IntelliJapanのIcadは私的には最高！。。。まずはＯＫです。
一周年記念パーティの際は心から祝福を贈れることでしょう！。

var Key: Word; の値はこれで間違いないでしょうか？
↑：38 VK_UP
↓：40 VK_DOWN
UP：33 VK_PRIOR
DOWN：34 VK_NEXT

今使っているキーボード
UP：Fn + ↑
DOWN：Fn + ↓
になっていので通常のものでも・・
確認です。どなたかお願いしますm(__)m

VCのIncludeのWINUSER.Hでは

#define VK_PRIOR 0x21
#define VK_NEXT 0x22

#define VK_UP 0x26
#define VK_DOWN 0x28

になってますが、こういうこっちゃ無いのかな。

ありがとうございます、あらちゃんさん。
Delphiのことで・・ごめんなさいm(__)m

でも情報はつかえますね
VK_UP 0x26　→　38
VK_DOWN 0x28 →　40
VK_PRIOR 0x21　→　33
VK_NEXT 0x22　→　34
同じですね。OK

タイミング逃しちゃいましたけど
C:\Program Files\Common Files\Borland Shared\MSHelp\win32.hlp
で、"Virtual-Key Codes"を検索すると、仮想キーコードの一覧があります。
DELPHIから、直接、ヘルプで検索出来ないのが残念。。。

ＰＳ．うちのDELPHI6のヘルプでキーワード検索が出来ないのですが、みなさんの所はどうですか？

ありがとうございます、茂吉さん
今使っているキーボードが通常と違うもので、確認がしたかったんですよ。

>うちのDELPHI6のヘルプでキーワード検索が出来ないのですが、みなさんの所はどうですか？
出来ますよ。でもF1でHelpが起動しないことはよくあります。
HelpはD4が見やすいもので（私は）通常はD4Helpを使用しています。

富士通オートメーション、２足歩行ロボットの一般販売を開始みたいね。(^^;
http://www.watch.impress.co.jp/pc/docs/article/20010910/fujitsu.htm

一瞬見間違いかと・・　高い！！！
買って何に使うんだろうね (;^^)

>一瞬見間違いかと・・　高い！！！
いい値段。需要はあるのでしょね。きっと何処かに。(^^;

一緒に写っているノートパソコンの大きさから考えると、
そんなに大きなものでもないみたいですね。

http://plaza29.mbn.or.jp/~f_izawa/

二足歩行の勉強に....
身長:48cm 体重:6Kg であの価格。

> 身長:48cm 体重:6Kg であの価格。

57(m) / 0.48(m) = 118.75
6(kg) * 118.75 / 1000 = 0.7125(t)

ふむ、550(t) にはならないんだ・・・

>ふむ、550(t) にはならないんだ・・・

58ｍ550ｔ...なんだろ。気になるなぁ・・・。(^^;

> 58ｍ550ｔ...なんだろ。気になるなぁ・・・。(^^;
　コンバトラー・Ｖ

Peeさん、ありがとうございます。

>コンバトラー・Ｖ
↓これみたいね。
http://isweb1.infoseek.co.jp/~mariatch/soul/victory/conv.htm

ちなみに鉄人２８号 10.2m31t、ジャイアントロボ 30m500t らしい。
昔は３階建てくらいの高さでも充分活躍できたんですね。(^^;

雑誌の付録CD-ROMからインストールしようとしたのですが、
ライセンスキーをもらうためにWebサイトでの登録が必要なんですね。

体験版ではない、シェアウェアでもない・・・という事を実感。(^^;

>ライセンスキーをもらうためにWebサイトでの登録が必要なんですね。
しかしこのライセンスキー、何度でもOKのようです。
いったん入れた後、HD FORMAT を行いました（この前）
「２度は、良いのかな？」と言う気持ちで再度、すんなり問題なしです。

何の為のライセンスキー何でしょうかね？
1.どれくらいの人が使っているか
2.とりあえず登録させるだけ
3.他・・

>3.他・・

フリーウェアでは無いことを実感させるため？？

http://plaza29.mbn.or.jp/~f_izawa/

今日、本屋に行ったら、Ｍ＄のＣ＃のマニュアルが置いてありました。
近々、発売になるのかな？

これで、先手打ったのか〜、と、納得。

C#というと、Winアプリの感覚でWebアプリが作れるという・・・あれですね。
よく分かっていない。(^^;

.NETのベータ版というのは、出ているようです。関係ないのかな・・・。

>今日、本屋に行ったら、Ｍ＄のＣ＃のマニュアルが置いてありました。
>近々、発売になるのかな？

>これで、先手打ったのか〜、と、納得。

でしょうね。
Personal版は対VB＆C.NETを相当強く意識してると思います。

もっとも.NETには元Bolandの開発者が携わってだけに話は結構複雑。
VB.NETなんかは準Delphiという噂もあったりして。(^^;

さっきVectorのプログラミング／ダウンロードのランキング覗いたらJBuilderぶち抜いてTopだった。(^^;

>さっきVectorのプログラミング／ダウンロードのランキング覗いたら
>JBuilderぶち抜いてTopだった。(^^;

見てきました。VectorでもＤＬ出来たのですね。
落とすのしんどそうだから、980円出しました。(^^;

TACが使えないので、コールバック関数とやらをごそごそやってます。

http://plaza29.mbn.or.jp/~f_izawa/

コマンド転送ならば SendKeys が簡単です。
Delphi4,5のCDを探してみるべし。

>コマンド転送ならば SendKeys が簡単です。

コマンド送信は成功しました。
あの時、もっと勉強しておくんだったとちょっと後悔。(^^;

>コマンド送信は成功しました。
おめでとう。じゃ何してるの〜
無理に・・　とは言いませんが。(^^;

>おめでとう。じゃ何してるの〜
ありがとうございます。m(__)m

特に何かを作っているというわけではありません。
TACがないと手も足も出ないというのも情けないので・・・。(^^;

http://plaza29.mbn.or.jp/~f_izawa/

いろいろおさがわせしましたが、図上デジタイズに
ついて以下のようにまとめました。
何かの参考になればと思い発表させていただきます。

2001_09_14
.●図上デジタイズ機能を実現した。
　o デジカメで平面図等を写す(.JPG)
　o IntelliCAD で画像読込み (.JPG/.BMP)確認済み
　o CAD上でデジタイズ。(ポリライン図と区画名称を作成)
　o DXFに書き出す。
　o 区画抽出　 tokSoft
　o 区画測点名新規自動付加 tokSoft
　o 区画名称抽出 tokSoft
　o 区画名称付加転送 tokSoft
　o 座標縮小拡大 tokSoft
　;図上デジデータは縮尺不定なので必要
　\Kanti\#Bat\&OnPcDigitize.Bat 新規作成
　\Kanti\#Bin\&Dxf_Pline2Digi.Frm(Exe) 新規作成
　\Kanti\#Bin\&PtNameIn.Frm(Exe) 新規作成
　\Kanti\#Bin\&Dxf_TextXYGet.Frm(Exe) 新規作成
　\Kanti\#Bin\&DgKnamAdd.Frm(Exe) 新規作成

　# DXFのポリラインは AutoCAD R14以降仕様が変っている。
　　従来のPOLYLINEはLWPOLYLINEとなりデータ形式も変っているので、
　　新しい仕様で処理するようにした。

　# IntelliCADは2001/09以降IntelliJapan社版が販売されるように
　　なった。
　　同社版は旧EBAs_Pro版(ラスター読込み可)のみである。

関係いただいた方々に感謝申しあげます。
ありがとうございました。

>o デジカメで平面図等を写す(.JPG)

この発想だけでも値打ちあるね。
うちでも使えるかも・・・。(^^)

http://plaza29.mbn.or.jp/~f_izawa/

>従来のPOLYLINEはLWPOLYLINEとなりデータ形式も変っているので、

これは、システム変数PLINETYPEに影響されるのだと思います。
PLINETYPE 0 でPLINEを描くと、POLYLINEになる。

http://plaza29.mbn.or.jp/~f_izawa/

>PLINETYPE 0 でPLINEを描くと、POLYLINEになる。
作成された時点で、LWPOLYLINEだったのだと思います。

http://plaza29.mbn.or.jp/~f_izawa/

IntelliCAD-VBAで作ったプログラムの管理用にと印刷してみました。
自分でもびっくり。。。8ptの文字サイズでA4で約100枚だった。(^^;

＃実験的な部分を除いて整理すれば2/3ぐらいになるかな・・・(汗)

昨日はSDSのリンクリストが少し判った気がしたので、
春香さんのHPを再度訪問したのですが撃沈しました。(爆)

結果をまとめると。。。
今の私にはこの約100枚のプログラムをSDSに移植するのは無理っぽい。
でも悔しいので一年ぐらい勉強して何とかしてやろうと思うのでした。

P.S.
このプログラムを後輩に管理させるにあたって伝えた事。
俺にもしものことがあったらエバテックに仕事として依頼してね(爆)

エバテックはＶＢ組めん...(^^;

でも、周りに商用デベロッパのお友達が沢山できてきましたから、
いくらでも受けられます。仕事まわしてください。

事務処理＆データベース＆ＷＥＢ以外のアプリなら何でも...
つまり技術系のアプリなら何でも...

>自分でもびっくり。。。8ptの文字サイズでA4で約100枚だった。(^^;
すごいですね。

>今の私にはこの約100枚のプログラムをSDSに移植するのは無理っぽい。
VBA>SDSは移植不可能。誰がやっても作り直しになる。(^^;

http://plaza29.mbn.or.jp/~f_izawa/

画像の区画データを数値化するため、ICADでポリライン入力を色々
テストしてみました。

いやー、思った以上に入力しやすいです。
これはいける！！

正直なところ、ICADで某LTより操作の優位性を感じたのははじめて
です。
[重要](すんません、これはあくまでも某LTから使い始めた１素人
ユーザの理解できた操作手法の範疇での判定とご理解ください)

これならポリライン入力開始時に[区画の名称を入れてください]
というダイアログなどが出ればそれで十分。

どなたかそれをVBA等で実現できるようにレクチャーしていただけ
ないでしょうか。

>どなたかそれをVBA等で実現できるようにレクチャーしていただけ
>ないでしょうか。

VBAはよく分からないのだけど・・・。(^^;
ここ↓、参考になりませんかね？
http://hiro.icadweb.com/vbaex/vbaex0015.html
http://hiro.icadweb.com/vbaex/vbaex0016.html

http://plaza29.mbn.or.jp/~f_izawa/

行ってきました。
ついでにソースをいただいてICADで実行させようとしたんですが
[実行できるようになってない]旨のお叱りをうけました。
なんなんだろ。
しかし、こういったマクロで[文字を入力する][ポリラインを画く]
を連続実行させればいいんですね。
かすかに希望の光が見えたような。(^^)
ありがとうございました。

>[実行できるようになってない]旨のお叱りをうけました。

まさか、VBA自体をインストールしていない・・・とか。

>ありがとうございました。

お礼は、ＨＩＲＯさんへね。(^^)

>まさか、VBA自体をインストールしていない・・・とか。

ICADのVB起動してソース貼り付けたんでそれは。。。
しかし、なんでだろ。

ＨＩＲＯさんとても分りやすい説明ありがとうございます。
サンプルも分りやすいです。
また、お時間などありましたら、複数のコマンドを連続して処理する
例などもあげていただくとありがたいです。
例えば、ポリラインを描かせた後、そのポリラインの名称を入力させ
それをテキストデータとしてそのポリラインの内部に配置する。
というようなのですが。(^^)

>まさか、VBA自体をインストールしていない・・・とか。
インストールしていないと、エラーメッセージが出てVBエディター自体が
起動できませんね。
初期の頃のIntelliCADは、VBエディターだけは使えたような記憶が・・・。

HIROですこんにちわ。(^^)

VBAが実行できないということなので以下を参照してみてください。
http://www.icadweb.com/bbs/kb.cgi?b=i_dev&c=e&id=1061

ちょっと仕事が立て込んでいるのでとりあえず簡単なRESですみません。

レスありがとうございます。
どうやら同じ現象のようです。
こちらでもやってみます。

実行できました。(^^)

とりあえずインタープリター？で動かしたのですが、
あとは
コンパイルする
ICADにそのコマンド用のボタンをつける
とすればICADで共通して(他のデータファイル)にも使えるのかな？

うん、これはいいな。
izawaさん、おすすめします。(^^)
なんてたってソースはあのおなじみのBasic(VB)で、
HIROさんという強力な解説者もおられることだし。。。

>実行できました。(^^)

おめでとうございます。(^^)

>とりあえずインタープリター？で動かしたのですが、
>あとはコンパイルする

VBAだとコンパイルできないと思いますが。。(^^;

>ICADにそのコマンド用のボタンをつける
>とすればICADで共通して(他のデータファイル)にも使えるのかな？

CommonProjectにマクロを入れて置けば、
そのマクロは各図面毎に使えますよ。

その処理が10000個もオブジェクトを処理しないなら、
外部VBで作るというのも実用的かと思います。

その場合はCommonProjectの標準モジュールなどに、
外部マクロを起動させるように書いておけばOKです。
でボタンに割り当てるとか。

>なんてたってソースはあのおなじみのBasic(VB)で、
>HIROさんという強力な解説者もおられることだし。。。

現在子育てが忙しくて死にそうですが。。。頑張ります。(^^;

＃しかも現在SDSに浮気中だったりします(汗)

>VBAだとコンパイルできないと思いますが。。(^^;
は、そうなんですか(^^;

>>ICADにそのコマンド用のボタンをつける
>>とすればICADで共通して(他のデータファイル)にも使えるのかな？
>CommonProjectにマクロを入れて置けば、
>そのマクロは各図面毎に使えますよ。
ということは、ボタンクリックで即起動というわけにはいかないの
ですね？。うーん、メニューはたどりたくないなー。(^^;

>その処理が10000個もオブジェクトを処理しないなら、
>外部VBで作るというのも実用的かと思います。
>その場合はCommonProjectの標準モジュールなどに、
>外部マクロを起動させるように書いておけばOKです。
>でボタンに割り当てるとか。
こっちの方がよさそう。

>現在子育てが忙しくて死にそうですが。。。頑張ります。(^^;
この時分が一番楽しいときですよ！！がんばって。

>>そのマクロは各図面毎に使えますよ。
>ということは、ボタンクリックで即起動というわけにはいかないの
>ですね？。うーん、メニューはたどりたくないなー。(^^;

いや。。ボタン一つでいけますよ。
Icad起動と同時にどんな図面でもつかえます。＜CommonProject

＞いや。。ボタン一つでいけますよ。
＞Icad起動と同時にどんな図面でもつかえます。＜CommonProject
やったー。という気分です。
ありがとうございました。

>うん、これはいいな。

tokさん、良かったですね。
IntelliCADをベースにして、新たな展開が出来そうですね。(^^)

>izawaさん、おすすめします。(^^)

実はVBA、インストールさえしていないのでした。
Delphiを使うのがやっとです。
ふつーに動くのじゃ面白くない・・・ということもあるけど。(^^;

>なんてたってソースはあのおなじみのBasic(VB)で、
>HIROさんという強力な解説者もおられることだし。。。

心強い限りです。
IntelliCADのSTD版が無くなるなら、VBAも覚えておかないと・・・とは、
思っているのです。

http://plaza29.mbn.or.jp/~f_izawa/

>tokさん、良かったですね。
>IntelliCADをベースにして、新たな展開が出来そうですね。(^^)
izawaさんのおかげです。ありがとうございました(^^)

ためしに今日、図上デジタイズをやってみました。
Ａ０版スキャナーがないので、デジカメで写してそれをバックにして
行ったのですがこれで十分ですね。
約１００区画を１時間足らずくらいだったでしょうか。

ICADのバージョンが古いのでポリライン作画中は画面のパンニングなどが
出来ないのでちょっと不便かなと思いましたが、問い合わせたところ
最新版ではできるとのことで安心しました。

世の中、デジタイザーからスキャナーへ移ると聞いていたのですが
これだとスキャナーも不要みたい。(^^;

>izawaさんのおかげです。ありがとうございました(^^)
お礼は、きんちゃん、HIROさんへね。(^^)

>Ａ０版スキャナーがないので、デジカメで写してそれをバックにして
>行ったのですがこれで十分ですね。

おぉ、すごい発想。(^^)
デジカメを何かでうまく固定すれば、結構使えるのかも知れませんね。
解像度よりも歪みが問題なんでしょうね。きっと。

http://plaza29.mbn.or.jp/~f_izawa/

>デジカメを何かでうまく固定すれば、結構使えるのかも知れませんね。
デジカメ画像とその上で行ったデジタイズデータは歪みがあっても、
最終的に区画Editor等で修正するという考えで多少の歪みは
クリアー。

>おぉ、すごい発想。(^^)
デジカメで名刺を写して管理しようと考えたのですが、
これはまだ実現していません。
人名見出しと、会社名などをどうクリアーするか？
ん、必要な都度並び替えればよいのかな？

http://www.intelli.jp/download/index.html

http://plaza29.mbn.or.jp/~f_izawa/

さっそく、ダウンロードしました。
ところで、VBAはどうすれば使えるのでしょうか？
（体験版では無理なんでしょうねぇ）

>（体験版では無理なんでしょうねぇ）
体験版では、無理ですね。

外部(VB、ExcelVBA、Delphi...）からだと、体験版でも使えると思います。

>しかし既存Ｕｓｅｒ版はいつになるんだろう;

ごめんなさい...
まずは、IntelliJapan社にて新規購入受付＆発送を正常に機能させない
ことには既存のユーザーさんに配るものが準備できませんので...m(_ _)m

まだ、初版CD-ROMマスターをフィックスできていない...(--;

VerUpのための差分ファイル(といっても新規と同じですが)は４０ＭＢ
程度になります。

こちらも間もなくADSLなるものをセットするようにしていますので
そうなれば４０メガも楽々。。。(^^)

>こちらも間もなくADSLなるものをセットするようにしていますので
いいなぁ。私も導入したいなぁ。
会社で落とすのも気が引けるし、大体そんなでかいと
途中でテク使わんと回線途切れるし。

＞いいなぁ。私も導入したいなぁ。
料金も、たしか3100円／月になるらしいです。(^^)

昨日秋葉に行き、久しぶりに本屋を覗いたら。。。
IntelliCADの公式？解説本が売ってました。2800円？だったかな。
あと【ObjectARX】の解説本が売っていました。これは超難い。(^^;

金曜日にあまぞんでえばっちさん紹介のADS本を買いました。
先に本のHPからADSのサンプルをDLして眺めています。

いろいろDLして資料を作っているのですが、
ADS(SDS)は線を一本描くのにもいろんなやり方があるらしい。

sds_command
sds_buildlist + sds_entmake
リンクリスト + sds_entmake

このリンク・リストというのが特に良く判らない。(^^;

rb0.resval.rstring=strdup("LINE");　みたいな。。。


やはりVBとは全く仕組みが違うという事が判りました。
ここで挫けるか？挑戦するか？。。とりあえずやってみるか･･･

BCBでSDSやっている方御指導よろしくお願いいたします。(^^;)

＃ここにはDelphi-SDS開発者の方が多いと思いますが。

P.S.
ObjectARXが組める人は凄い。。。心からそう思ってしまいました。
以前にコ○モさんのMLにIntelliCAD-ObjectARX対応予定みたい事が
書いてあったけど。。。

>IntelliCADの公式？解説本が売ってました。2800円？だったかな。
ほう、一般の書店でも扱っているのですね。
体験版CD-ROM付きなら即買い。(^^)

>やはりVBとは全く仕組みが違うという事が判りました。

VBAでは図形、画層．．．をオブジェクトとして扱えるので、
非常にわかりやすいと思います。
自分では使えませんが、かなり、VBA派。(^^;

内部で動く、高速という以外にSDSに魅力を感じられないです。
ObjectSDSになれば、話は別。

昔は、「禁断のメモリ空間の共有...」と、内部で動くということに
すごく魅力を感じていたんだけどな。

http://plaza29.mbn.or.jp/~f_izawa/

>自分では使えませんが、かなり、VBA派。(^^;

私も仕事はVBA派です。。(笑)
でも、Izawaさんなら簡単に使えると思う。(^^;＜VBA

>昔は、「禁断のメモリ空間の共有...」と、内部で動くということに
>すごく魅力を感じていたんだけどな。

私は今頃になって魅力を感じています。(^^;
しばらくBBSで紹介された例題などを動かしてみたり遊んでましたが

現在有名な[庭の小石]を研究中です。結構奥の深い例題ですね(笑)

>>IntelliCADの公式？解説本が売ってました。2800円？だったかな。
>ほう、一般の書店でも扱っているのですね。

これのことでしょ...
http://www.ellipse.ne.jp/books.html
この「公式」は大嘘だよ... 「コスモの公式」というのであれば納得ですが..

>体験版CD-ROM付きなら即買い。(^^)

コスモの体験版はついていると思うよ。＜いらん！

>これのことでしょ...
>http://www.ellipse.ne.jp/books.html

そうそう。。。それです。
ちょっと内容をみたのですが購入には至りませんでした。(笑)

IntelliJapanの公式本待ってます！。

あっ、えばっちさんに借りていたIcad98返さなくちゃ。(^^;

>でも、Izawaさんなら簡単に使えると思う。(^^;＜VBA
使えないけど、何となく読めます。
だから、「分かりやすい」と思うのかも。(^^;

VBAでもSDSでもDelphiでも、あるレベル以上のことをしようとすると、
かなり難しいものだと思います。

>現在有名な[庭の小石]を研究中です。結構奥の深い例題ですね(笑)
おぉ、本格派。(^^)

>「コスモの公式」というのであれば納得ですが..
そのようですね。先に出したもの勝ち？

>コスモの体験版はついていると思うよ。＜いらん！
体験版（機能制限無し）付き書籍は、魅力あると思います。
ちょっと買ってみようかという気になる。(^^;

http://plaza29.mbn.or.jp/~f_izawa/

>体験版（機能制限無し）

そんなものをコスモが配るとは思えないけど...(^^;

・IntelliCADを３万円以下で売ってはいけない!フリーなんて論外!

とITCに強く提案して決定してしまった張本人。
私はプランを変更するしかありませんでした。雑誌の付録にフリー
で収録するという私のプランはコスモに阻止されたような物です。
某CAD編集部には了解を取り付けていたのですが、突然のITCの決定
に、直前でキャンセル。

コスモ社長は、「エバテックは直ぐに潰れるから、IntelliCADは、
あそこから買わないほうが良い」と言いまわっている...という話
をお客さんから聞いたこともあります。

判断するのはお客様ですからどうでも良い話ですが...私の心中は
穏やかではない。

>IntelliCADを３万円以下で売ってはいけない!フリーなんて論外!

基本的な考え方が違うのでしょうね。
コスモさんとこは、IntelliCAD=プラットフォーム（素材）とは考えていないような・・・。
そう考えれば、値段の付け方も納得できますね。
コスモ版98,000円。IntelliJAPAN版29,800円。（共にPRO版)

>コスモ社長は、「エバテックは直ぐに潰れるから、IntelliCADは、
>あそこから買わないほうが良い」と言いまわっている...という話

なんちゅう、おっさんやねん！！！

>http://www.ellipse.ne.jp/books.html
http://www.icadweb.com/bbs/kb.cgi?b=i_gomi&c=e&id=2046

とりあえず下の方に一票です。(^^)
しかし既存Ｕｓｅｒ版はいつになるんだろう;

>コスモ社長は、「エバテックは直ぐに潰れるから、IntelliCADは、
>あそこから買わないほうが良い」と言いまわっている...という話

そこまで言われると不愉快ですね。
こうなったらWeb検索エンジンにいたずらをして。。。

[IntelliCAD]と打ち込むと全部[エバテック]＆[IntelliJP]
となるようにしちゃいましょう。

検索時にTOPから３ページを制覇すれば圧勝でしょうね。

えっと、そのーーいろんなツール(SDS,ARX,Delphi...VBA,LISP...)
などを使ってICADを図上デジタイズ専用として使用したい。
ということはどなたか簡単に実現できないものでしょうか。

やらせたいこと

A　ラスターを読み込む
B　そのラスター図上で区画データを結線する
C　その区画内部にその区画の名称を入力する
D　DXFに落とす。

ということだけで機能としてはほぼ現在のままであるんですが、
上記の作業をさせるにはちょっと不便な点がありまして、
それを以下に。。。

１　新点をつくる場合と強制的に最近点に結合させたいときの切り替え
(tok区画Editorでは左クリックなら新点作成、右なら強制結合させてます)
２　区画の名称を簡単に入力
　　例えばポリライン作成に入ったときに区画の名称を入力させる
　　ための入力ボックスが現れる
２−１　その名称の簡易入力化
　　たとえば直前入力が835-1だったら
　　ダイアログに[835-2]が初期値としてはいっている
３　最終線の自動表示
　　例えば三点の区画で点1,2,3を入力し、[現区画入力終了]としたら
　　3--1の線が自動的に引かれる
４　入力を開始した点が再度入力されたら区画を閉じる
　　えーと、これは[あれ,どの点からはじめたんだっけ]ということが
　　たま？に生じるのでその対策です。

第４コーナーでほぼ落馬した tok

p.s. うまくいけばICAD数本くらいは導入できそう。。。かな(^^;

機能追加：

すでに入力した区画は(入力されてない部分と区別するために)
自動的に塗り潰しできるとありがたいです。
(しかしべた塗りだと裏のラスターが見えなくなるので、点線で
１ｍくらいの間隔で表示されるといいな。)

>うまくいけばICAD数本くらいは導入できそう。。。かな(^^;
成功を祈ります。(^^)v

「区画エディター」の消費税分よりICAD(IntelliJAPAN版）のほうが安いと
いうことは、あまり知られていない。
余計なこと書いちゃったかな。(^^;

>えっと、そのーーいろんなツール(SDS,ARX,Delphi...VBA,LISP...)
>などを使ってICADを図上デジタイズ専用として使用したい。
>ということはどなたか簡単に実現できないものでしょうか。

実現可能かどうか？という意味では問題ありません。
仕事として出せば、１〜２ヶ月(200万くらい？)もあれば余裕で出来るよう
なきがします...

>「区画エディター」の消費税分よりICAD(IntelliJAPAN版）のほうが安いと
>いうことは、あまり知られていない。

ICADはタダみたいな値段で良いんです。その上にのせる、自分達が便利に
なる部分にお金を使ってください。

ICADだけを売って儲けようとするコスモと、ICADの上に載せるカスタマイ
ズで儲けようとする我々(IntelliJapan軍団)の考え方の違いです。

>「区画エディター」の消費税分よりICAD(IntelliJAPAN版）のほうが安い
>ということは、あまり知られていない。
>余計なこと書いちゃったかな。(^^;
はー、これはまたえらく評価をいただいたようでありがとうございます(^^)
しかし、そんなに評価されると、いまさら区画Editorが世界の一箇所で
しか使用されてないなどということは言いそびれるような。。。
ん、ついうっかり。
まあ、確かに自分で使う分にはなかなかのツールだとは思っているのです
が(^^;

＞実現可能かどうか？という意味では問題ありません。
＞仕事として出せば、１〜２ヶ月(200万くらい？)もあれば余裕で出来るよ＞うなきがします
前段はICADのカスタマイズが可能であることが理解できました。(^^)
後段は発注元になることは困難であることが理解できました。(^^;

落馬した後走ってゴールインしたらレースは成立するんだろうか？

> 落馬した後走ってゴールインしたらレースは成立するんだろうか？

自分の所で使う分には、ゴールした者勝ちでしょう。（＾＾）
お力になれることがあれば、ここで聞いてください。（勝手なことをいってすいません。＞Izawaさん）
でも、やっぱり、やりたいことがわからないです。（；；）
（VBでは、ないですよね。）

＞ A　ラスターを読み込む

ラスターデータを扱ったことがない・・・

＞ B　そのラスター図上で区画データを結線する

区画データを結線？？？

＞ C　その区画内部にその区画の名称を入力する

TEXTかな？

＞ D　DXFに落とす。

DXFOUTかな？

＞ ということだけで機能としてはほぼ現在のままであるんですが、
＞ 上記の作業をさせるにはちょっと不便な点がありまして、
＞ それを以下に。。。
＞
＞ １　新点をつくる場合と強制的に最近点に結合させたいときの切り替え
＞ 　　(tok区画Editorでは左クリックなら新点作成、右なら強制結合させてます)

？？？

＞ ２　区画の名称を簡単に入力
＞ 　　例えばポリライン作成に入ったときに区画の名称を入力させる
＞ 　　ための入力ボックスが現れる

Lispなら、「(setq strName (getstring "区画名を入力 :"))」かな？
VBなら、inputbox を使うかな？

＞ ２−１　その名称の簡易入力化
＞ 　　　たとえば直前入力が835-1だったら
＞ 　　　ダイアログに[835-2]が初期値としてはいっている

これは、Izawaさんが数字のカウントアップの何かを作っていましたね。

＞ ３　最終線の自動表示
＞ 　　例えば三点の区画で点1,2,3を入力し、[現区画入力終了]としたら
＞ 　　3--1の線が自動的に引かれる

ポリラインコマンドなら、最後「C」で終わればいいですね。

＞ ４　入力を開始した点が再度入力されたら区画を閉じる
＞ 　　えーと、これは[あれ,どの点からはじめたんだっけ]ということが
＞ 　　たま？に生じるのでその対策です。

？？？

すみません。全部こちらの言葉でしゃべったもので分りにくい点が
多々あるようで。。。

現在区画情報を数値化するについてA0版のデジタイザ(座標読み取機)
を用いて行っております。
ところがこれのため委託開発したソフトがＤＯＳ版でして、かつ某NEC
のPC-98xxシリーズ(ああ、なつかしい)でしか作動しないという状況
です。
で、自分だけで運用する分には支障はないのですが、他人様に使って
いただく場合にはすこしまずいので、(98ってまだ販売されてるだろうか）
自作の[区画editor]で図上デジタイズ機能を実装できないだろうかと思い
立ち取り組みました。
きんちゃん(さん)のご助言によりほぼ実現されそうになったのですが、
第４コーナーですこしつまずきまして、(４日くらい考えたのですが
だめでした。きんちゃん(さん)ならおそらく１０分で解けると。。）
当初別案として考えていたICADによる手法に流れを変えているわけです。

このＩＣＡＤによる手法は実は技術的には解決されているのですが、
＞＞ A　ラスターを読み込む
＞ラスターデータを扱ったことがない・・・
ベクトルデータでない方ですね。要するにデジカメ写真とか、スキャナー
で読ましたものです。
ここでは土地区画群を上空から撮影した写真を想定していただくと理解が
しやすいかと。
ICAD Pro版は(この価格で)ラスター読み込み機能があります。
しっかり宣伝しときました。＞えばっちさん

＞＞ B　そのラスター図上で区画データを結線する
＞区画データを結線？？？
その写真の１つ１つの土地区画をベクトルデータ化するため
各点を結びます。ＣＡＤ的には閉じたポリラインを描くということで
しょうか。
＞＞ C　その区画内部にその区画の名称を入力する
＞TEXTかな？
土地の地番をＴｅｘｔで与えるということです。
＞＞ D　DXFに落とす。
＞DXFOUTかな？
ですね。

で、ＤＸＦファイルから
１　ポリラインデータから土地の結線データを抽出(=区画データ化)
２　そのポリライン内部のＴｅｘｔから土地地番を抽出して
　　その区画に付加する
という処理をします(この部分はすでに作成済みです)

で、ＩＣＡＤ上ポリライン作図と地番テキストの入力作業がすいすい
出来れば別に区画Editorでうんうん言わなくていいんですが、以下の
ようなことが出来ないと(私としては)扱いづらいわけです。

ＩＣＡＤ上で図上デジタイズを行うときにほしい機能：
＞ １　新点をつくる場合と強制的に最近点に結合させたいときの切り替え
＞ 　　(tok区画Editorでは左クリックなら新点作成、右なら強制結合させてます)
？？？
隣接する区画は共通の点(=線)を持っています。
最初にＡ区画をポリラインで結ぶときは全部が新しい点(または線)です
しかしそれに隣接する区画Ｂをポリラインで結ぶときは何点(線)かは
Ａ区画と共通のものです。
従ってそれらはＡ区画の点と結合さす必要があります(同一線化する)
大雑把にみて新しい点として入力するものと既存の点に結合さすものとは
半々です。
ＩＣＡＤで操作するときこの結合モード(アタッチとかですか)と新点モード
との切り替えが面倒です。
区画Editorにも区画入力機能がありますが
　 １　新点をつくる場合と強制的に最近点に結合させたいときの切り替え
　 　　左クリックなら新点作成、右なら強制結合させてます
というのはこれをすばやく行うためのものです

＞ ２　区画の名称を簡単に入力
＞ 　　例えばポリライン作成に入ったときに区画の名称を入力させる
＞ 　　ための入力ボックスが現れる
Lispなら、「(setq strName (getstring "区画名を入力 :"))」かな？
VBなら、inputbox を使うかな？

＞ ２−１　その名称の簡易入力化
＞ 　　　たとえば直前入力が835-1だったら
＞ 　　　ダイアログに[835-2]が初期値としてはいっている

これは、Izawaさんが数字のカウントアップの何かを作っていましたね。

＞ ３　最終線の自動表示
＞ 　　例えば三点の区画で点1,2,3を入力し、[現区画入力終了]としたら
＞ 　　3--1の線が自動的に引かれる

ポリラインコマンドなら、最後「C」で終わればいいですね。

＞ ４　入力を開始した点が再度入力されたら区画を閉じる
＞ 　　えーと、これは[あれ,どの点からはじめたんだっけ]ということが
＞ 　　たま？に生じるのでその対策です。
？？？
ポリラインを入力するときに、いったいどの点からはじめたのかな
ということが発生します。
で、回りまわって入力を開始した点が再度入力されたら、ポリラインが
閉合された訳ですからプログラム側が自動的にポリライン入力完了を告
げるようにしたいわけです。

実はきんちゃん(さん)には区画Editorでの第４コーナーの問題
(おもて側で描画された区画に合わせて裏の画像データをぴったり
合わせて表示させる)
に関してご助言をいただきたいと思っています。
ただ、出来ないからといって何もかもすぐお頼みするというのも
何ですので(その方が解決が早いのは分り切っているのに)
もう少し頭の体操でうんうんいってみて、もうこれでだめだという
結論が出ましたら、Libretto L1提げて出て行く(お訪ねする)つもりを
しておりますので、その節はよろしくお願いします。

今日は用事があって恵比寿まで行ってきました。
確か、ガーデンプレイスだったはず、とショウルームでもあるのかなと思い、
寄ってみたのですが、案内に社名がない？？？

あきらめて帰ってきましたが、、、
いつの間にか晴海に移ってたのね、Ａ．Ｄ．(^^;

茂吉さん、今晩は。(^^)

> いつの間にか晴海に移ってたのね、Ａ．Ｄ．(^^;
そうなの。　詳しい日時は覚えてないのだけど．．．。
ガーデンプレイスあたりだと、身近に感じられたのだけど。。。(^^;

＃ 影ながら、応援しています。(^^)

>いつの間にか晴海に移ってたのね、Ａ．Ｄ．(^^;

Ａ．Ｄ．って、Autodeskのことですよね。
http://www.autodesk.co.jp/aboutus/locateof/index.htm

http://plaza29.mbn.or.jp/~f_izawa/

>＃ 影ながら、応援しています。(^^)
アリガトー、ヾ(^^ さん、、、、発音できん！！(^^;

>Ａ．Ｄ．って、Autodeskのことですよね。
もちろん。
ここは、東京湾の埋め立て地です。
前の場所と比べると、大分、静かというか賑わってないというか、繁華街からは離れてますね。

部屋を片付けるないといけない。
いらないものの候補として
１位：昔の雑誌
２位：１〜５までのDelphiのマニュアル郡

皆さん、古いバージョンのマニュアルってどうしていますか？

>皆さん、古いバージョンのマニュアルってどうしていますか？

大事にもってるよー。
見ないけど。(^^;
ボーランドのマニュアルってかなり分厚いですよね。

>皆さん、古いバージョンのマニュアルってどうしていますか？
気が付いたらなくなってます。

古い雑誌は意識して捨ててます(近くの雑草畑に一冊ずつ並べて廃棄
少しでも雑草防除になるかなと。。。）
しかし○経パソコンの重いこと。。１年分抱えられない。

>古い雑誌は意識して捨ててます(近くの雑草畑に一冊ずつ並べて廃棄
>少しでも雑草防除になるかなと。。。）

雑誌って土に返る？

うちの庭、雑草が酷くてねぇ...年に２〜３回は草刈(エンジンの奴で
１時間はかかる)しないといけない。

お父さん(σ(^^;)の仕事が楽になれば...並べる雑誌は山ほどある。

>雑誌って土に返る？
もとは紙でしょうから。。。

＞お父さん(σ(^^;)の仕事が楽になれば...並べる雑誌は山ほどある。
庭ならおすすめはしません。
雑草防除は気休め程度。なんせアスファルトやコンクリートをものとも
しない相手ですから。
そしてあとが結構汚い。それに火がついたときのことも考えておかないと。。

Exe、Del5ソース共、更新しました。
基本的なところは変わっていません。

相変わらず、ズーム範囲の変更はマウス右ドラッグ。(^^;

誰か使ってるのかな

http://www.watch.impress.co.jp/pc/docs/article/20010907/ms2.htm

>誰か使ってるのかな

「システム復元機能」ですね。Undo Markみたいなもの？

実は、会社が不幸にあいまして、、、
現在、５％の仲間入り。
これからどうするか、まだ決めていない状態です。
もうすぐ、子供も産まれるし、、、
国家からのお情けは頂けるけど、今までの６割くらいだし、あてにするもんじゃないだろうし。

マルチテキストエディタをシェアウェアにしたらミルク代くらいは稼げるんでしょうか？
もちろん、今までよりグレードアップしますが。

こういう場合、何と言ったらいいのか・・・。(^^;

茂吉さんの年齢なら、まだ、大丈夫だと思います。
私くらいの年齢になると、悲惨。(^^;

>マルチテキストエディタをシェアウェアにしたらミルク代くらいは稼げるんでしょうか？

どうなんだろう。たぶん、無理だと思います。
ひらぽんさん、ROMしていない？

特定の業種、業務に特化すれば、ふつーの人には価値の無いものでも、
とても価値のあるものになるでは？と思っています。

C/C++が組めて、こっちを稼業にするのであれば、仕事はまわせます。
LISPだけでは食えません。どの程度稼げるか？は実力次第。
マルチテキストエディタは...シェアならおそらく誰も払いません。

興味があればメールください。

izawaさん、えばっちさん、ありがとうございます。
>どうなんだろう。たぶん、無理だと思います。
>マルチテキストエディタは...シェアならおそらく誰も払いません。
自分としては、作ったエディタによって作図効率がだいぶあがった（ストレスが減った）と感じていたのですが。

>C/C++が組めて、こっちを稼業にするのであれば、仕事はまわせます。
ありがたいお言葉です。m(_ _)m
興味はすごくあります。
ただ、１０年以上のブランクがあるので今の私の能力では、仕事とするのは難しいと思います。

時間はたっぷりあるのでじっくり考えてみたいと思います。

>どうなんだろう。たぶん、無理だと思います。
>ひらぽんさん、ROMしていない？

同感・・・(^^;
でもえばっちさんじゃないけど、AutoCADとDelphi使えるなら
うちも多忙＆人材難なんで、やりようによっちゃ仕事廻せなくもないでっせ。(^^)
なんかあればメール下さい。

>同感・・・(^^;

コメント、ありがとうございます。m(__)m
多くは語らずとも、シェアウェア作家として言いたい事は分かる。(^^;

>同感・・・(^^;
>多くは語らずとも、シェアウェア作家として言いたい事は分かる。(^^;
ひらぽんさんありがとうございます。
なんとなくわかる気がする。世の中あまくない？

どういう仕事につくかまだ解りませんが、もし、そのときはお世話になります。m(_ _)m

ウルトラ１８番の手法

ICadでラスター読込みをする
(ラスター読込みは前の版ではPro版が必要でした。現版では?)
ラスター図の上で区画の形状をポリラインで結ぶ
区画の名称をその区画の内部の位置に書き込む
DXFに書き出す。
ICAD終了

そのDXFを解析してポリラインから区画データを抽出復元
区画の名称を復元
以上。

これが一番簡単だった(^^;
そもそもそのためにICAD購入したのに。
なまじっか全部手前でやろうとしたのがまちがい。。。

あきらめきれずに再度挑戦。

１　区画Editorで区画を描画
２　それをキャプチャーする
３　区画Editorを再起動し先程のキャプチャーした画面を表示。
　　もとの画面にそっくり重なるようにいろいろ数値をテスト
　　してみる。
'case 拡大
Image1.Picture = LoadPicture("\Kanti\0000.jpg")
Image1.Stretch = True
Image1.Top = -600
Image1.Left = -100
Image1.Height = (Image1.Picture.Height + Image1.Top) * 0.58
Image1.Width = (Image1.Picture.Width + Image1.Left) * 0.572

これでほぼ重なるのですが、完璧ではないです
そもそも 縦の *0.58 とか 横の *0.572 とかは手作業で
いろいろやってみた結果です。
ぴったしの数値を求める式があるはずなんですが。。。。

うーーん、予想どおりやはりこれが最大の難関。

>うーーん、予想どおりやはりこれが最大の難関。
tokさん、なんかようわからんけど、楽しそうですね。(^^)

昨夜、WMFをBMPに変換できました。
BMPの一部を取り出すというのもＯＫ。
これを組み合わせれば、一見WMFの部分を拡大してるように見えるはず。(^^)v

と、相変わらず姑息なことを考えています。(^^;

http://plaza29.mbn.or.jp/~f_izawa/

>昨夜、WMFをBMPに変換できました。
>BMPの一部を取り出すというのもＯＫ。
>これを組み合わせれば、一見WMFの部分を拡大してるように見えるはず。(^^)v
ふむ、そういう手もあるんですね。
固定倍率ならぴったしあわせることができるようなんですが、
こちらの場合だと、切り出して、リアルタイムで入れ替えて。。。
という作業が必要になるかな。これも大変なような。

もすこし、現行スタイルでがんばってみます。
Imageの枠内に収めるということがいまいちのみ込めてない。

いまひとつやりたいことが見えないので何とも言えないのですが、
コードから見ると「\Kanti\0000.jpg 」がきれいに入るように、
Imgae1 の Width と Height を調整しているように見えます。
でも、コーディングして試したところ

    Image1.Picture = LoadPicture("無題.jpg")

が実行された時点で、Imgae1 の Width と Height は調整されました。

多分そういうことではないのでしょうね・・・

ということで、縦横に掛けている係数についていいますと、
Pictureオブジェクトの Width,Height の単位は、0.01mm です。
それに対して、Imageコントロールの Width,Height,Top,Left というのは、
単位が twips というものです。

    1twips = 1/1440 インチ (1twips = 1/567 cm)

ですので、

    Image1.Height = (Image1.Picture.Height * 0.01 / 25.4 * 1440 ) + Image1.Top
    Image1.Width = (Image1.Picture.Width * 0.01 / 25.4 * 1440 ) + Image1.Left

    ※ 0.01 / 25.4 * 1440 = 0.567

となると思います。

> ※ 0.01 / 25.4 * 1440 = 0.567

おぉ、きんちゃん、お見事。(^^)v

>いまひとつやりたいことが見えないので何とも言えないのですが、
>コードから見ると「\Kanti\0000.jpg 」がきれいに入るように、
>Imgae1 の Width と Height を調整しているように見えます。

きんちゃんさん、ありがとうございます。
させたいことは背景図と、プログラムで描画させている区画を
ぴったり合わせて描画させるということです。
で、それを応用して、図上デジタイズなどが出来るように
したいという希望があります。
ある固定した１つの倍率でなら重ね合わせ表示が出来そうなのですが、
現実の作業としてどうしても拡大、縮小してみることが必要になります。
そのときに描画させた区画と背景とが同じように拡大縮小されるように
させたいわけで、それを色々試しているところです。

現在やっているのはその入門編で、
最初に区画Editorで描画させた画面をキャプチャーし、
次にそのキャプチャーした物を背景画として、その上に
当初の区画を描画させます。
そのときに背景画をその描画させた区画にぴったり合わせて
表示させる。というのが本日取り組んでいる部分です。

これが出来たらその表(おもて)の区画を拡大縮小させ、それに合わせて
背景の図もぴったり合わせた状態で拡大縮小させるというものです
これが出来れば当初の目的達成です。

説明べたですみません。
いただいたソースはいまテストする環境にないので、明日事務所で
実行させて見ます。
ありがとうございました。

これがうまくいったら[区画Editorみてくださいっ]ていかなくちゃ。

きんちゃんさん、どちらに居られるんですか？

わーい。
以下でぴったしに重なりました。

TateBias = 0.567
YokoBias = 0.567
Image1.Stretch = True
'単位は twips
’
Image1.Height = (Image1.Picture.Height *TateBias)
Image1.Width = (Image1.Picture.Width * YokoBias)
Image1.Top = -650 'Tate
Image1.Left = -48 'Yoko
'
きんちゃんさんありがとう。

これでできるかな[図上デジタイザ]
できたら見てくださいね。

> わーい。
> 以下でぴったしに重なりました。

それは良かった。お力になれて光栄です（＾＾）。
あと、ちょっとだけ、
縦横に掛ける係数は縦でも横でも同じで変わらないので、定数宣言しておいたほうがいいかも。

Const KEI_PICSIZE2TWIPS# = 0.01 / 25.4 * 1440
        ：
        ：

Image1.Height = (Image1.Picture.Height * KEI_PICSIZE2TWIPS)
Image1.Width = (Image1.Picture.Width * KEI_PICSIZE2TWIPS)

Imageコントロールの Top などの単位は twips なのですが、
画面の単位は ピクセル です。
ですので、Image1.Left=-48 でも Image1.Left=-49 でも変わらないと
思います。
ちなみに、１ピクセルあたりのtwips数は、Screenオブジェクトの
TwipsPerPixelXプロパティ、TwipsPerPixelYプロパティでわかります。


> これでできるかな[図上デジタイザ]
> できたら見てくださいね。

楽しみにしています。

イメージの拡大、縮小、移動モデルをつくってみました。
だいたい予定通り動くようです。

区画Editorにおける図上デジタイズ機能の実装は
第３コーナーにかかりました。(^^)

Option Explicit
Const KEI_PICSIZE2TWIPS# = 0.01 / 25.4 * 1440

Private Sub Form_Load()

Form1.WindowState = 2 'max

Image1.Picture = LoadPicture("\Kanti\0000.jpg")

'これは無くても可のようだ
'Image1.Height = (Image1.Picture.Height * KEI_PICSIZE2TWIPS)
'Image1.Width = (Image1.Picture.Width * KEI_PICSIZE2TWIPS)

Image1.Stretch = True
Image1.Top = 0
Image1.Left = 0
End Sub

Private Sub Image1_Click()
Dim Testf As Integer
Dim bairitu As Double
Dim sa As Double



' 1 cm = 567twip
' 1 inch = 1440twip

bairitu = 1.1

Testf = 4

Select Case Testf
Case 1 '移動 例:左上隅変更 OK
Image1.Top = Image1.Top + 300
Image1.Left = Image1.Left + 300

Case 2 '拡大 左上隅固定
Image1.Width = Image1.Width * 1.1
Image1.Height = Image1.Height * 1.1

Case 3 '縮小 左上隅固定
Image1.Width = Image1.Width / 1.1
Image1.Height = Image1.Height / 1.1

Case 4 '中心を基点として拡大
'Top Left の設定
sa = Image1.Width * bairitu - Image1.Width
Image1.Top = Image1.Top - (sa / 2)
sa = Image1.Height * bairitu - Image1.Height
Image1.Left = Image1.Left - (sa / 2)
'
Image1.Width = Image1.Width * bairitu
Image1.Height = Image1.Height * bairitu

End Select
'MsgBox (image1.top & " " & image1.left & vbcr & Image1.Width & " " & Image1.Height)

End Sub

> イメージの拡大、縮小、移動モデルをつくってみました。
> だいたい予定通り動くようです。

おぉ〜、なるほど、なるほど。
何となく、わかってきました。


> 区画Editorにおける図上デジタイズ機能の実装は
> 第３コーナーにかかりました。(^^)

ラストスパートですね。
がんばってください。

ちょっと、遊んでみました（＾＾）。
仕様と左クリックで拡大、右クリックで縮小するものです。


Option Explicit

Const KEI_BAIRITSU# = 1.1
Const KEI_PICSIZE2TWIPS# = 0.01 / 25.4 * 1440

Dim m_Image1_MouseUp_Button As Integer

Private Sub Form_Load()

    Form1.WindowState = vbMaximized

    Image1.Picture = LoadPicture("\Kanti\0000.jpg")


    Image1.Stretch = True
    Image1.Top = 0
    Image1.Left = 0

    m_Image1_MouseUp_Button = 0

End Sub

Private Sub Image1_Click()

    Dim dblTop As Double
    Dim dblLeft As Double
    Dim dblWidth As Double
    Dim dblHeight As Double

    Select Case m_Image1_MouseUp_Button
        Case vbLeftButton:
            dblWidth = Image1.Width * KEI_BAIRITSU
            dblHeight = Image1.Height * KEI_BAIRITSU
            dblTop = Image1.Top - ((dblHeight - Image1.Height) / 2)
            dblLeft = Image1.Left - ((dblWidth - Image1.Width) / 2)
        Case vbRightButton:
            dblWidth = Image1.Width / KEI_BAIRITSU
            dblHeight = Image1.Height / KEI_BAIRITSU
            dblTop = Image1.Top - ((dblHeight - Image1.Height) / 2)
            dblLeft = Image1.Left - ((dblWidth - Image1.Width) / 2)
        Case Else:
            m_Image1_MouseUp_Button = 0
            Exit Sub
    End Select

    Image1.Visible = False
    Image1.Top = dblTop
    Image1.Left = dblLeft
    Image1.Width = dblWidth
    Image1.Height = dblHeight
    Image1.Visible = True

    m_Image1_MouseUp_Button = 0

End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Shift = 0 Then
        m_Image1_MouseUp_Button = Button
    End If

End Sub

>> 区画Editorにおける図上デジタイズ機能の実装は
>> 第３コーナーにかかりました。(^^)
>ラストスパートですね。
>がんばってください

いや、まだ第３コーナーですので、(^^;
もうひとやまありそう。
しかし、おかげで大体つかめてきました。

示していただいたソースは又、テストしてみます。
しかしプロのソースはきれいですねー。

区画Editorですから区画描画がおもて、裏にイメージです。
このおもての区画の描画を変えたときに、うらのイメージも
それにあわせてリアルタイムで変える必要があります。
これが第４コーナー。

これさえ超えればあとはゴール目指してまっしぐら。
という感じなんですが。これも結構な障壁。。。

ここを訪れて下さったすべてのみなさまに、感謝します。m(__)m

たとえ不細工なアプリでも、自分で作ったものは、結構使えるし、
かわいいものです。
もっとたくさんの人に、その面白さを体験して欲しいですね。
そんなに難しいことをやっているわけではありませんから。

これからも、そういう人たちを応援して行きたいと思っています。

おめでとうございます。m(_ _)m
今後とも末永く、よき「おいちゃん」として皆に親しまれますように。

>これからも、そういう人たちを応援して行きたいと思っています。
今度、相談にのって下さいね。

izawaさんおめでとうございます。(^^)

珍しいでしょ。やっと発言のチャンスと、
これで半年間のROMを予約します。

おめでとうございます。
遅れちゃった、、m(__)m。

>珍しいでしょ。やっと発言のチャンスと、
>これで半年間のROMを予約します。
あっ、そんなのずるい。

茂吉さん、素さん、ITさん、likiさん。
みなさん、ありがとうございます。
今後とも宜しくお願いします。m(__)m

>今度、相談にのって下さいね。
何の相談だろ。
みなさん、技術的には私よりか遙かに上だけど。(^^;

http://plaza29.mbn.or.jp/~f_izawa/

おや？カウント見逃してました。すでに超えてる（＾＾；）。
おめでとうございます♪

おめでとうございます！
丁度温泉につかってたものでみられなかった(^^;

次は百一万百一[1010101]をねらおうかな。

MAAさん、tokさん。
どうもありがとうございます。m(__)m

>次は百一万百一[1010101]をねらおうかな。
図書券の申し込み無かったから、次は[1010101]？

#ただいま、客先でCADオペ中。(^^;

>図書券の申し込み無かったから、・・・
たぶん自動巡回してるんじゃ？
新ネタがないと通り過ぎる？通知しない？−−−＞本人知らず．．．

発言の数に比べてカウントが多すぎるんじゃないかと思うんですけど。
だから自動巡回が多いんじゃないかと。

私、99997と99998でした。
あと２回抜けて入り直せば・・・と、考えたけど意味がないと思って止めときました。

>新ネタがないと通り過ぎる？通知しない？−−−＞本人知らず．．．
そういうことなのか。
何となく納得。(^^;

>あと２回抜けて入り直せば・・・と、考えたけど意味がないと思って止めときました。

おしいですね。(^^;
ここ、[更新]をクリックすればカウンターは上がります。単なる目安。

>何となく納得。(^^;

LTネタは、かなり以前から更新していないのに、変だなと思っていたのです。

こんにちは、ゆりです。
最近、Delphiをいじりはじめました。

>発言の数に比べてカウントが多すぎるんじゃないかと思うんですけど。

私がそのDelphiのために、かなり来てます（笑）
ちなみに、xsakaiyさんの所も。
Delphi関係の方のHPのカウントが球に上がってたら、
私のせいです。

>最近、Delphiをいじりはじめました。

いいですね、デルファーが増えるのは。
やったね、ボーランド。(^^)v

CADを何とかしたいという目標があるから、早く習得できると思います。

>ちなみに、xsakaiyさんの所も。
私も、よく利用させてもらってます。(^^)

>私がそのDelphiのために、かなり来てます（笑）
>ちなみに、xsakaiyさんの所も。
>Delphi関係の方のHPのカウントが球に上がってたら、
>私のせいです。

そうだったのか・・　どうりで近頃。
おかしいなーと思っていました。

>>最近、Delphiをいじりはじめました。
>いいですね、デルファーが増えるのは。
ですね〜(^○^)
ゆりさん頑張って。Delphiの良いところは、もう腹一杯といわんばかりの
コンポーネントが使える。
ほんの数行で見栄えの良いソフトが短時間で作れます。
覚えれば覚えるほど面白い！　そんなソフトです。
私はまってしまいました。

もうすぐVIEW NO3を公開予定です。
複数だだだと、姑息な手段ですけど・・(;^^)

＃HPもお引っ越し予定

>もうすぐVIEW NO3を公開予定です。
密かに、やってるんですね。えらい！！

>複数だだだと、姑息な手段ですけど・・(;^^)
姑息な手段でも、xsakaiyさんのはまとめ方がきれいだから。(^^;

>＃HPもお引っ越し予定
ん？どこへ行くんだろ。

http://plaza29.mbn.or.jp/~f_izawa/

> こんにちは、ゆりです。
> 最近、Delphiをいじりはじめました。

底が深すぎる言語なだけに
（嵌るととことん泥沼にはまる！LISPの非じゃない！！(^^; ）
「お母様」になる方にはどうなのかなぁ？と思ってはいたのですが、
数学が得意なら意外や「PASCAL」は使い倒せるかも知れん。。。

＃ちょくちょくLISPコードの方、参考にさせてもらってます。
＃感謝！！(−人−)

Delpherならここ↓は必見！宝の山です。

http://leed.issp.u-tokyo.ac.jp/~takeuchi/delphi/nsearch.cgi

＃ここのMLは未だにレスが付けようがない。みな凄過ぎ！！(^^;

ひらぽんさん久しぶり〜(^^)

>＃ちょくちょくLISPコードの方、参考にさせてもらってます。
あたいもです、参考ばかりで、私のはとても公開出来ませんが・・^^;

ここは先月出来たばかりのようでまだ小数。どうなるかは今後に・・http://www.freeml.com/ml_info.php?ml=kondel
「こんなことがしたい」Delphi入門

ひらぽんさん
> ちょくちょくLISPコードの方、参考にさせてもらってます。
xsakaiyさん
> あたいもです

なんと！巨匠にＨＰを見てもらってるなんて、感激。

ＭＬの紹介、ありがとうございます。さっそくお気に入りに登録だ。