Changer un parametre

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
olaio
Adjudant-chef
Adjudant-chef
Messages : 122
Inscription : 05 déc. 2007, 17:25

Changer un parametre

Message non lu par olaio » 16 juil. 2015, 18:16

Salut,
j´aimerais savoir s'il est possible de changer la valeur d'un parametre que je connait le "@" en utilisant l'API ou le lip.
Merci,

Olaio

Avatar de l’utilisateur
JuP
Général de brigade
Général de brigade
Messages : 3221
Inscription : 18 févr. 2013, 10:26
Version TopSolid : 7.12
Module TopSolid : TopSolid'Design
Localisation : Lyon (France)

Re: Changer un parametre

Message non lu par JuP » 17 juil. 2015, 06:30

Bonjour,
Oui c'est possible, je l'ai jamais fait en V6 désolé ...

Avatar de l’utilisateur
Marceau
Adjudant-chef
Adjudant-chef
Messages : 118
Inscription : 18 nov. 2008, 13:39
Version TopSolid : 7.7
Module TopSolid : TopSolid'Design
Localisation : Mazamet
Contact :

Re: Changer un parametre

Message non lu par Marceau » 02 sept. 2015, 14:04

Bonjour tous, :D

Extrait d'un (vieux!) code V6 :

Code : Tout sélectionner

Dim Topdoc As TopSolid.DocumentDraft
Dim toptext as TopSolid.text

...
Set Toptext=Topdoc.document.elements.item("@1664") 
Toptext.String = "BLABLA"

Avatar de l’utilisateur
olaio
Adjudant-chef
Adjudant-chef
Messages : 122
Inscription : 05 déc. 2007, 17:25

Re: Changer un parametre

Message non lu par olaio » 04 sept. 2015, 16:38

Merci Marceau,
je vais essayer!

Pellan
Seconde Classe
Seconde Classe
Messages : 5
Inscription : 10 juil. 2013, 14:41
Version TopSolid : 6.12
Module TopSolid : TopSolid'SheetMetal

Re: Changer un parametre

Message non lu par Pellan » 30 oct. 2015, 15:17

pour VBA Excel:

Dim TopApp As Topsolid.Application
Dim Topdoc As TopSolid.DocumentDesign

Set TopApp = New Topsolid.Application
TopApp.ProgramUnitLenght = "mm"

Set Topdoc = TopApp.CurrentDocument

Topdoc.Document.Elements.Item("@86") .NominalValue = 1664

Répondre

Qui est en ligne ?

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