sujet iLogic - Création de côte automatique dans Inventor - Forum Français

iLogic - Création de côte automatique

alysonrssl — Thu, 08 Dec 2022 08:32:44 GMT

Bonjour à tous,

Je rencontre un problème en iLogic, je souhaite réaliser une mise en plan automatique à partir d'un .iam,

J'ai donc intégré mon code dans cet .iam qui génère automatiquement le dessin, la vue, l'échelle, etc.

Je souhaite à présent ajouter des côtes, j'utilise le Name Entities pour faire ça (le NE's est imposé par mon entreprise, mais si jamais vous avez d'autres solutions en tête propre et peut être plus simples n'hésitez pas) dès que j’exécute ma règle la création de la mise en plan se lance et j'ai le message d'erreur que je vous mets en pièce jointe, je vois que la règle s'est exécutée correctement jusqu'au renommage de ma vue "Front View". Je pense comprendre que le problème vient du fait que je lui demande de faire appel à des intentions de géométrie dans un dessin alors que je suis dans un assemblage, mais aucune idée de comment y remédier. Voici mon code :

Option Explicit On Option Strict On Sub main Const GabaritDwg As String = "C:\Workspace_Vault\99_Administration\01_Templates\Current Version\Site Nantes\Standard templates\Standard KTSN.dwg" Dim ADoc As Inventor.AssemblyDocument = DirectCast(ThisApplication.ActiveDocument, Inventor.AssemblyDocument) Dim NewDwg As Inventor.DrawingDocument = DirectCast(ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, GabaritDwg, True), Inventor.DrawingDocument) '*** Choix du format et de l'orientation NewDwg.ActiveSheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize '***A2 NewDwg.ActiveSheet.Orientation = PageOrientationTypeEnum.kPortraitPageOrientation '***PORTRAIT Dim NewSheet = NewDwg.ActiveSheet '*** Créer la vue de base à la moitié de la largeur de la feuille en H ' au 3/4 de la hauteur dela feuiille en V Dim oTG As Inventor.TransientGeometry = ThisApplication.TransientGeometry Dim ViewCenter As Inventor.Point2d = oTG.CreatePoint2d(NewDwg.ActiveSheet.Width / 2, NewDwg.ActiveSheet.Height * 3 / 4) Dim FrontView As Inventor.DrawingView = NewDwg.ActiveSheet.DrawingViews.AddBaseView(DirectCast(ADoc, _Document), ViewCenter, 1, ViewOrientationTypeEnum.kFrontViewOrientation, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle) ' Dim TopView As Inventor.DrawingView = NewDwg.ActiveSheet.DrawingViews.AddAuxiliaryView(FrontView, DirectCast(ADoc, _Document), ViewCenter, 1, ' ViewOrientationTypeEnum.kFrontViewOrientation, ' DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle) '*** SUPPRIMER LES SYMBOLES D'ESQUISSES DE LA NOUVELLE FEUILLE '*** Supprimer le symbole "Cadre - Informations Générales" Dim SketchedSymbolDef As SketchedSymbol For Each SketchedSymbolDef In NewDwg.ActiveSheet.SketchedSymbols If SketchedSymbolDef.Name = "Cadre - Informations Générales" Then SketchedSymbolDef.Delete 'It will delete all the sketched symbols End If Next '*** Supprimer le symbole "Title Block - FR-EN - Support" For Each SketchedSymbolDef In NewDwg.ActiveSheet.SketchedSymbols If SketchedSymbolDef.Name = "Title Block - FR-EN - Support" Then SketchedSymbolDef.Delete 'It will delete all the sketched symbols End If Next '*** Ajuster l'échelle de la vue pour qu'elle ne dépasse PAS la moitié de la hauteur Dim Ratio As Double = (NewDwg.ActiveSheet.Height / 2) / FrontView.Height Dim ViewScaleFrontView As Double = CalculateScale(Ratio) FrontView.ScaleString = ViewScaleFrontView.ToString FrontView.Name = FrontView.Name.Replace("1", "FRONT VIEW") Dim Intent1 As GeometryIntent = ActiveSheet.View("FRONT VIEW").GetIntent("SUP-6141-BEARING SUPPORT:1", "Upperface") Dim Intent2 As GeometryIntent = ActiveSheet.View("FRONT VIEW").GetIntent("SUP-6141-SUPPORT PLATE:1", "Lowerface") Dim genDims = ActiveSheet.DrawingDimensions.GeneralDimensions Dim linDim1 = genDims.AddLinear("Dimension1", ActiveSheet.View("FRONT VIEW").SheetPoint(0.8, 1.6), Intent1, Intent2) End Sub Function CalculateScale(Ratio As Double) As Double If Ratio>200 Then CalculateScale = 200 ' Echelle 200:1 Else If Ratio>100 Then CalculateScale = 100 ' Echelle 100:1 Else If Ratio>50 Then CalculateScale = 50 ' Echelle 50:1 Else If Ratio>25 Then CalculateScale = 25 ' Echelle 25:1 Else If Ratio>20 Then CalculateScale = 20 ' Echelle 20:1 Else If Ratio>10 Then CalculateScale = 10 ' Echelle 10:1 Else If Ratio>5 Then CalculateScale = 5 ' Echelle 5:1 Else If Ratio>2 Then CalculateScale = 2 ' Echelle 2:1 Else If Ratio>1 Then CalculateScale = 1 ' Echelle 1:1 Else If Ratio>0.5 Then CalculateScale = 0.5 ' Echelle 1:2 Else If Ratio>0.25 Then CalculateScale = 0.25 ' Echelle 1:4 Else If Ratio>0.2 Then CalculateScale = 0.2 ' Echelle 1:5 Else If Ratio>0.1 Then CalculateScale = 0.1 ' Echelle 1:10 Else If Ratio>0.05 Then CalculateScale = 0.05 ' Echelle 1:20 Else If Ratio>0.04 Then CalculateScale = 0.04 ' Echelle 1:25 Else If Ratio>0.02 Then CalculateScale = 0.02 ' Echelle 1:50 Else If Ratio>0.01 Then CalculateScale = 0.01 ' Echelle 1:100 Else If Ratio>0.005 Then CalculateScale = 0.005 ' Echelle 1:200 Else CalculateScale = 0.01 ' Echelle 1:100 0.01 est la valeur par defaut si les autres echelles ne conviennent pas. End If End Function

