Ik zoek tevergeefs naar een oplossing om de naam van mijn tekenblad te koppelen aan een bestaand persoonlijk eigendom.
Ik heb tevergeefs geprobeerd het in de naam van het blad te noemen met de $PRPSHEET: " REFERENCE " maar het lijkt niet te werken.
Ik weet dat het me zou lukken om het via een macro te doen, maar als ik dit rechtstreeks in mijn MEP-sjabloon kan doen, zou het extra manipulaties in de MEP vermijden.
Is het iemand van jullie gelukt om dit op te lossen.
Hallo, ik denk niet dat het direct mogelijk is... Terwijl u wacht op een ander antwoord, is hier een macro om mee te beginnen: (Ontleend aan het Solidworks-forum)
' 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
verbeteringsidee klikt: