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

Répondre
Avatar du membre
olaio
Lieutenant
Lieutenant
Messages : 281
Enregistré le : 05 déc. 2007, 17:25
Réponses : 14

Changer un parametre

Message non lu par olaio »

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 du membre
JuP
Général de brigade
Général de brigade
Messages : 6866
Enregistré le : 18 févr. 2013, 10:26
Réponses : 142
Version TopSolid : 7.17
Module TopSolid : TopSolid'Steel
Localisation : Lyon (France)

Re: Changer un parametre

Message non lu par JuP »

Bonjour,
Oui c'est possible, je l'ai jamais fait en V6 désolé ...
Julien POIROT
Responsable produit TopSolid'Steel
Youtube (tuto etc)
GrabCad
Groupe Facebook TopSolid'Steel

Postez ici vos idées!:
TopSolid'Steel
TopSolid'Design
Avatar du membre
Marceau
Adjudant-chef
Adjudant-chef
Messages : 122
Enregistré le : 18 nov. 2008, 13:39
Version TopSolid : 7.17
Module TopSolid : TopSolid'Design
Localisation : Mazamet
Contact :

Re: Changer un parametre

Message non lu par Marceau »

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 du membre
olaio
Lieutenant
Lieutenant
Messages : 281
Enregistré le : 05 déc. 2007, 17:25
Réponses : 14

Re: Changer un parametre

Message non lu par olaio »

Merci Marceau,
je vais essayer!
Pellan
Seconde Classe
Seconde Classe
Messages : 5
Enregistré le : 10 juil. 2013, 14:41
Version TopSolid : 6.12
Module TopSolid : TopSolid'SheetMetal

Re: Changer un parametre

Message non lu par Pellan »

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