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

« 戻る

oleオートメーションで作図 2023/02/20 22:06
お名前 : naka カテゴリー : 【it'sCAD MAX3】

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

>> 返信する <<

修正



コメント 一覧

題名 お名前 投稿日付 カテゴリー
★ oleオートメーションで作… naka 2023/02/20 22:06  
  └ Re:oleオートメーション… おいも 2023/02/28 09:00  
    └ oleオートメーションで作… naka 2023/02/28 11:27  
      └ Re:oleオートメーション… おいも 2023/03/02 09:07  
        └ Re:oleオートメーション… naka 2023/03/02 14:10  
          └ Re:oleオートメーション… Dim 2023/03/28 13:25  
            └ oleオートメーションで作… naka 2023/04/12 22:59  
          └ Re:oleオートメーション… Dim 2023/03/28 13:26  
            解決済み oleオートメーションで作… naka 2023/04/12 22:57