Merci d'avance,

Re: iLogic - Création de côte automatique

vpeuvion — Thu, 08 Dec 2022 15:23:35 GMT

Bonjour, je pense que vous pouvez vous inspirer de ce post :

Dim Intent1 As GeometryIntent = ActiveSheet.CreateGeometryIntent(...

https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/ilogic-create-dimension-using-named-geometry-in-idw/td-p/8838703

J'espère que cela pourra vous faire avancer.

Vincent.

Re: iLogic - Création de côte automatique

vpeuvion — Mon, 12 Dec 2022 08:00:31 GMT

Bonjour,
J'ai regardé un peu plus en détail votre code pendant la pause. L'erreur qui apparait vient du fait que vous utilisez "ActiveSheet".
Quand vous utilisez "ActiveSheet", vous utilisez la feuille de dessin en cours du document dans lequel s'éxecute la règle. Dans votre cas le document dans lequel s'éxecute la règle est un assemblage.
Vous ne pouvez pas utiliser "ActiveSheet", "ThisDrawing". Vous devez remplacer "ActiveSheet" par "NewDwg.ActiveSheet" comme à la ligne 42.
Malheureusement cela ne va pas résoudre tous vos problèmes.
Il y a plusieurs exemples sur le net qui montrent comment placer une cote par rapport à des faces nommées d'une pièce. Mais si j'ai bien compris vous voulez placer une cote par rapport à des faces nommées de 2 pièces qui se trouvent dans un assemblage.
Ce n'est plus du tout la même affaire!
Je pense que vous allez devoir créer des "FaceProxy" pour pouvoir accéder aux faces des pièces depuis l'assemblage.
Je n'ai pas beaucoup de temps en ce moment pour vous aider davantage. J'espère que ce post pourra éclaircir certains points.

Vincent.

Re: iLogic - Création de côte automatique

vpeuvion — Mon, 12 Dec 2022 11:45:57 GMT

J'ai fait un test avec un assemblage simple.
J'ai créé 2 pièces : Pièce1 avec un face nommée "FaceCarree" et Pièce2 avec une face nommée "FaceRonde".
J'ai placé ces 2 pièces espacées de 123 mm dans un assemblage nommé Assemblage.
J'ai créé une règle ilogic dans cet assemblage à partir de votre code. J'ai dû passer l'option Strict sur Off.
Le code est assez brut il peut être simplifié.
Pour des raisons de confidentialité, je ne peux pas transférer les fichiers, mais vous devriez pouvoir les recréer facilement avec les indications données.
Bon courage.

Vincent.

L'assemblage :

Le résultat :

Le code modifié :

Sub Main

	Const GabaritDwg As String = "C:\Workspace_Vault\99_Administration\01_Templates\Current Version\Site Nantes\Standard templates\Standard KTSN.dwg"

	Dim ADoc As Inventor.AssemblyDocument = DirectCast(ThisApplication.ActiveDocument, Inventor.AssemblyDocument)
	
'*****************************************************************************************************************************************************************
	Dim oAsmDef As AssemblyComponentDefinition = ADoc.ComponentDefinition
	Dim oLeafOccs As ComponentOccurrencesEnumerator = oAsmDef.Occurrences.AllLeafOccurrences
	Dim oFaceProxy1 As FaceProxy
	Dim oFaceProxy2 As FaceProxy
		
	For Each oComponent As ComponentOccurrence In oLeafOccs
		 If oComponent.Name = "Pièce1:1" Then
			 Dim oDoc As PartDocument = oComponent.Definition.Document
			 Dim NamedEntities = iLogicVb.Automation.GetNamedEntities(oDoc)
			 Dim oFace1 As Face = NamedEntities.FindEntity("FaceCarree")
			 Call oComponent.CreateGeometryProxy(oFace1, oFaceProxy1)
		 End If
	Next
	For Each oComponent As ComponentOccurrence In oLeafOccs
		 If oComponent.Name = "Pièce2:1" Then
			 Dim oDoc As PartDocument = oComponent.Definition.Document
			 Dim NamedEntities = iLogicVb.Automation.GetNamedEntities(oDoc)
			 Dim oFace2 As Face = NamedEntities.FindEntity("FaceRonde")
			 Call oComponent.CreateGeometryProxy(oFace2, oFaceProxy2)
		 End If
	Next		 
	
	Dim oPoint1 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(4, 43)
	
'********************************************************************************************************************************************************************	
	
	Dim NewDwg As Inventor.DrawingDocument = DirectCast(ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, GabaritDwg, True), Inventor.DrawingDocument)

	'*** Choix du format et de l'orientation
	NewDwg.ActiveSheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize								'***A2
	NewDwg.ActiveSheet.Orientation = PageOrientationTypeEnum.kPortraitPageOrientation				'***PORTRAIT

	Dim NewSheet = NewDwg.ActiveSheet

	'*** Créer la vue de base à la moitié de la largeur de la feuille en H
	'						  au 3/4 de la hauteur dela feuiille en V

	Dim oTG As Inventor.TransientGeometry = ThisApplication.TransientGeometry

	Dim ViewCenter As Inventor.Point2d = oTG.CreatePoint2d(NewDwg.ActiveSheet.Width / 2, NewDwg.ActiveSheet.Height * 3 / 4)

	Dim FrontView As Inventor.DrawingView = NewDwg.ActiveSheet.DrawingViews.AddBaseView(DirectCast(ADoc, _Document), ViewCenter, 1,
	ViewOrientationTypeEnum.kRightViewOrientation,
	DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle)

	'	Dim TopView As Inventor.DrawingView = NewDwg.ActiveSheet.DrawingViews.AddAuxiliaryView(FrontView, DirectCast(ADoc, _Document), ViewCenter, 1,
	'	ViewOrientationTypeEnum.kFrontViewOrientation,
	'	DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle)

	'*** SUPPRIMER LES SYMBOLES D'ESQUISSES DE LA NOUVELLE FEUILLE
	'*** Supprimer le symbole "Cadre - Informations Générales"
	Dim SketchedSymbolDef As SketchedSymbol
	For Each SketchedSymbolDef In NewDwg.ActiveSheet.SketchedSymbols
		If SketchedSymbolDef.Name = "Cadre - Informations Générales" Then
			SketchedSymbolDef.Delete 'It will delete all the sketched symbols
		End If
	Next
	'*** Supprimer le symbole "Title Block - FR-EN - Support"
	For Each SketchedSymbolDef In NewDwg.ActiveSheet.SketchedSymbols
		If SketchedSymbolDef.Name = "Title Block - FR-EN - Support" Then
			SketchedSymbolDef.Delete 'It will delete all the sketched symbols
		End If
	Next

	'*** Ajuster l'échelle de la vue pour qu'elle ne dépasse PAS la moitié de la hauteur
	Dim Ratio As Double = (NewDwg.ActiveSheet.Height / 2) / FrontView.Height

	Dim ViewScaleFrontView As Double = CalculateScale(Ratio)

	FrontView.ScaleString = ViewScaleFrontView.ToString

	FrontView.Name = FrontView.Name.Replace("1", "FRONT VIEW")
