【ZWCADの小技】 AutoCADのVBアプリケーションをZWCADに移行する方法
AutoCADのVBアプリケーションをZWCADに移行する方法
下記のように、AutoCADのVBプログラムの変数宣言部分を変更する必要があります。
(ZWCADのVBサンプルは、ZWCADの開発者用ヘルプをご参照してください。)
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Set acadApp = CreateObject(“AutoCAD.Application”)
⇒
Dim acadApp As ZwcadApplication
Dim acadDoc As ZwcadDocument
Set acadApp = CreateObject(“ZWCAD.Application”)
ZWCADのVB2008アプリケーションの例
下記のソースファイルは、Button1ボタンのクリックイベントの処理関数です。
ZWCADを起動させて、原点(0,0)から(50,60)まで、線分を引くプログラムです。
test1.dwgをC:\の配下に入れておきます。
‘—————————————————————————
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim zwcadApp As ZwcadApplication
Dim zwcadDoc As ZwcadDocument
On Error Resume Next
zwcadApp = GetObject(, “ZWCAD.Application”)
If Err.Number <> 0 Then
Err.Clear()
zwcadApp = CreateObject(“ZWCAD.Application”)
If Err.Number <> 0 Then End
End If
zwcadApp.Visible = True
zwcadApp.Documents.Open(“c:\test1.dwg”)
zwcadDoc = zwcadApp.ActiveDocument
Dim lineObj As ZwcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
‘線分の始点と終点を設定する
startPoint(0) = 0.0# : startPoint(1) = 0.0# : startPoint(2) = 0.0#
endPoint(0) = 50.0# : endPoint(1) = 60.0# : endPoint(2) = 0.0#
‘モデル空間で、startPointからendPointまで線分を引く
lineObj = zwcadDoc.ModelSpace.AddLine(startPoint, endPoint)
End Sub
End Class
‘—————————————————————————
「プロジェクト」メニュー→「プロパティ」をクリックして、下記のような画面で、Import設定と参照を追加します。
このプログラムを実行させると、ZWCADが起動されて、線分が引かれます。