Voilà j'ai un petit souci, je récupère des valeurs de la liste de pièces souder pour les envoyer dans les propriétés personnalisées. J'utilise ; "SW-Largeur du flanc de tôle@@@Sheet<1>@C000-00-MS-001.SLDPRT"
la valeur qui en est retourné est instable, elle ne suit pas le format d'unité configurer dans les propriétés du document. il tronque automatiquement les 0 de droite s'il en a, même si l'option de ne pas les supprime est bien cochée. j'ai donc pensé à une solution. via une macro aller récupérer la valeur, la transformer pour quelle sois à 3 décimales et finalement la retourner dans les propriétés personnalisées. le souci est que je suis bien capable d'aller récupérer cette valeur et de la renvoyer mais je ne sais pas comment la transformer en valeur à 3 décimales, est-ce que quelqu'un pourrait m'aider.
Merci
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim textexp As String
Dim valout As String
Dim retVal As Double
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
swCustPropMgr.Get2 "teste", textexp, valout
retVal = swCustPropMgr.Delete2("teste")
retVal = swCustPropMgr.Add2("teste", swCustomInfoText, valout)
MsgBox "teste" & " = " & valout
End Sub