'*************************************************************************************************************************************************************************	
	
	Dim oSheet As Sheet = NewDwg.ActiveSheet
	Dim oView As DrawingView = oSheet.DrawingViews.Item(1)


	Dim oCurve1 As DrawingCurvesEnumerator
	oCurve1 = oView.DrawingCurves(oFaceProxy1)
	Dim finalCurve1 As DrawingCurve
	finalCurve1 = oCurve1.Item(1)
	Dim oMidPoint1 As Point2d = finalCurve1.CenterPoint
	Dim oIntent1 As GeometryIntent = oSheet.CreateGeometryIntent(finalCurve1,oMidPoint1)
		
		
	Dim oCurve2 As DrawingCurvesEnumerator
	oCurve2 = oView.DrawingCurves(oFaceProxy2)
	Dim finalCurve2 As DrawingCurve
	finalCurve2 = oCurve2.Item(1)
	Dim oMidPoint2 As Point2d = finalCurve2.CenterPoint
	Dim oIntent2 As GeometryIntent = oSheet.CreateGeometryIntent(finalCurve2,oMidPoint2)

	Dim genDims = oSheet.DrawingDimensions.GeneralDimensions
	Dim linDim1 = genDims.AddLinear(oPoint1, oIntent1, oIntent2)
'*******************************************************************************************************************************************************************************
End Sub


