Récupération de la catégorie d'un ensemble en vb

Tous sujets concernant le développement spécifique de TopSolid avec l'interface COM, le langage LIP, la programmation de l'API en VB...

Modérateurs : remi77, D@vid, Alexis GERARD

Répondre
Avatar du membre
RibatLuc
Première Classe
Première Classe
Messages : 18
Enregistré le : 12 oct. 2013, 07:32
Version TopSolid : 6.21
Module TopSolid : TopSolid'Steel

Récupération de la catégorie d'un ensemble en vb

Message non lu par RibatLuc »

Bonjour,

Quelle est sont commandes pour récupérer et éditer la valeur d'une catégorie de pièce ?

Est-il possible d'utilisé la commande TopDoc.GetProperty("xxxxxxxxxx") et TopDoc.SetProperty("xxxxxxxxx") ? ("xxxxxxxxx" => propriété de la catégory)

Merci.
Luc
Pellan
Seconde Classe
Seconde Classe
Messages : 5
Enregistré le : 10 juil. 2013, 14:41
Version TopSolid : 6.12
Module TopSolid : TopSolid'SheetMetal

Re: Récupération de la catégorie d'un ensemble en vb

Message non lu par Pellan »

Une piste:
(avec Microsoft Visual Basic 2010)

Public Class Form1

Private TopApp As TopSolid.Application
Private Topdoc As TopSolid.DocumentDesign

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
TopApp = New TopSolid.Application

Topdoc = TopApp.CurrentDocument

Dim Set_env As TopSolid.Set
Dim TopType As Long
Set_env = Topdoc.Assembly

TopType = Set_env.Type 'assembly or part


Dim valpropridessin As String

If TopType = 0 Then 'assembly

valpropridessin = Set_env.Element.GetTextProperty("dessin")

Set_env.Element.Designation = "NOUVELLE DESIGNATION DE L'ENSEMBLE"
Set_env.Element.Reference = "NOUVELLE REFERENCE DE L'ENSEMBLE"
Set_env.Element.SetTextProperty("dessin", "NOUVELLE VALEUR DE DESSIN")

ElseIf TopType = 1 Then 'part

Dim docElts As TopSolid.IElements
Dim setInv As TopSolid.Set
docElts = Topdoc.Document.Elements
setInv = docElts("$SET")
Dim nbelem As Int16
Dim askelem As TopSolid.IElement

nbelem = setInv.Elements.Count
askelem = setInv.Elements.Item(nbelem)

valpropridessin = askelem.GetTextProperty("dessin")

askelem.Designation = "NOUVELLE DESIGNATION DE LA PIECE"
askelem.Reference = "NOUVELLE REFERENCE DE LA PIECE"
askelem.SetTextProperty("dessin", "NOUVELLE VALEUR DE DESSIN")

End If

End Sub
End Class
Avatar du membre
RibatLuc
Première Classe
Première Classe
Messages : 18
Enregistré le : 12 oct. 2013, 07:32
Version TopSolid : 6.21
Module TopSolid : TopSolid'Steel

Re: Récupération de la catégorie d'un ensemble en vb

Message non lu par RibatLuc »

Merci pour la piste mais hélas impossible de récupérer le paramètre que je souhaite.

Dans la définition de l'ensemble avec TopSolid'Wood, j'arrive à récupérer les différentes informations de l'ensemble.
- Titre1
- Titre2
- Désignation
- Référence
- Fournisseur

Mais impossible d'avoir l'information ou d'éditer la Catégorie du paramètre "ZWOO_PROP_PART_CATEGORY" voir ci-dessous.
Définition d'un ensemble.PNG
Je part sur une autre piste avec pourquoi pas la création d'une propriété spécifique.
Vous n’avez pas les permissions nécessaires pour voir les fichiers joints à ce message.
Luc
Pellan
Seconde Classe
Seconde Classe
Messages : 5
Enregistré le : 10 juil. 2013, 14:41
Version TopSolid : 6.12
Module TopSolid : TopSolid'SheetMetal

Re: Récupération de la catégorie d'un ensemble en vb

Message non lu par Pellan »

Désolé mais sur V6.12 la propriété Catégorie de pièce" n'existe pas.
Utilisé dans le menu ->Attribut -> Propriétés comme capture d'ecran
Répondre