Witam
Szukam sposobu, aby umieścić pieczątkę podczas generowania naszych planów w formacie PDF, ale z danymi specyficznymi dla każdej konwersji.
Oznacza to, że chcę mieć możliwość wypełnienia pola tekstem lub cyfrą i że stempel zawiera te informacje.
Czy ktoś kiedykolwiek to robił?
Witam;
Jeśli chcesz, aby ten stempel był wyświetlany tylko w plikach PDF, widzę tylko makro, aby to zrobić. (Na razie nie mam w zanadrzu tego typu makro, ale nie wydaje się to zbyt skomplikowane do wykonania).
W przeciwnym razie, przechodząc przez Adnotacje połączone z właściwością lub za pomocą bloku, jest to możliwe, ale Stempel będzie widoczny w Solidworks i wszystkich Twoich konwersjach. (Plik pdf; Plik DWG; dxf...) (chyba, że wykluczymy jakiś konkretny policzek, w którym ta adnotacja się znajdzie...)
Dziękuję za odpowiedź,
Nie jestem przyzwyczajony do makr i przyznam, że nie wiem, jak to zrobić. Postaram się tego dowiedzieć.
Możesz to zrobić za pomocą makra, jak @MacLane właśnie wyjaśniono.
Oto przykład dodania adnotacji z makra, pozostanie ona do wyeksportowania w formacie pdf, przykład, który łatwo znajdziesz za pomocą wyszukiwania.
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
Innym rozwiązaniem jest rzeczywiście zmiana właściciela @Maclane.
Aby to zrobić, najprostszym sposobem jest utworzenie pustej właściwości na mapie bazowej, którą zmodyfikujesz za pomocą Integracji (narzędzia Visiativ, do którego masz dostęp w ramach subskrypcji Mycadservice) zgodnie z możliwą regułą i za pomocą którego możesz również eksportować w formacie pdf i to bez znajomości języka VBA makr.
Co więcej, to uruchomienie można wykonać z listy plików
Pomoc w integracji:
https://help.visiativ.com/mycadtools/2020/fr/Integration.html
Witam
Czy pliki PDF są generowane przez zadanie EPDM?
Jeśli tak, w narzędziu dostępna jest opcja dodania bufora
Witam, dziękuję za dodatkowe informacje.
Pierre S, tak, są generowane za pomocą bejcy i tak, możesz dodać stempel, ale musiałby on być konfigurowalny zgodnie z potrzebami.