Function CalculateScale(Ratio As Double) As Double
	If Ratio>200 Then
		CalculateScale = 200    ' Echelle 200:1
	Else If Ratio>100 Then
	CalculateScale = 100        ' Echelle 100:1
	Else If Ratio>50 Then
	CalculateScale = 50         ' Echelle 50:1
	Else If Ratio>25 Then
	CalculateScale = 25         ' Echelle 25:1
	Else If Ratio>20 Then
	CalculateScale = 20         ' Echelle 20:1
	Else If Ratio>10 Then
	CalculateScale = 10         ' Echelle 10:1
	Else If Ratio>5 Then
	CalculateScale = 5          ' Echelle 5:1
	Else If Ratio>2 Then
	CalculateScale = 2          ' Echelle 2:1       
	Else If Ratio>1 Then
	CalculateScale = 1          ' Echelle 1:1
	Else If Ratio>0.5 Then
	CalculateScale = 0.5        ' Echelle 1:2
	Else If Ratio>0.25 Then
	CalculateScale = 0.25       ' Echelle 1:4
	Else If Ratio>0.2 Then
	CalculateScale = 0.2        ' Echelle 1:5
	Else If Ratio>0.1 Then
	CalculateScale = 0.1        ' Echelle 1:10
	Else If Ratio>0.05 Then
	CalculateScale = 0.05       ' Echelle 1:20
	Else If Ratio>0.04 Then
	CalculateScale = 0.04       ' Echelle 1:25
	Else If Ratio>0.02 Then
	CalculateScale = 0.02       ' Echelle 1:50
	Else If Ratio>0.01 Then
	CalculateScale = 0.01       ' Echelle 1:100
	Else If Ratio>0.005 Then
	CalculateScale = 0.005      ' Echelle 1:200
	Else
		CalculateScale = 0.01       ' Echelle 1:100 0.01 est la valeur par defaut si les autres echelles ne conviennent pas.
	End If

End Function

Re: iLogic - Création de côte automatique

alysonrssl — Tue, 13 Dec 2022 10:42:38 GMT

@vpeuvion

Bonjour, merci pour tes réponses,

Je suis passée sur un autre sujet, j'essaye donc ta solution dès que possible dans la semaine et je reviens vers toi pour la valider ou non, merci beaucoup !

Re: iLogic - Création de côte automatique

alysonrssl — Wed, 14 Dec 2022 09:00:54 GMT

Bonjour @vpeuvion, je viens de tester ta solution qui fonctionne parfaitement par contre, est ce que cela ne risque pas de causer des problèmes d'avoir mis le Option Strict Off ?

