---

Hallo zusammen,

ein Programm was unter XP noch lief, streickt nun. Zeigt bei Set ucsObj .....  Automatisierungsfehler, Systemaufruf ist fehlgeschlafen!
Für Hilfe wäre ich sehr dankbar!

Gruß, Udo

Sub Koordinaten_0_0_0()  'vor eintragung des Textes wird das Koordinatensystem auf 0,0,0 mit Winkel 0 gesetzt
 
    Dim ucsObj As AcadUCS
    Dim origin(0 To 2) As Double
    Dim xAxisPnt(0 To 2) As Double
    Dim yAxisPnt(0 To 2) As Double
    ' Define the UCS points
    origin(0) = 0: origin(1) = 0: origin(2) = 0
    xAxisPnt(0) = 1: xAxisPnt(1) = 0: xAxisPnt(2) = 0
    yAxisPnt(0) = 0: yAxisPnt(1) = 1: yAxisPnt(2) = 0
   
    Set ucsObj = ThisDrawing.UserCoordinateSystems. _
            Add(origin, xAxisPnt, yAxisPnt, "New_UCS")
   
    ThisDrawing.ActiveViewport.UCSIconAtOrigin = True
    ThisDrawing.ActiveViewport.UCSIconOn = True
 
    ThisDrawing.ActiveUCS = ucsObj
End Sub

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

---

Hi,

getestet mit:

AutoCAD 2011
Win7 x64

und läuft ohne Fehler durch. Ich hätte aber (auch wenn es eigentlich funkt) vorher geprüft, ob es ein UCS mit dem Namen 'New_UCS' schon gibt. Das wäre aber nur Kosmetik, der Code läuft auch ohne Fehler durch, wenn das UCS schon existiert.

- alfred -

------------------
www.hollaus.at