SolidWorks >> Makra >> Zarządzanie zmiennymi - wyciąganie z dostosowanych właściwości.
Odpowiedz
Autor Wypowiedź
2013-09-27, 14:41
Pomógł 0 raz(y).
 Witam,

Chciałbym wyciągnąć zmienną z dostosowanych właściwości i wstawić ją do skryptu w VBA.





Dim myKolor As StringDim myMalowac As String
myKolor = "$PRPSHEET:""Kolor farby"""myMalowac = "$PRPSHEET:""Element malowany"""


Definiuje te zmienne w pliku części i jeżeli element jest malowany chciałbym, aby automatycznie się to wstawiało do rysunku części.


If (myMalowac = T) Then
Set myNote = Part.InsertNote("Malować kolor: " + "$PRPSHEET:""Kolor farby""" + Chr(13) + Chr(10))
End If


Niestety skrypt zachowuje się tak jakby zawsze było "myMalowac = N" . Tak jakby warunek if nie rozpoznawała znaków wyciągniętych z właściwości dostosowanych pliku części. Czy jest na to jakaś rada?
 
.
2013-10-01, 08:53
Pomógł 52 raz(y).
 To nie jest tak, że skrypt zachowuje się tak jakby zawsze było "myMalowac = N" tylko "myMalowac różne T" a to jest różnica.
Z tego co widzę to tym sposobem myMalowac = "" .
Właściwości dostosowane trzeba wyciągać z modelu inaczej.
Ja bym to zrobił tak:

Dim swView As SldWorks.View
Dim SpecyfikacjaPliku As String
Dim myMalowac As String
Dim swModelRysunku As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
SpecyfikacjaPliku = swView.GetReferencedModelName
Set swDraw = GetObject(SpecyfikacjaPliku)
myMalowac = swDraw.GetCustomInfoValue("", "Element malowany")
 
Odpowiedz

PSWUG

Strefa Resellera

Publikuj

Społeczność

Ankieta

Linki

RSS
BOT