Voici donc mon nouveau code :

Option Explicit On Option Strict Off Sub main Const GabaritDwg As String = "C:\Workspace_Vault\99_Administration\01_Templates\Current Version\Site Nantes\Standard templates\Standard KTSN.dwg" Dim ADoc As Inventor.AssemblyDocument = DirectCast(ThisApplication.ActiveDocument, Inventor.AssemblyDocument) Dim oAsmDef As AssemblyComponentDefinition = ADoc.ComponentDefinition Dim oLeafOccs As ComponentOccurrencesEnumerator = oAsmDef.Occurrences.AllLeafOccurrences '*** Déclaration et récupération des faces nommées dans les ipt Dim oFaceProxy1 As FaceProxy Dim oFaceProxy2 As FaceProxy For Each oComponent As ComponentOccurrence In oLeafOccs If oComponent.Name = "SUP-6141-BEARING SUPPORT:1" Then Dim oDoc As PartDocument = oComponent.Definition.Document Dim NamedEntities = iLogicVb.Automation.GetNamedEntities(oDoc) Dim oFace1 As Face = NamedEntities.FindEntity("Upperface") Call oComponent.CreateGeometryProxy(oFace1, oFaceProxy1) End If Next For Each oComponent As ComponentOccurrence In oLeafOccs If oComponent.Name = "SUP-6141-SUPPORT PLATE:1" Then Dim oDoc As PartDocument = oComponent.Definition.Document Dim NamedEntities = iLogicVb.Automation.GetNamedEntities(oDoc) Dim oFace2 As Face = NamedEntities.FindEntity("Lowerface") Call oComponent.CreateGeometryProxy(oFace2, oFaceProxy2) End If Next '***Déclaration du DWG et de la feuille active Dim NewDwg As Inventor.DrawingDocument = DirectCast(ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, GabaritDwg, True), Inventor.DrawingDocument) Dim oSheet As Sheet = NewDwg.ActiveSheet '*** Choix du format et de l'orientation oSheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize '***A2 oSheet.Orientation = PageOrientationTypeEnum.kPortraitPageOrientation '***PORTRAIT '*** Créer la vue de base à la moitié de la largeur de la feuille en H ' au 3/4 de la hauteur dela feuiille en V Dim oTG As Inventor.TransientGeometry = ThisApplication.TransientGeometry Dim ViewCenter As Inventor.Point2d = oTG.CreatePoint2d(oSheet.Width / 2, oSheet.Height * 3 / 4) Dim FrontView As Inventor.DrawingView = oSheet.DrawingViews.AddBaseView(DirectCast(ADoc, _Document), ViewCenter, 1, ViewOrientationTypeEnum.kFrontViewOrientation, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle) '*** Créer la vue projetée à la moitié de la largeur de la feuille en H ' au 2/4 de la hauteur dela feuiille en V ViewCenter = oTG.CreatePoint2d(oSheet.Width / 2, oSheet.Height * 2 / 4) Dim TopView As Inventor.DrawingView = oSheet.DrawingViews.AddProjectedView(FrontView, ViewCenter, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle) '*** SUPPRIMER LES SYMBOLES D'ESQUISSES DE LA NOUVELLE FEUILLE '*** Supprimer le symbole "Cadre - Informations Générales" Dim SketchedSymbolDef As SketchedSymbol For Each SketchedSymbolDef In oSheet.SketchedSymbols If SketchedSymbolDef.Name = "Cadre - Informations Générales" Then SketchedSymbolDef.Delete 'It will delete all the sketched symbols End If Next '*** Supprimer le symbole "Title Block - FR-EN - Support" For Each SketchedSymbolDef In oSheet.SketchedSymbols If SketchedSymbolDef.Name = "Title Block - FR-EN - Support" Then SketchedSymbolDef.Delete 'It will delete all the sketched symbols End If Next '*** Ajuster l'échelle de la vue pour qu'elle ne dépasse PAS la moitié de la hauteur Dim Ratio As Double = (oSheet.Height / 4) / FrontView.Height Dim ViewScaleFrontView As Double = CalculateScale(Ratio) FrontView.ScaleString = ViewScaleFrontView.ToString FrontView.Name = FrontView.Name.Replace("1", "FRONT VIEW") TopView.Name = TopView.Name.Replace("2", "TOP VIEW") '***Création d'un point 2d pour centrée le texte de la côte Dim oPoint1 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(((FrontView.Center.X) + FrontView.Height * 0.8), (FrontView.Center.Y)) '*** Création des intentions de géométries selon les faces nommées déjà récupérées Dim oCurve1 As DrawingCurvesEnumerator oCurve1 = FrontView.DrawingCurves(oFaceProxy1) Dim finalCurve1 As DrawingCurve finalCurve1 = oCurve1.Item(1) Dim oMidPoint1 As Point2d = finalCurve1.CenterPoint Dim oIntent1 As GeometryIntent = oSheet.CreateGeometryIntent(finalCurve1, oMidPoint1) Dim oCurve2 As DrawingCurvesEnumerator oCurve2 = FrontView.DrawingCurves(oFaceProxy2) Dim finalCurve2 As DrawingCurve finalCurve2 = oCurve2.Item(1) Dim oMidPoint2 As Point2d = finalCurve2.CenterPoint Dim oIntent2 As GeometryIntent = oSheet.CreateGeometryIntent(finalCurve2, oMidPoint2) '*** Création de la côte selon les géometries d'intention et le point 2D Dim genDims = oSheet.DrawingDimensions.GeneralDimensions Dim linDim1 = genDims.AddLinear(oPoint1, oIntent1, oIntent2) End Sub Function CalculateScale(Ratio As Double) As Double If Ratio>200 Then CalculateScale = 200 ' Echelle 200:1 Else If Ratio>100 Then CalculateScale = 100 ' Echelle 100:1 Else If Ratio>50 Then CalculateScale = 50 ' Echelle 50:1 Else If Ratio>25 Then CalculateScale = 25 ' Echelle 25:1 Else If Ratio>20 Then CalculateScale = 20 ' Echelle 20:1 Else If Ratio>10 Then CalculateScale = 10 ' Echelle 10:1 Else If Ratio>5 Then CalculateScale = 5 ' Echelle 5:1 Else If Ratio>2 Then CalculateScale = 2 ' Echelle 2:1 Else If Ratio>1 Then CalculateScale = 1 ' Echelle 1:1 Else If Ratio>0.5 Then CalculateScale = 0.5 ' Echelle 1:2 Else If Ratio>0.25 Then CalculateScale = 0.25 ' Echelle 1:4 Else If Ratio>0.2 Then CalculateScale = 0.2 ' Echelle 1:5 Else If Ratio>0.1 Then CalculateScale = 0.1 ' Echelle 1:10 Else If Ratio>0.05 Then CalculateScale = 0.05 ' Echelle 1:20 Else If Ratio>0.04 Then CalculateScale = 0.04 ' Echelle 1:25 Else If Ratio>0.02 Then CalculateScale = 0.02 ' Echelle 1:50 Else If Ratio>0.01 Then CalculateScale = 0.01 ' Echelle 1:100 Else If Ratio>0.005 Then CalculateScale = 0.005 ' Echelle 1:200 Else CalculateScale = 0.01 ' Echelle 1:100 0.01 est la valeur par defaut si les autres echelles ne conviennent pas. End If End Function

