イッツキャドコミュニティ

途中で送信してしまいましたが、上の参照のアドレス(前回のは間違い。こちらが正しい)で、
とりあえず横断図作成のサンプルを公開しておりますので、ご意見をお聞かせいただきたいと思います。
会社が絡んじゃってますので、1000〜5000円程度の値段で公開することになります。
なお、DXFに対応する気持ちはありません(単に嫌いだからなんですが)

To角道さん

>皆さんが考えている自動作図と、EXCEL側でXDF、SFCファイルを
>作成するのには、どのような差があるのでしょうか？

　角道さんのように直接ファイルを読み書きできるなら、
　「差」というものは僅差なものでしょう。

　私も直接ファイル操作について考える事もありますが、
　なかなか実行に移せないのが現状です。

　そこで勝手ながら期待しているのが、開発者様による
　It'sCADのオートメーション用のオブジェクトの
　充実です。

　ゴリゴリとコードを書けるスキルはないが、
　作図や編集、出力に関するオブジェクトがあれば、
　ExcelやAccess、VBSでのコードの記述における
　負担が格段に減り、誰でもコードが書きやすくなる
　と思っています。

　作成される図面の差ではなく、コード作成の
　負担と習得するための時間(期間)の「差」だと
　考えています。

　ちょっと話が変わりますが、ＨＰ拝見しました。
　おおっ、私など足元にも及びません、すごいですね。
　さっそくフリー版の「横断作成」をダウンロードしてみましたが、
　「非表示モジュール　XDF内でコンパイルエラーが発生しました。」
　とエラーがでます。
　私の使い方が悪いのでしょうか？

To角道さん
　ちょっと書き忘れたので追記です。
　ファイルに直接書き出す場合ですが、そのファイルを
　起動している場合は別の作図用のVBAを実行できるのですか？

　起動中のファイルはやっぱりまずいですよね？
　私の勘違いならゴメンナサイ（汗

　オートメーションの場合、ExcelとIt'sCADを立ち上げとけば、
　Excel側からVBAを実行して、起動中の図面に書き込みが
　できると思います。

　例えば、マウスの左クリックでクリックした場所の座標値を、
　右クリックでCancelを返すメソッドがあればユーザが任意の
　位置に思い思いの構造図や展開図をコード上から書けるように
　なると思います。

プログラムに間違いがありました。

修正版をアップしましたので、よろしくお願い致します。

＞ファイルに直接書き出す場合ですが、そのファイルを
＞起動している場合は別の作図用のVBAを実行できるのですか？

ItsCADの場合は他のアプリケー所うんと違い、同じファイルを
2重に開けてしまうのでたぶん可能と思います。

ただ、開いているファイルは、メモリー上に展開されており、
VBAで変更するファイルは、ハードディスクにありますので
それぞれの変更は、別のものなので、両方の変更を一つの
一つの図面に反映させることはできません。

作業中の図面を一度閉じてから、なにがしかの変更をVBAから行い、
再度開くことになるかと思います。

＞オートメーションの場合、ExcelとIt'sCADを立ち上げとけば、
＞Excel側からVBAを実行して、起動中の図面に書き込みが
＞できると思います。

開発者さんの環境整備待ちですね。

＞例えば、マウスの左クリックでクリックした場所の座標値を、
＞右クリックでCancelを返すメソッドがあれば

すみません、ちょっとイメージがわきません。

＞構造図や展開図

あまり複雑な描画は、自動化するのには向きません。
データの入力量が多くなるのと、今どの部分のデータを入力して
いるのか、直感的にわからないと混乱の元です。
今のところ、CADの描画コマンドがもっともユーザーフレンドリーな
データ入力方法です。

需要に応じてパターン別の入力を用意することになると思います。

　ご回答をありがとうございます。
　私自身、ファイルを直接いじる事が出来ないので
　とても参考になります。

＞開発者さんの環境整備待ちですね。

　正にそのとおりです。（笑
　開発者さん、期待しております。

＞＞例えば、マウスの左クリックでクリックした場所の座標値を、
＞＞右クリックでCancelを返すメソッドがあれば

