Geachte,
Bij het invoegen van een afbeelding word altijd de breedte op 1 unit gezet terwijl dit vb 256 cm moet zijn.
Nu kan ik dit manueel of met herschalen rechtzetten, maar ik ben een vba loop aan het maken om diverse tif in te voegen, op te delen in A3 en dan dit voor een andere tif uit de reeks te doen.
Via de help documentatie ban ik bij de variable insunits terecht gekomen, maar deze is read only.
Ook het veranderen van de units in autocad zelf help niet echt.
Weet iemand hoe ik autocad zover krijg om de tif in schaal 1:1 in te voegen?
Alvast bedankt.
Patrick
Hallo,
Voorlopig werk ik rond het probleem met volgende code:
Sub ImportTiff()
Dim InsertionPoint(0 To 2) As Double
Dim ImageName As String
Dim ImageScale1 As Double
Dim ImageRotation As Double
Dim ImageObj As AcadRasterImage
Dim ImageScale2 As Double
Dim ImageScale2Factor As Double
InsertionPoint(0) = 0
InsertionPoint(1) = 0
InsertionPoint(2) = 0
ImageName = "C:\Users\Van De Pol\Pictures\afbeelding suikerbonen.jpg"
ImageScale1 = 1
ImageRotation = 0
Set ImageObj = ThisDrawing.ModelSpace.AddRaster(ImageName, InsertionPoint, ImageScale1, ImageRotation)
ImageScale2Factor = ImageObj.ScaleFactor
ImageScale2 = 1 / ImageScale2Factor
ImageObj.ScaleEntity InsertionPoint, ImageScale2
End Sub
Nu ben ik ervan overtuigd dat hier een simpelere oplossing voor is, als iemand deze weet kun je deze altijd posten.
Alvast Bedankt
Patrick