Re: iLogic - Création de côte automatique

vpeuvion — Wed, 14 Dec 2022 12:43:36 GMT

Bonjour @alysonrssl . J'ai écrit ce code pendant la pause et comme indiqué c'est un code brut pour donner un exemple. Je ne savais pas si l'option Strict était une imposition de ton entreprise ou pas.

En effet, il vaut mieux rester avec cette option sur On.

Ci-joint un lien qui explique les actions de cette option :

Option Strict Statement - Visual Basic | Microsoft Learn

Ci-joint un extrait du code modifié pour que l'option Strict On ne crée pas d'erreur de compilation :

	For Each oComponent As ComponentOccurrence In oLeafOccs
		 If oComponent.Name = "Pièce1:1" Then
			 Dim oDoc As PartDocument = CType(oComponent.Definition.Document,PartDocument)
			 Dim NamedEntities As NamedEntities = iLogicVb.Automation.GetNamedEntities(CType(oDoc,Document))
			 Dim oFace1 As Face = CType(NamedEntities.FindEntity("FaceCarree"),Face)
			 Call oComponent.CreateGeometryProxy(CType(oFace1,Object), CType(oFaceProxy1,Object))
		 End If
	Next

Re: iLogic - Création de côte automatique

alysonrssl — Thu, 15 Dec 2022 07:55:45 GMT

