CADsite forum

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

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