Zastępowanie właściwości niestandardowych

Out of category
21

Witam

Aby dodać właściwość niestandardową w języku VBA:

Dim swApp As Object

Sub main()

Set swApp = Application.SldWorks

Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim cusPropMgr As SldWorks.CustomPropertyManager
Dim bret As Boolean

Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set cusPropMgr = swModelDocExt.CustomPropertyManager("")

bret = cusPropMgr.Add3("Designation4", swCustomInfoType_e.swCustomInfoText, "test Designation 4", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)

End Sub

Pozdrowienia

22

Tak więc, aby dodać właściwość, odczytaj wartość właściwości i usuń właściwość, którą możemy zrobić:

Dim swApp As Object

Sub main()

Set swApp = Application.SldWorks

Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim config As SldWorks.Configuration
Dim cusPropMgr As SldWorks.CustomPropertyManager
Dim bret As Boolean
Dim lRetVal As Long
Dim ValOut As String
Dim ResolvedValOut As String
Dim wasResolved As Boolean
Dim nNbrProps As Long
Dim vPropNames As Variant
Dim vPropTypes As Variant
Dim vPropValues As Variant
Dim resolved As Variant
Dim custPropType As Long
Dim K As Long
Dim NomProperty As String

Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set cusPropMgr = swModelDocExt.CustomPropertyManager("")

' On ajoute une propriété
bret = cusPropMgr.Add3("Designation5", swCustomInfoType_e.swCustomInfoText, "test Designation5", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)

nNbrProps = cusPropMgr.Count
vPropNames = cusPropMgr.GetNames
For K = 0 To nNbrProps - 1
    cusPropMgr.Get2 vPropNames(K), ValOut, ResolvedValOut
    custPropType = cusPropMgr.GetType2(vPropNames(K))
    ' On relève la valeur de la propriété "Designation5"
    If vPropNames(K) = "Designation5" Then
        NomProperty = ResolvedValOut
        MsgBox NomProperty
    End If
    ' On supprime la propriété "Designation5"
    If vPropNames(K) = "Designation5" Then
        cusPropMgr.Delete (vPropNames(K))
    End If
Next K

End Sub

Pozdrowienia

23

Dziękuję D. Roger za nagrodę, działa z wyjątkiem wartości właściwości, które zawierają znaki cudzysłowu na przykład " $PRP:"Nazwa pliku SW", w domyślnych ustawieniach   makra "błąd kompilacji  Oczekiwany separator listy lub )", dobrze rozumiem problem co jest napisane we właściwościach "miesza się" z kodem VB, jak powiedzieć, że znaki cudzysłowu nie Nie część kodu, ale wartości, która ma być zapisana w polu?

24

piszesz jak następująco (ze wszystkimi cudzysłowami): "$PRP:""Nazwa pliku SW"""

Pozdrowienia

1 polubienie
25

Super idealnie, wszystko działa tak, jak powinno! Będę szukał później, aby móc uruchomić amcro w serii na kilku plikach.