Hallo
Ik ben op zoek naar een manier om een stempel te drukken bij het genereren van onze plannen in PDF, maar met gegevens die specifiek zijn voor elke conversie.
Dit betekent dat ik een veld wil kunnen invullen met een tekst of cijfer en dat de stempel deze informatie bevat.
Heeft iemand dit ooit gedaan?
Hallo;
Als je deze stempel alleen op PDF's wilt, zie ik alleen een macro om dit te doen. (Ik heb dit type macro op dit moment niet in petto, maar het lijkt niet al te ingewikkeld om te maken.)
Anders is het mogelijk door de annotaties te doorlopen die aan een eigenschap zijn gekoppeld, of via een blok, maar de stempel zal zichtbaar zijn in Solidworks en al uw conversies. (pdf; DWG; dxf...) (tenzij we een bepaalde klap in het gezicht uitsluiten waarin deze annotatie te vinden zal zijn...)
Dank u voor uw antwoord,
Ik ben niet gewend aan macro's en ik geef toe dat ik niet weet hoe ik het moet doen. Ik zal proberen erachter te komen.
U kunt het per macro doen, zoals @MacLane u zojuist hebt uitgelegd.
Hier is een voorbeeld van het toevoegen van annotatie vanuit de macro, het blijft te exporteren in pdf, voorbeeld dat u gemakkelijk kunt vinden via een zoekopdracht.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swSketchBlockDef As SldWorks.SketchBlockDefinition
Dim swBlockInst As SldWorks.SketchBlockInstance
Dim swSketchMgr As SldWorks.SketchManager
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSheet As SldWorks.Sheet
Dim mySheet As SldWorks.Sheet
Dim paperSize As swDwgPaperSizes_e
Dim myBlockDefinition As Object
Dim vSheetNames As Variant
Dim bRet As Boolean
Dim i As Long
Dim swMathUtil As SldWorks.MathUtility
Dim swMathPoint As SldWorks.MathPoint
Dim width As Double
Dim height As Double
Dim nPt(2) As Double
Dim vPt As Variant
Dim posX As Double
Dim posY As Double
Dim nomDuBloc As String
Dim swTextFormat As SldWorks.TextFormat
Public X As Double
Public Y As Double
Public str As String
Sub contactAlimentaire()
'On appelle la procédure et on place le texte comme argument
coordonnéeXY "Contact Alimentaire"
End Sub
Sub traçabilitéNuance()
'On appelle la procédure et on place le texte comme argument
coordonnéeXY "Traçabilité Nuance"
End Sub
Sub traçabilitéNuanceEtContactAlimentaire()
'On appelle la procédure et on place le texte comme argument
coordonnéeXY "Traçabilité Nuance" + Chr(10) + "Contact Alimentaire"
End Sub
Sub coordonnéeXY(str As String)
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swSheet = swDraw.GetCurrentSheet
vSheetNames = swDraw.GetSheetNames
For i = 0 To UBound(vSheetNames)
posX = 0.065 'modifier ici le décalage en X par rapport à l'angle en haut à gauche
posY = 0.015 'modifier ici le décalage en Y par rapport à l'angle en haut à gauche
swDraw.ActivateSheet (vSheetNames(i))
Set mySheet = swDraw.GetCurrentSheet
paperSize = mySheet.GetSize(width, height)
posX = width - posX
posY = height - posY
insertionNote swModel, posX, posY, str
swDraw.GraphicsRedraw2
Next i
swDraw.ActivateSheet (swSheet.GetName)
End Sub
Sub insertionNote(swModel As ModelDoc2, X As Double, Y As Double, monBloc As String)
Dim myNote As Note
Dim myAnnotation As Annotation
Dim swTextFormat As SldWorks.TextFormat
Dim boolstatus As Boolean
Set myNote = swModel.InsertNote(monBloc)
If Not myNote Is Nothing Then
boolstatus = myNote.SetBalloon(4, 0)
Set myAnnotation = myNote.GetAnnotation()
If Not myAnnotation Is Nothing Then
boolstatus = myAnnotation.SetPosition(X, Y, 0)
Set swTextFormat = myAnnotation.GetTextFormat(1)
swTextFormat.CharHeight = 0.004
swTextFormat.Bold = True
swTextFormat.Italic = True
boolstatus = myAnnotation.SetTextFormat(1, False, swTextFormat)
End If
End If
ListeCalque swDraw, myAnnotation
End Sub
Sub ListeCalque(swModel As DrawingDoc, myAnnotation As Annotation)
Dim swLayerMgr As SldWorks.LayerMgr
Dim vLayerArr As Variant
Dim vLayer As Variant
Dim swLayer As SldWorks.Layer
Dim noteLayer As Integer
Dim layerExist As Boolean
Set swLayerMgr = swModel.GetLayerManager
vLayerArr = swLayerMgr.GetLayerList
For Each vLayer In vLayerArr
Set swLayer = swLayerMgr.GetLayer(vLayer)
If swLayer.Name = "NotesRouge" Then
layerExist = True
Else
layerExist = False
End If
Next
If layerExist = True Then
myAnnotation.Layer = "NotesRouge"
Else
noteLayer = swLayerMgr.AddLayer("NotesRouge", "Calque pour les notes rouge", RGB(255, 0, 0), 0, 0)
myAnnotation.Layer = "NotesRouge"
End If
End Sub
Een andere oplossing is inderdaad een verandering van eigendom @Maclane.
Om dit te doen, is de gemakkelijkste manier voor u om een lege eigenschap in uw basiskaart aan te maken die u gaat wijzigen met Integration (Visiatv-hulpprogramma waartoe u toegang heeft via uw Mycadservice-abonnement) volgens een mogelijke regel en waarmee u ook in pdf kunt exporteren en dit zonder enige kennis van vba taal of macro's.
Bovendien kan deze lancering worden gedaan vanuit een bestandslijst
Hulp bij integratie:
https://help.visiativ.com/mycadtools/2020/fr/Integration.html
Hallo
Worden uw PDF's gegenereerd door een EPDM-taak?
Zo ja, dan is er een optie in het hulpprogramma om een buffer toe te voegen
Hallo, bedankt voor uw aanvullende informatie.
Pierre S, ja, ze worden gegenereerd via een vlek en ja, je kunt een stempel toevoegen, maar het zou naar wens configureerbaar moeten zijn.