＞すみません、ちょっとイメージがわきません。

　ごめんなさい、
　未熟なものですから言葉足らずで申し訳ありません。

　上段は、Excelの表に必要な値を入力後、コマンドボタン等で
　VBAを実行、配置位置を取得する段階でVBAを待機状態にして
　It'sCADをアクティブにしてマウスクリックで座標位置を取得後
　残りのコードを実行というイメージです。

　下段はマウスクリック時に、右クリックで現在の状態を
　キャンセルさせるための戻り値が欲しいという意味です。

＞あまり複雑な描画は、自動化するのには向きません。
＞データの入力量が多くなるのと、今どの部分のデータを入力して
＞いるのか、直感的にわからないと混乱の元です。

　そうなんですよね、、、（汗
　いろいろ考えているんですが、描画するパターンがあり過ぎて
　それを網羅しようとすると、考えている頭（私の）のほうが
　こんがらがってしまって。。。

　しかしながら展開図とかって、割と作図するのに手間が必要で、
　何とか楽したいのが人情だったりするので。。。

　楽するために苦労する？　矛盾ですね。（笑

ご迷惑をかけている、噂の開発者です。(^^;;;

# いつもは掲示板での発言はメールで読ませて頂いているの
# ですが、弊社関連サイトの設定変更手続きでごちゃごちゃ
# している間に、メール設定がぶっ飛んでいたようで、今頃
# このスレッドに気付いた次第です。

オートメーションとただ今格闘中なのですが、やっと開発ツールの癖が分かってきてこれからという感じです。更新履歴には出てきていませんが、内部はかなり変わってきています。

当初の目標は「エクセルやVBから超キャドを起動して図面を描く」だったのですが、ユーザ様の期待が膨らんでいるようでちょっとアセッテいます。

こっそり解説した、オートメーションのページもすぐに見つけられてしまったようですが、そのページで順次記載していきたいと思います。（あまり大きな期待はせずに）お待ちください。

以上、開発報告でした。

Dimさん
展開図については、考えてみたいと思います。
実際に作成された展開図と、その作図のために必要になった
データをメールで送っていただけませんか？
私のところでは滅多に作らないので、整理されたノウハウがありません
データはFaxの方が良ければ　Fax　0123-52-0280　まで

To角道さん

＞展開図については、考えてみたいと思います。

　にゃはは、ありがとうございます。(^。^)
　ちょっとお時間(日数)をください、
　現在の仕事に手間取っているので。。。

＞私のところでは滅多に作らないので、
＞整理されたノウハウがありません

　あっ、いや、整理なんてほどのものは無いんですが。。。
　擁壁展開図、法面展開図、排水構造物展開図、舗装工展開図とか
　上げだすとキリがありませんが、結構これらの作成に手間取るんです。

開発者さんに質問です。

Private Sub CommandButton1_Click()

Dim objScad As Object

Set objScad = CreateObject("ItsSuperCAD.Draw")
objScad.Application.Visible = True

' Set objScad = Nothing

End Sub

上記のコードを実行すると一瞬、何か起動したように
見えるだけでIt'sCADが起動しません。


ブレークポイントを設けて実行すると、

＞ objScad.Application.Visible = True

のところで確かに起動したCADが見えるようになりますが、

＞End Sub

までくるとCADが終了してしまいます。

＞' Set objScad = Nothing

はコメントアウトしてあるし、Close系のメソッドも無いので
いきなり終了してしまうのはチョッと。。。^_^;

一応タスクマネージャにプロセスが残ってないので
いいんですけど。。。
今現在の仕様でしょうか？

実行環境
It's超CAD3　Ver9.52
Excel2002　SP-3
WindowsXP　SP-2

objScad.Application.Visible = True
を
objScad.Visible = True
とすれば　ItsCADが開きます。

以前メールでいただいたコードがあるのですが、

この掲示板の字数制限(800字以内)のため載せられませんでした。


＞・スケールを考慮していない
＞・座標系を考慮していない
＞・一度「用紙設定」をしないと、レイヤーリスト等が空欄のままになっている
＞等の問題があり、あまりお勧めできるものではないかもしれません。

だそうです。