Dim oModel As Document
Dim oSheet As Sheet
Dim oModelName As String = "C:\$ObszarRoboczyVault\Projekty Keller\Templates\OSŁONY - 2023.ipt"
oModel= ThisApplication.Documents.Open(oModelName, False)
DWGcreate = MsgBox("Stworzyć rysunek wykonawczy?", vbYesNo, "")
If DWGcreate = vbYes Then
'określenie szablonu rysunku
Dim IDWTemplate As String = "C:\$ObszarRoboczyVault\Projekty Keller\Templates\OSŁONY - 2023.idw"
'tworzenie pliku rysunku
oDrawingDoc = ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, IDWTemplate, True)
oDrawingDoc.Activate()
oSheet = oDrawingDoc.Sheets.Item(1)
'tworzenie rzutu bazowego
Dim oPoint1 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(7,10)
oBaseView = oSheet.DrawingViews.AddBaseView(oModel, oPoint1, 1, ViewOrientationTypeEnum.kLeftViewOrientation, DrawingViewStyleEnum.kHiddenLineDrawingViewStyle)
'tworzenie rzutów
Dim otopview As DrawingView
Dim oPoint2 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(7,23)
otopview = oSheet.DrawingViews.AddProjectedView(oBaseView, oPoint2, DrawingViewStyleEnum.kFromBaseDrawingViewStyle)
Dim osideview As DrawingView
Dim oPoint3 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(23,7)
osideview = oSheet.DrawingViews.AddProjectedView(oBaseView, oPoint3, DrawingViewStyleEnum.kFromBaseDrawingViewStyle)
'przekroje
Dim oSectionSketch As DrawingSketch
oSectionSketch = obaseview.Sketches.Add
oSectionsketch.edit()
Dim oSectionLine As SketchLine
oSpoint1 = ThisApplication.TransientGeometry.CreatePoint2d(0, -7)
oSpoint2 = ThisApplication.TransientGeometry.CreatePoint2d(0, 7)
oSectionLine = oSectionSketch.SketchLines.AddByTwoPoints(oSPoint1, oSPoint2)
oSectionSketch.ExitEdit()
Dim osectionview As SectionDrawingView
oSpoint3 = ThisApplication.TransientGeometry.CreatePoint2d(35,23)
osectionview = oSheet.DrawingViews.AddSectionView(obaseview, oSectionSketch, oSPoint3, DrawingViewStyleEnum.kShadedDrawingViewStyle, 1, True, "A")
End If