Suppression d’une primitive en fonction de l’arrangement actif

Il n’y a pas de moyen pour l’instant en NX10 de vérifier le nom de l’arrangement actif.

Le journal ci-dessous permet donc de créer une expression avec le nom de l’arrangement actif.


 

Option Strict On
Imports System
Imports NXOpen

Module Active_Arrangement_Expression
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim Exp_title As String = « Active_arrangement »
Dim Arr_name As String = workPart.ComponentAssembly.ActiveArrangement.Name.ToString
Dim new_exp As String = exp_title & « = » » » & Arr_name & «  » » »
Dim edit_exp As String = «  » » » & Arr_name & «  » » »

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, « Arrangement_Expression »)

Dim expression1 As Expression
Dim nErrs1 As Integer

Try
‘ Create the expression if it does not already exist
expression1 = workPart.Expressions.CreateExpression(« String », new_exp)
nErrs1 = theSession.UpdateManager.DoUpdate(markId1)
Catch Ex As Exception
‘ Modify the existing expression
expression1 = CType(workPart.Expressions.FindObject(Exp_title), Expression)
Dim nullUnit As Unit = Nothing
workPart.Expressions.EditWithUnits(expression1, nullUnit, edit_exp)
nErrs1 = theSession.UpdateManager.DoUpdate(markId1)
End Try

End Sub
End Module


 

Voici un exemple d’utilisation. Attention, il est bien sur nécessaire de relancer le programme après chaque changement d’arrangement

suppress_feature_in_arrangement

Ce contenu est restreint aux membres. Si vous êtes un utilisateur enregistré, connectez vous. Les nouveaux utilisateurs peuvent s’enregistrer ci-dessous. Remarque importante: Votre demande de connexion sera vérifiée par mes soins (Validité de l'adresse mail, nom de société et numéro de téléphone)

Connexion pour les Utilisateurs enregistrés
   
Nouvel utilisateur ?
*Champ requis
This entry was posted in AUTRES and tagged , . Bookmark the permalink.

Comments are closed.