04-10-2023
07:26 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-10-2023
07:26 AM
Dimension line
Hello! I have an easy problem that I can't seem to solve. Please help me to add a dimension line for dimensions to the view. From the leftmost point to the rightmost one, for example.
Dim invApp As Inventor.Application
invApp = ThisApplication
Dim partDoc As PartDocument = ThisDoc.Document
Dim tg As TransientGeometry = ThisApplication.TransientGeometry
' Определение пути к шаблону
Dim templatePath As String
templatePath = ".\Templates\Standard.dwg"
Dim newDrawingDoc As DrawingDocument
newDrawingDoc = invApp.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, templatePath, True)
newDrawingDoc.Activate()
Dim oSheet As Sheet = newDrawingDoc.ActiveSheet
Dim frontView As DrawingView
frontView = oSheet.DrawingViews.AddBaseView(partDoc, tg.CreatePoint2d(x,y), 1/50, ViewOrientationTypeEnum.kBackViewOrientation, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle)