Bonjour,
exactement ca ete fait. quand la presentation positionelle est cree, tous marche comme il faut.


par contre quand il n'y a pas, je une message de errors.


en mode manuele cette case ne pas active(gris):

Sub main
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
'define pos rep
Dim oPosRep As PositionalRepresentation
Dim sPosRep As String
'__________________________________________________________________________________
TemplateFile="L:\001\Q2023\Inventor\Templates\Procede_equip\PE-Dessin (FR).idw"
Dim oDrawingDoc As DrawingDocument = ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject,TemplateFile,True)
oDrawingDoc.Activate()
Dim oSheet As Sheet = oDrawingDoc.Sheets.Item(1)
Dim oPoint1 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Width/4, oSheet.Height/1.25)
Dim oPointIso As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Width/1.25, oSheet.Height/3)
oViewISO = oSheet.DrawingViews.AddBaseView(oAsmDoc, oPointIso, 1/6, ViewOrientationTypeEnum.kIsoTopRightViewOrientation,DrawingViewStyleEnum.kShadedDrawingViewStyle )
oView = oSheet.DrawingViews.AddBaseView(oAsmDoc, oPoint1, 1 / 6, ViewOrientationTypeEnum.kTopViewOrientation, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle, )
oView2 = oSheet.DrawingViews.AddOverlayView(oViewISO, "[Principale]", "Par défaut", 0, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle, 0)
Dim V2Point2D As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(oView.Center.X, oView.Center.Y + 10)
End Sub