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 : D@vid, remi77, Alexis GERARD

Répondre
Avatar de l’utilisateur
RibatLuc
Seconde Classe
Seconde Classe
Messages : 9
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
Seconde Classe
Seconde Classe
Messages : 9
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 fichiers insérés à 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

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 1 invité