CADsite forum

Er is een nieuw UCS gemaakt.
Vanuit VBA Insert ik hierin een Block op de oorsprong.
Met "ThisDrawing.SendCommand "-insert" & vbCr & "Naam.dwg" & vbCr & "0,0,0" & vbCr & "1" & vbCr & "1" & vbCr & "0" & vbCr" gaat dat goed.
Met "Set Blokobject = ThisDrawing.ModelSpace.InsertBlock(oorsprongpnt, "Naam.dwg", 1, 1, 1, 0)" gaat het fout, de orientatie (richting) klopt niet. Volgens mij moeten de twee opdrachten hetzelfde resultaat opleveren.


Wie kan me helpen ?!  Dank U Hartelijk.