Zmienianie nazwy arkusza na nazwę właściwości

2D plans Layout
1

Cze wszystkim.

Na próżno szukam rozwiązania, które powiązałoby nazwę mojego arkusza rysunkowego z istniejącą własnością osobistą.

Na próżno próbowałem nazwać to w nazwie arkusza z $PRPSHEET: " ODNIESIENIE ", ale wydaje się, że to nie działa.

Wiem, że udałoby mi się to zrobić za pomocą makra, ale gdybym mógł to zrobić bezpośrednio w moim szablonie posła do PE, uniknęłoby to dodatkowych manipulacji w posłowi do PE.

Czy komuś z Was udało się to rozwiązać.

Z góry dziękuję.

A. Mendes

2

Witam, nie sądzę, żeby to było możliwe bezpośrednio...
Czekając na kolejną odpowiedź, oto makro, od którego warto zacząć:
(Zebrane z forum Solidworks)

' Written by: Deepak Gupta (http://gupta9665.wordpress.com/)

' ------------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.ModelDoc2
Dim swSheet As SldWorks.Sheet
Dim swModelview2 As Configuration
Dim ConfigName As String
Dim vSheets As Variant
Dim swView As SldWorks.View
Dim ConfigProperty As String
Dim i As Integer

Sub main()

Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc

' Is a drawing document active?

If swDraw Is Nothing Then
    swApp.SendMsgToUser2 "A drawing document must be open and the active document.", swMbWarning, swMbOk

    Exit Sub

End If

' Is it a drawing document?

If swDraw.GetType <> SwConst.swDocDRAWING Then
    swApp.SendMsgToUser2 "A drawing document must be open and the active document.", swMbWarning, swMbOk

    Exit Sub

End If

    vSheets = swDraw.GetSheetNames

        For i = 1 To swDraw.GetSheetCount

        swDraw.ActivateSheet vSheets(i - 1)

Set swSheet = swDraw.GetCurrentSheet
Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
Set swModel = swView.ReferencedDocument

ConfigName = swView.ReferencedConfiguration

' Replace Kod with the required configuration property.

ConfigProperty = swModel.CustomInfo2(ConfigName, "Kod")

swSheet.SetName ConfigProperty

Next i

Set swModel = Nothing

swDraw.EditRebuild3
swDraw.Save2 False    

End Sub

Pozdrowienia

1 polubienie
3

Witam

Proponuję kliknąć na :+1:t2: ten pomysł na ulepszenie:
Zezwalaj na łączenie nazw arkuszy z właściwościami niestandardowymi (3ds.com)

1 polubienie
4

Tyle razy złamałem nos przy tego rodzaju żądaniu API...
Nigdy nie udało się dołączyć makra do typu pliku.

W przeciwnym razie w tym poście można normalnie znaleźć wskazówki ...

Ale uważam, że te makra są bardziej złożone, nigdy nie udało mi się ich umieścić :frowning: