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...
Répondre
Avatar de l’utilisateur
RibatLuc
Première Classe
Première Classe
Messages : 11
Inscription : 12 oct. 2013, 07:32
Version TopSolid : 6.17
Module TopSolid : TopSolid'Wood

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

Message non lu par RibatLuc » 25 mars 2015, 14:23

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
Inscription : 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 » 26 mars 2015, 11:14

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 de l’utilisateur
RibatLuc
Première Classe
Première Classe
Messages : 11
Inscription : 12 oct. 2013, 07:32
Version TopSolid : 6.17
Module TopSolid : TopSolid'Wood

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

Message non lu par RibatLuc » 30 mars 2015, 10:18

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 ne pouvez pas consulter les pièces jointes insérées à ce message.
Luc

Pellan
Seconde Classe
Seconde Classe
Messages : 5
Inscription : 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 » 31 mars 2015, 15:50

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