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

46 '新規座標系を追加
47 Set myCrd = myDrw.AddCoordinate("新規", 0.1, 0.1, 0, 0, 0, 0, 0, False)
48 If myCrd Is Nothing Then
49 MsgBox ("新規座標系の追加に失敗しました。")
50 Exit Sub
51 End If
52 '新規レイヤを追加
53 Set myLyr = myDrw.AddLayer("新規")
54 If myLyr Is Nothing Then
55 MsgBox ("新規レイヤの追加に失敗しました。")
56 Exit Sub
57 End If
58 '各要素を作図
59 Set myEnt = myDrw.DBAddLine(0, 0, 10, 10, myLyr, myCrd)
60 Set myEnt = myDrw.DBAddCircle(10, 0, 10, myLyr, myCrd)
61 Set myEnt = myDrw.DBAddArc(20, 0, 10, 0, 3.141592, myLyr, myCrd)
62 Set myEnt = myDrw.DBAddEllipse(30, 30, 20, 10, 0, myLyr, myCrd)
63 Set myEnt = myDrw.DBAddEllipsearc(40, 40, 20, 10, 3.141592 / 3, 0, 3.141592, myLyr, myCrd)
64 '指定レイヤをアクティブにする
65 myDrw.Layer = myLyr
66 '最後に作図した要素を削除
67 myDrw.DBDeleteEntity (myEnt)
68 myDrw.SaveAs ("C:\Testtest.it")
69 Set myDrw = Nothing
70 Exit Sub
71
72 Err_Handler:
73 Call MsgBox("エラー番号:" & Err.Number & vbCrLf _
74 & "エラー内容:" & Err.Description, vbCritical + vbOKOnly, "エラー")
75 Set myDrw = Nothing
76
End Sub