Vue de dessin
Salut @Sébastien_G
A ma connaissance, ces options sont effectivement décochées par défaut. Et je ne pense pas que l'on puisse modifier cela...
Une alternative consiste à utiliser iLogic avec le code dans le lien de la solution ci-dessous :
Et la commande à ajouter pour les arêtes tangentes :
oDV.DisplayThreadFeatures = True
Thomas
Mechanical Designer / Inventor Professional 2025
Je me suis trompé dans mon copier/coller pour la commande des arêtes tangentes. 
Voici le code complet :
SyntaxEditor Code Snippet
Dim oApp As Application Dim oDD As DrawingDocument Dim oSht As Sheet Dim oDV As DrawingView oApp = ThisApplication oDD = oApp.ActiveDocument For Each oSht In oDD.Sheets For Each oDV In oSht.DrawingViews oDV.DisplayThreadFeatures = True oDV.DisplayTangentEdges = True Next Next
Colle le dans une règle dans un dessin, et exécute le.
Thomas
Mechanical Designer / Inventor Professional 2025
Oui bien sûr. Il faut pour cela ajouter un évènement déclencheur. (Onglet Gérer/iLogic/Évènement déclencheur)
Ensuite 2 possibilités :
Soit tu insères cette règle dans ton gabarit de dessin avec son évènement déclencheur, et ainsi à chaque nouveau document, cette règle s'activera selon l'évènement.
Soit tu créés une règle externe, et tu ajoutes l'évènement déclencheur dans ton gabarit de dessin. Mais tu pourras également ajouter cette règle rapidement sur tes anciens dessins.
Thomas
Mechanical Designer / Inventor Professional 2025
Voici ce que j'ai créé
Mais la règle ne s'exécute pas à la création de mon document ??
Vois tu pourquoi ??
La règle s'exécute dès que le document est créé. Il n'y a donc pas encore de vue de dessin...
Je pense qu'il faut régler sur "Avant l'enregistrement du document" ou "Modification de la vue de dessin"
Pour vérifier que la règle s'exécute bien, tu peux ajouter temporairement au début ou à la fin du code une boîte de message :
SyntaxEditor Code Snippet
MessageBox.Show("Message", "Title")
Thomas
Mechanical Designer / Inventor Professional 2025
J'ai appliqué la règle à l'évènement "Avant l'enregistrement du document" et cela donne ce que je souhaite.
Cependant j'aurais souhaité que la règle s'applique à l'évènement "Nouveau document"
Même s'il n'y a pas de vue la règle ne peux pas s'appliquer au nouveau document ???
Par contre ta dernière ligne de commande me génère une erreur syntaxe !!!
Le message indique que c'est la ligne 2 qui produit l'erreur.
Le créateur du code l'avait formulé comme ça, je ne sais pas pourquoi il a utilisé oApp...
Cette formulation devrait mieux fonctionner :
SyntaxEditor Code Snippet
Dim oDD As DrawingDocument Dim oSht As Sheet Dim oDV As DrawingView oDD = ThisDrawing.Document For Each oSht In oDD.Sheets For Each oDV In oSht.DrawingViews oDV.DisplayThreadFeatures = True oDV.DisplayTangentEdges = True Next Next
Tu peux affecter l'évènement déclencheur à "Nouveau document", la règle va bien se déclencher, mais comme il n'y a pas de vue, rien ne va se passer. J'ai vérifier l'évènement "Modification de la vue", et je n'arrive pas à le déclencher...Donc pour moi, seul l'évènement "Avant d'enregistrer" fonctionnera.
Thomas
Mechanical Designer / Inventor Professional 2025
Pas de quoi, bonne continuation à toi 
Thomas
Mechanical Designer / Inventor Professional 2025
Excuse-moi Thomas mais c'était trop beau
Le programme fonctionne bien au debut mais lorsque je sauvegarde mes mises en plan, j'ai un message d'erreur
As-tu une explication à ce problème ???
L'erreur provient de la ligne :
oDV.DisplayTangentEdges = True
Qui renvoie donc l'erreur sur une de tes vues.
Vérifie tes vues, est il impossible, sur l'une d'entre elles, de cocher la case "Arêtes tangentes" ?
En programmation, le plus dur est de prévoir les exceptions...
Si c'est bien le cas, voici un code à jour pour éviter ce désagrément.
SyntaxEditor Code Snippet
Dim oDD As DrawingDocument Dim oSht As Sheet Dim oDV As DrawingView oDD = ThisDrawing.Document For Each oSht In oDD.Sheets For Each oDV In oSht.DrawingViews oDV.DisplayThreadFeatures = True Try oDV.DisplayTangentEdges = True Catch End Try Next Next
Je ne pense pas qu'il peut y avoir de problème avec l'affichage des filetages.
Thomas
Mechanical Designer / Inventor Professional 2025
Bonjour Thomas,
Je reviens d’embêter. Je me suis aperçu d’un petit problème au niveau du programme.
Il se déclenche à chaque enregistrement.
Le problème, c’est que sur certaines vues, je décoche volontairement l’une ou l’autre voir les deux options "Fonction de filetage" et "Arêtes tangentes"
Peut-on inclure au code une commande qui dirai de ne pas appliquer le programme aux vues dont la case « Style – Vue de base » n’est pas cochée ??? (Voir image).
Désolé de te déranger dès le lundi matin.
Salut @Sébastien_G
Voici le code, en vérifiant cette option, j'ai aussi ajouté des commentaires pour mieux comprendre
Dim oDD As DrawingDocument
Dim oSht As Sheet
Dim oDV As DrawingView
oDD = ThisDrawing.Document
'Pour chaque feuille du dessin
For Each oSht In oDD.Sheets
'Pour chaque vue de la feuille
For Each oDV In oSht.DrawingViews
'Si le style vue de base est coché
If oDV.ViewStyle = kFromBaseDrawingViewStyle Then
'Active l'option filetage
oDV.DisplayThreadFeatures = True
'Essaie d'activer l'option arêtes tangentes
Try
oDV.DisplayTangentEdges = True
Catch
'Erreur, il n'est pas possible de l'activer sur cette vue
End Try
Else
'Le style vue de base n'est pas coché
End If
Next
Next
Thomas
Mechanical Designer / Inventor Professional 2025
Oui c'est possible.
Le code ne s'applique toujours pas aux vues dont la case "Style - Vue de base" est décochée.
SyntaxEditor Code Snippet
Dim oDD As DrawingDocument Dim oSht As Sheet Dim oDV As DrawingView oDD = ThisDrawing.Document 'Pour chaque feuille du dessin For Each oSht In oDD.Sheets 'Pour chaque vue de la feuille For Each oDV In oSht.DrawingViews 'Si le style vue de base est coché, ou si c'est une vue de base If oDV.ViewStyle = kFromBaseDrawingViewStyle Or oDV.ViewType = kStandardDrawingViewType Then 'Active l'option filetage oDV.DisplayThreadFeatures = True 'Essaie d'activer l'option arêtes tangentes Try oDV.DisplayTangentEdges = True Catch 'Erreur, il n'est pas possible de l'activer sur cette vue End Try Else 'Le style vue de base n'est pas coché End If Next Next
Thomas
Mechanical Designer / Inventor Professional 2025
