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

私の環境では、「ItsCAD MAX Type Library」しかないのですが…。

違うキャドのタイプライブラリでは動かなくて当たり前ですよ。

>購入に際して、oleの作成ができるのか確認しています。
>Excel2019VBAのツール　参照設定で「ITsSuperCAD Type Library」チェック入れてます
>
>サンプル通りに
>
>Public Drawing As Object
>
>Private Sub CommandButton1_Click()
>Dim Count As Integer
>Dim I As Integer
>Dim myDraw As ITsCAD.Drawing
>Dim myLayer As ITsCAD.Layer
>Dim myCoor As ITsCAD.Coordinate
>Dim myEntity As ITsCAD.Entity
>Drawing = CreateObject("ItsSuperCAD.Draw")　　　ここでエラー出ます
>myDraw.Application.Visible = True ' キャド表示
>Set myCoor = myDraw.AddCoordinate("新規", 0.1, 0.1, 0, 0, 0, 0, 0, False) ' 座標系を追加
>Set myLayer = myDraw.AddLayer("新規") ' レイヤーを追加
>Set myEntity = myDraw.DBAddLine(0, 0, 10, 10, myLayer, myCoor) ' 線を描画
>myDraw.DBAddCircle 10, 0, 10, myLayer, myCoor ' 円を描画
>myDraw.DBAddArc 20, 0, 10, 0, 3.141592, myLayer, myCoor ' 円弧を描画
>myDraw.DBAddEllipse 30, 30, 20, 10, 0, myLayer, myCoor ' 楕円を描画
>myDraw.DBAddEllipsearc 40, 40, 20, 10, 3.141592 / 3, 0, 3.141592, myLayer, myCoor ' 楕円弧を描画
>Set myDraw = Nothing ' キャド終了
>End Sub
>
>で実行すると
>Drawing = CreateObject("ItsSuperCAD.Draw")
>の所でACtivXコンポーネントはオブジェクトを作成できませんと出ます。
>何か設定あるんでしょうか
>

書き間違っていました「ItsCAD MAX Type Library」にチェック入れてました。ITsSuperCAD Type Libraryではありません。　どのように設定しておられるのか教えていただけませんか。

そもそもサンプルコードの出典元がわからないのですが、以下のコードは試されましたか？

URL を書き込めないみたいなので、「文書番号 : S3-0004」でググってみてください。

こちらのエクセルでは普通に動きましたよ。

「文書番号 : S3-0004」で試したら次のエラーが出て上手く作動しないのです。
ACtivXコンポーネントはオブジェクトを作成できませんと出ます

>「文書番号 : S3-0004」で試したら次のエラーが出て上手く作動しないのです。
>ACtivXコンポーネントはオブジェクトを作成できませんと出ます

はじめまして「naka様」

「naka様」ご提示のコードでは、オブジェクトの代入が

　　Drawing = CreateObject("ItsSuperCAD.Draw")

　　※　Drawing　→　myDraw　の誤りでは？

になっていますがIt'sCADの場合は、

　　Set myDraw = New ITsCAD.Drawing

になります。


「おいも様」ご提示のサンプルコードですが私の環境では

　　ACtivXコンポーネントはオブジェクトを作成できません

とのエラーはでません。
　当方の環境

　　MAX3 Ver12.6.30.178
　　Excel 2019 Ver2302
　　Windows10 Pro


購入に際しての確認ということは、無料版のIt'sCADで試しているのでしょうか。
そうだとしたら参照しているライブラリの違いでエラーが出ているのかも知れません。


因みにIt'sCADのオートメーションは進展がないようなので私は使用していません。

理由は、

　　1　VBAコードの実行後にIt'sCADが終了する。
　　　 もしくはIt'sCADのファイルが終了する。
　　　 上記の動作は不可避である。
　　　 以前は、MicrosoftのVisual StudioのMicrosoft Visual Basic .NETしか
　　　 強制終了を回避できなかった。

　　2　上記「1」の動作は環境に依存し、必ずしも他の環境で再現するとは限らない。

　　3　文字や寸法を作図するメソッドがない。

　　4　既存の図形を編集する術がない。

などです。

オートメーションは進展がないのですか。検討してみます。
ありがとうございました

>「文書番号 : S3-0004」で試したら次のエラーが出て上手く作動しないのです。
>ACtivXコンポーネントはオブジェクトを作成できませんと出ます

以下に過去のオートメーションに関するスレッドを記載します。

　　2003/08/02～2005/12/26の期間の過去ログ

追えない場合は以下でググる。

　「It'sCAD カスタマイズできないの」




この時の環境は、

　超CAD1
　Excel2000
　Windows2000 SP4

　超CAD3 Ver9.56
　Excel2000 SP3
　Windows2000 SP4

　超CAD3 Ver9.56
　ExceXP SP3
　WindowsXP SP2

　超CAD3 Ver9.56
　VS2005ExpressEdition(日本語版)無料版

ありがとうございます。

このソフトは、そのような状態なのですか。検討してみます。