Citation :
Ce code permet depuis Access de créer une zone de texte dans Autocad, de l'orienter, puis l'imprimer. Au prealable, il faut Ouvrir le Document dans Autocad .... La mon code n'est pas encore assez au point..... Public AppAutocad As Object
Public VarExtMax As Variant
Public VarExtMin As Variant
Public dblHText As Double
Public dblPt(0 To 2) As Double
Public objtext As Object
Public TextAutocad As String
Set AppAutocad = GetObject(Adresse)
AppAutocad.Application.Visible = False
VarExtMax = AppAutocad.getvariable("Extmax" )
VarExtMin = AppAutocad.getvariable("Extmin" )
'Affectation de la hauteur du texte
dblHText = ((VarExtMax(0) - VarExtMin(0))) / 150
'Affectation des coordonnées X,Y,Z du point d'insertion du texte
dblPt(0) = (VarExtMax(0) + 2 * dblHText) - 195
dblPt(1) = (VarExtMin(1)) + 15
dblPt(2) = 1
TextAutocad = Now()
'Insertion du texte dans le dessin
Set objtext = AppAutocad.ModelSpace.AddText(TextAutocad, dblPt, dblHText)
'Rotation du texte de 90°
objtext.Rotation = (4 * Atn(1)) / 2
objtext.Update
'Impression en mode étendu du dessin
AppAutocad.plot.plotextents
AppAutocad.plot.PlotToDevice "Default System Printer"
AppAutocad.SaveAs ("C:\temp\print.dwg" )
AppAutocad.Application.Quit
If Dir("C:\temp\print.dwg" ) <> "" Then
Kill "C:\temp\print.dwg"
End If
Set objtext = Nothing
Set AppAutocad = Nothing
|