« 戻る
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