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
Changer un parametre
Modérateurs : remi77, D@vid, Alexis GERARD
- JuP
- Général de brigade
- Messages : 6901
- Enregistré le : 18 févr. 2013, 10:26
- Version TopSolid : 7.17
- Module TopSolid : TopSolid'Steel
- Localisation : Lyon (France)
Re: Changer un parametre
Bonjour,
Oui c'est possible, je l'ai jamais fait en V6 désolé ...
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
Responsable produit TopSolid'Steel
Youtube (tuto etc)
GrabCad
Groupe Facebook TopSolid'Steel
Postez ici vos idées!:
TopSolid'Steel
TopSolid'Design
- Marceau
- 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
Bonjour tous,
Extrait d'un (vieux!) code V6 :
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"
- olaio
- Lieutenant
- Messages : 282
- Enregistré le : 05 déc. 2007, 17:25
Re: Changer un parametre
Merci Marceau,
je vais essayer!
je vais essayer!
-
- Seconde Classe
- Messages : 5
- Enregistré le : 10 juil. 2013, 14:41
- Version TopSolid : 6.12
- Module TopSolid : TopSolid'SheetMetal
Re: Changer un parametre
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
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