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

私の環境では、「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コンポーネントはオブジェクトを作成できませんと出ます。
>何か設定あるんでしょうか
>