Récupérer une propriété personnalisée

vos questions concernant les API SolidWorks

Récupérer une propriété personnalisée

Messagepar brvince » Mer 20 Juin 2012, 14:40

Bonjour,

J'aimerai récupérer en vba une propriété personnalisée.
C'est l'indice de mon plan, par exemple "A" , si ma propriété est $PRP:"Indice"

Comment avoir cette propriété en vba qui me renvoi cet indice "A"


Merci
Avatar de l’utilisateur
brvince
Padawan SolidWorks
 
Messages: 102
Inscription: Mar 22 Sep 2009, 13:54
Localisation: SW 2010 SP2.1

Messagepar sriballet » Mer 20 Juin 2012, 14:51

Salut,

Voici un bout de code que j'avais fait pour obtenir la propriété personnalisée "Indice" de la pièce sélectionnée dans un assemblage :

Code: Tout sélectionner
Dim swPart As SldWorks.Component2
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Set swModel = swApp.ActiveDoc
Set selMgr = swModel.SelectionManager
Set swPart = selMgr.GetSelectedObjectsComponent(1)

msgbox swPart.GetModelDoc.GetCustomInfoValue("", "Indice")
sriballet
Ewok SolidWorks
 
Messages: 22
Inscription: Jeu 03 Mar 2011, 11:20

Messagepar brvince » Mer 20 Juin 2012, 15:03

Je me suis contenté de ça :

Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc

MsgBox swModel.GetCustomInfoValue("Indice")



C'était si simple ... merci beaucoup
Avatar de l’utilisateur
brvince
Padawan SolidWorks
 
Messages: 102
Inscription: Mar 22 Sep 2009, 13:54
Localisation: SW 2010 SP2.1

Messagepar brvince » Jeu 21 Juin 2012, 10:05

Rien à voir mais...

Mon Inpubox n'est pas toujours au premier plan, comment la forcer ?
Avatar de l’utilisateur
brvince
Padawan SolidWorks
 
Messages: 102
Inscription: Mar 22 Sep 2009, 13:54
Localisation: SW 2010 SP2.1

Messagepar Annwn » Jeu 21 Juin 2012, 11:41

le code de sriballet marche en sélectionnant auparavant un composant dans un assemblage ; alors que le tien fonctionne pour une pièce ouverte seule :wink:

brvince a écrit:Rien à voir mais...

Mon Inpubox n'est pas toujours au premier plan, comment la forcer ?
Tu es en Windows 7 ?
Programmer, c'est bien; programmer utile, c'est mieux........
Venez faire un tour ici !
Annwn
Site Admin
 
Messages: 4938
Inscription: Lun 18 Déc 2006, 22:35

Messagepar brvince » Jeu 21 Juin 2012, 12:12

Oui Windows 7.
Et moi c'est sur une mise en plan
Avatar de l’utilisateur
brvince
Padawan SolidWorks
 
Messages: 102
Inscription: Mar 22 Sep 2009, 13:54
Localisation: SW 2010 SP2.1

Messagepar Annwn » Ven 22 Juin 2012, 11:07

On a déjà remarqué ce problème mais on ne sait pas le résoudre il faut faire un alt + tab après avoir lancé ta macro :(
Programmer, c'est bien; programmer utile, c'est mieux........
Venez faire un tour ici !
Annwn
Site Admin
 
Messages: 4938
Inscription: Lun 18 Déc 2006, 22:35

Messagepar TauLieR » Jeu 09 Aoû 2012, 8:22

Bonjour,

Je suis nouveau sur le forum. Je m'inscrit afin de pouvoir participer et recevoir des conseils.

En tombant sur ce post, je me suis dit qu'un userform avec un label pour vous renvoyer la valeur de la "version.révision" pourrait peut-être solutionner votre problème.

Certes cela rajouter du code et un peu de "création"... mais cela pourrait vous aider et ainsi éviter le fameux Alt+Tab.

N'étant pas sous windows7 je n'ai pu tester cette solution avant de la proposer.

Si l'userform se lance malgré tout en tache de fond, tu peux rajouter ceci :

Code: Tout sélectionner
Private Declare Function SetWindowPos Lib "User32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Sub UserForm_Initialize()

SetWindowPos FindWindowA("ThunderDFrame", Me.Caption), _
    -1, 0, 0, 0, 0, 3

End sub
TauLieR
Ewok SolidWorks
 
Messages: 6
Inscription: Jeu 09 Aoû 2012, 8:05


Retourner vers Questions générales sur les API

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 5 invités

banniere