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

分割します。(その1)
Sub test()

Dim itsCAD As Object
Dim X, Y, X0, Y0, A, Radius As Double
Dim i, j, PointX, PointY As Integer

On Error Resume Next ' エラーのトラップを留保します。
' 超キャドを実行する
'Set itsCAD = GetObject("C:\Program Files\It's 超 CAD ２\itscad.exe") ' 起動中の超キャド
Set itsCAD = GetObject(, "ItsSuperCAD.Draw") ' 起動中の超キャド(なぜか捕まえられない時が多い)
If Err.Number <> 0 Then
Err.Clear
Set itsCAD = CreateObject("ItsSuperCAD.Draw") ' 超キャドを実行
itsCAD.Visible = True ' キャド画面表示
End If
SendKeys "%F^T{up}{up}{enter}", True