Bonjour @vpeuvion,

J'avais tenté de remettre le strict on en mettant des DirectCast dans le For...Each et en exécutant la règle la côte demandée n’apparaît pas, je viens d'essayer avec ton bout de code et j'ai la même chose, aucun message d'erreur même à l’exécution mais il manque la côte

Sub main Const GabaritDwg As String = "C:\Workspace_Vault\99_Administration\01_Templates\Current Version\Site Nantes\Standard templates\Standard KTSN.dwg" Dim ADoc As Inventor.AssemblyDocument = DirectCast(ThisApplication.ActiveDocument, Inventor.AssemblyDocument) Dim oAsmDef As AssemblyComponentDefinition = ADoc.ComponentDefinition Dim oLeafOccs As ComponentOccurrencesEnumerator = oAsmDef.Occurrences.AllLeafOccurrences '*** Déclaration et récupération des faces nommées dans les ipt Dim oFaceProxy1 As FaceProxy Dim oFaceProxy2 As FaceProxy For Each oComponent As ComponentOccurrence In oLeafOccs If oComponent.Name = "SUP-6141-BEARING SUPPORT:1" Then Dim oDoc As PartDocument = CType(oComponent.Definition.Document,PartDocument) Dim NamedEntities As NamedEntities = iLogicVb.Automation.GetNamedEntities(CType(oDoc,Document)) Dim oFace1 As Face = CType(NamedEntities.FindEntity("Upperface"),Face) Call oComponent.CreateGeometryProxy(CType(oFace1,Object), CType(oFaceProxy1,Object)) End If Next For Each oComponent As ComponentOccurrence In oLeafOccs If oComponent.Name = "SUP-6141-SUPPORT PLATE:1" Then Dim oDoc As PartDocument = CType(oComponent.Definition.Document,PartDocument) Dim NamedEntities As NamedEntities = iLogicVb.Automation.GetNamedEntities(CType(oDoc,Document)) Dim oFace1 As Face = CType(NamedEntities.FindEntity("Lowerface"),Face) Call oComponent.CreateGeometryProxy(CType(oFace1,Object), CType(oFaceProxy1,Object)) End If Next '***Déclaration du DWG et de la feuille active Dim NewDwg As Inventor.DrawingDocument = DirectCast(ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, GabaritDwg, True), Inventor.DrawingDocument) Dim oSheet As Sheet = NewDwg.ActiveSheet '*** Choix du format et de l'orientation oSheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize '***A2 oSheet.Orientation = PageOrientationTypeEnum.kPortraitPageOrientation '***PORTRAIT '*** Créer la vue de base à la moitié de la largeur de la feuille en H ' au 3/4 de la hauteur dela feuiille en V Dim oTG As Inventor.TransientGeometry = ThisApplication.TransientGeometry Dim ViewCenter As Inventor.Point2d = oTG.CreatePoint2d(oSheet.Width / 2, oSheet.Height * 3 / 4) Dim FrontView As Inventor.DrawingView = oSheet.DrawingViews.AddBaseView(DirectCast(ADoc, _Document), ViewCenter, 1, ViewOrientationTypeEnum.kFrontViewOrientation, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle) '*** Créer la vue projetée à la moitié de la largeur de la feuille en H ' au 2/4 de la hauteur dela feuiille en V ViewCenter = oTG.CreatePoint2d(oSheet.Width / 2, oSheet.Height * 2 / 4) Dim TopView As Inventor.DrawingView = oSheet.DrawingViews.AddProjectedView(FrontView, ViewCenter, DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle) '*** SUPPRIMER LES SYMBOLES D'ESQUISSES DE LA NOUVELLE FEUILLE '*** Supprimer le symbole "Cadre - Informations Générales" Dim SketchedSymbolDef As SketchedSymbol For Each SketchedSymbolDef In oSheet.SketchedSymbols If SketchedSymbolDef.Name = "Cadre - Informations Générales" Then SketchedSymbolDef.Delete 'It will delete all the sketched symbols End If Next '*** Supprimer le symbole "Title Block - FR-EN - Support" For Each SketchedSymbolDef In oSheet.SketchedSymbols If SketchedSymbolDef.Name = "Title Block - FR-EN - Support" Then SketchedSymbolDef.Delete 'It will delete all the sketched symbols End If Next '*** Ajuster l'échelle de la vue pour qu'elle ne dépasse PAS la moitié de la hauteur Dim Ratio As Double = (oSheet.Height / 4) / FrontView.Height Dim ViewScaleFrontView As Double = CalculateScale(Ratio) FrontView.ScaleString = ViewScaleFrontView.ToString FrontView.Name = FrontView.Name.Replace("1", "FRONT VIEW") TopView.Name = TopView.Name.Replace("2", "TOP VIEW") '***Création d'un point 2d pour centrée le texte de la côte Dim oPoint1 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(((FrontView.Center.X) + FrontView.Height * 0.8), (FrontView.Center.Y)) '*** Création des intentions de géométries selon les faces nommées déjà récupérées Dim oCurve1 As DrawingCurvesEnumerator oCurve1 = FrontView.DrawingCurves(oFaceProxy1) Dim finalCurve1 As DrawingCurve finalCurve1 = oCurve1.Item(1) Dim oMidPoint1 As Point2d = finalCurve1.CenterPoint Dim oIntent1 As GeometryIntent = oSheet.CreateGeometryIntent(finalCurve1, oMidPoint1) Dim oCurve2 As DrawingCurvesEnumerator oCurve2 = FrontView.DrawingCurves(oFaceProxy2) Dim finalCurve2 As DrawingCurve finalCurve2 = oCurve2.Item(1) Dim oMidPoint2 As Point2d = finalCurve2.CenterPoint Dim oIntent2 As GeometryIntent = oSheet.CreateGeometryIntent(finalCurve2, oMidPoint2) '*** Création de la côte selon les géometries d'intention et le point 2D Dim genDims = oSheet.DrawingDimensions.GeneralDimensions Dim linDim1 = genDims.AddLinear(oPoint1, oIntent1, oIntent2) End Sub

