Blockeinfügen (Autodesk/AutoCAD VBA)

Hallo zusammen,

ich habe folgendes Problem. Ich möchte gerne per VBA einen Block einfügen, wo der User den Einfügewinkel aussuchen kann. 0°, 90°, 45° und -45°. Die funktionieren eigendlich ganz gut, bis auf der 90° Winkel. Hierraus macht AutoCAD einen 117° Winkel. Wieso? Habe ich hier irgendwas falsch gemacht?
Anbei der Code:

Public mspace As Object
Public blockref As Object
Public Dateiname As String
Public Winkel As Double

Private Sub Cancel_Click()
End
End Sub

Private Sub Einfügen_Click()
Dim xyz As Double
Dim einfüge As Variant
Dim acadapp As Object
Dim acaddoc As Object
Dim acadutil As Object
Me.Hide
Set acadapp = GetObject(, "AutoCAD.Application")
Set acaddoc = acadapp.ActiveDocument
Set acadutil = acaddoc.Utility

einfüge = acadutil.GetPoint(, "Bitte den Einfügepunkt wählen")
xyz = 1#
Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfüge, Dateiname, xyz, xyz, xyz, Winkel)
ThisDrawing.Regen acAllViewports
Me.Show
End Sub

Private Sub HorButton_Click()
Me.VerButton.Value = False
Me.DialireButton.Value = False
Me.DiareliButton.Value = False
Me.Vorschau.Picture = LoadPicture("Hor.jpg")
Winkel = 0
End Sub

Private Sub VerButton_Click()
Me.HorButton.Value = False
Me.DialireButton.Value = False
Me.DiareliButton.Value = False
Me.Vorschau.Picture = LoadPicture("Ver.jpg")
Winkel = 90
End Sub

Private Sub DialireButton_Click()
Me.HorButton.Value = False
Me.VerButton.Value = False
Me.DiareliButton.Value = False
Me.Vorschau.Picture = LoadPicture("Dialire.jpg")
Winkel = 45
End Sub

Private Sub DiareliButton_Click()
Me.HorButton.Value = False
Me.VerButton.Value = False
Me.DialireButton.Value = False
Me.Vorschau.Picture = LoadPicture("Diareli.jpg")
Winkel = -45
End Sub

Private Sub UserForm_initialize()
Dateiname = "Schliffr.dwg"
Me.HorButton.Value = True
Me.VerButton.Value = False
Me.DialireButton.Value = False
Me.DiareliButton.Value = False
Me.Vorschau.Picture = LoadPicture("Hor.jpg")
End Sub

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP