Ik probeer via addraster tif's in te voegen in mijn tekening.
Maar ik krijg telkens de volgende foutmelding file acces error,
zowel in autocad 2005, 2006 en 2007
Ik gebruik het volgende:
Dim rasterObj As AcadRasterImage
Dim var_insertionPoint(0 To 2) As Double
Dim var_scalefactor As Double
Dim var_rotationAngle As Double
Dim var_imageName As String
Set rasterObj = ThisDrawing.ModelSpace.AddRaster(var_imageName, var_insertionPoint, var_scalefactor, var_rotationangele)
De var_imageName wordt uit Excel gehaald. Maar ook als ik b.v. zet var_imageName= "plaatje.tif" krijg ik deze
fout melding. Wie kan mij helpen.
Ik heb dit toegevoegd:
var_imageName = "E:\Mijn verwisselbare bestanden\willyver.TIF"
En dit veranderd:
Set rasterObj = ThisDrawing.ModelSpace.AddRaster(var_imageName, var_insertionPoint, var_scalefactor, var_rotationangele)
Set rasterObj = ThisDrawing.ModelSpace.AddRaster(var_imageName, var_insertionPoint, var_scalefactor, var_rotationAngle)
En toen ging het bij mij wél.
Je zou dus een hade verwijzing kunnen proberen (de locatie waar het plaatje staat).
Probleem opgelost. :vreegoe:
Bedankt.
Wat is de oplossing??
Via GetOpenFilename in single file mode ga ik op zoek naar de excel-file, met daar in de
gegevens. Ik gebruik GetOpenFilename ook in andere macrootjes maar dan in multiple file
mode en dan gebruik ik dit:
Dim var_arrFls() As String
var_arrFls = Split(OFName.lpstrFile, Chr(0))
De boel wordt dan netjes op gesplitst, met op var_arrFls(0) het pad en op var_arrFls(1)
en verder de bestandsnamen. Alleen in single file mode komt er op plaats 0 het gehele
pad met bestandsnaam te staan. Dus kreeg ik pad\tegebruikenexcelfile.xls\imagenaam.tif
en dan kan het programma dus niet imagenaam.tif vinden. Probleem opgelost door
CurDir te gebruiken om het pad aan de bestandsnaam te hangen.
Klein foute waar ik lang naar gezocht heb. :oops: De meeste variabelen die gebruik bekeken,
behalve die, omdat ik er vanuit ging dat die goed was. :oops:
Maar nu werkt het. :D