Re: iLogic - Création de côte automatique

vpeuvion — Fri, 16 Dec 2022 07:47:58 GMT

Bonjour @alysonrssl . J'ai testé de mon côté et j'ai le même comportement. Je pense que cela vient du "ByRef Result As Object"

J'ai remplacé cette ligne de code par 3 lignes et ajouté = Nothing dans la déclaration des FaceProxy.

Avec ces modifications, ça fonctionne de mon côté.

	Dim oFaceProxy1 As FaceProxy = Nothing
	Dim oFaceProxy2 As FaceProxy = Nothing
		
	For Each oComponent As ComponentOccurrence In oLeafOccs
		 If oComponent.Name = "Pièce1:1" Then
			 Dim oDoc As PartDocument = CType(oComponent.Definition.Document,PartDocument)
			 Dim oNamedEntities As NamedEntities = iLogicVb.Automation.GetNamedEntities(CType(oDoc,Document))
			 Dim oFace1 As Face = CType(oNamedEntities.FindEntity("FaceCarree"), Face)
			 Dim oObjet As Object = Nothing
			 Call oComponent.CreateGeometryProxy(oFace1, oObjet)
			 oFaceProxy1  = TryCast(oObjet,FaceProxy)
			 		 
'			 Call oComponent.CreateGeometryProxy(oFace1, CType(oFaceProxy1,FaceProxy))
		 End If
	 Next 
	For Each oComponent As ComponentOccurrence In oLeafOccs
		 If oComponent.Name = "Pièce2:1" Then
			 Dim oDoc As PartDocument = CType(oComponent.Definition.Document,PartDocument)
			 Dim oNamedEntities = iLogicVb.Automation.GetNamedEntities(CType(oDoc,Document))
			 Dim oFace2 As Face = CType(oNamedEntities.FindEntity("FaceRonde"), Face)
			 Dim oObjet2 As Object = Nothing
			 Call oComponent.CreateGeometryProxy(oFace2, oObjet2)
			 oFaceProxy2  = TryCast(oObjet2,FaceProxy)
			 
			 'Call oComponent.CreateGeometryProxy(oFace2, CType(oFaceProxy2,FaceProxy))
		 End If
	Next

Si tu peux tester et me dire si ça fonctionne aussi pour toi.

Vincent.

Re: iLogic - Création de côte automatique

alysonrssl — Tue, 20 Dec 2022 13:05:00 GMT

Bonjour @vpeuvion ,

Je viens de tester ça fonctionne,

Merci beaucoup pour ton temps !