Koordinatensystem wechsel (Autodesk/AutoCAD VBA)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

	PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung Meldungen abonnieren
Autor	Thema: Koordinatensystem wechsel (3109 mal gelesen)
Heron83 Mitglied Automatiker Beiträge: 11 Registriert: 22.10.2003 Auto CAD 2002, VBA, IBM 800MHz, 512MB Ram	erstellt am: 22. Okt. 2003 09:49 <-- editieren / zitieren --> Unities abgeben: Hallo Ich möchte von einem X belibiegen Koordinatensystem ins Weltkoordinatensystem wechseln. Kann mir jemand sagen wie ich das bewerkstelligen soll? Besten dank!! Kai Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
fuchsi Mitglied Programmierer c#.net Datawarehouse Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit	erstellt am: 22. Okt. 2003 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Heron83 also wie du ins Welt kommst habe ich auch nicht gefunden aber du kannst dir in der collection UserCoordinateSystems ein eigenes Weltkoordinatensystem basteln und das auf aktuell setzten Dim origin(2) As Double, XVector(2) As Double, YVector(2) As Double origin(0) = 0 origin(0) = 0 origin(0) = 0 XVector(0) = 1 XVector(1) = 0 XVector(2) = 0 YVector(0) = 0 YVector(1) = 1 YVector(2) = 0 Dim a1 As AcadUCS Set a1 = ActiveDocument.UserCoordinateSystems.Add(origin, XVector, YVector, "Welt") ActiveDocument.ActiveUCS = a1 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Acad 2011-deutsch, Express Tools 3ds Max 2010 Win 7-Professional HP Workstation Z400, 6GB GeForce GTX 470	erstellt am: 22. Okt. 2003 21:22 <-- editieren / zitieren --> Unities abgeben: Nur für Heron83 Wieso möchtest du ins WKS wechseln? In VBA gibt es ja sowieso nur WKS-Koordinaten, oder doch nicht? ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Heron83 Mitglied Automatiker Beiträge: 11 Registriert: 22.10.2003 Auto CAD 2002, VBA, IBM 800MHz, 512MB Ram	erstellt am: 29. Okt. 2003 15:04 <-- editieren / zitieren --> Unities abgeben: Ich möchte für den benutzer das Koordinatensystem so einstellen damit er die Koordinaten richtig eingeben kann! ------------------ Gruss Kai Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002 Acad 2011-deutsch, Express Tools 3ds Max 2010 Win 7-Professional HP Workstation Z400, 6GB GeForce GTX 470	erstellt am: 29. Okt. 2003 15:15 <-- editieren / zitieren --> Unities abgeben: Nur für Heron83 Wenn du Punkte in VBA abfrägst, dann erhältst du auch die WKS-Koordinaten von diesem Punkt, wenn ich mich richtig erinnere. ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Getronics Mitglied Beiträge: 74 Registriert: 28.08.2002 WIN XP Prof ACAD 2005 / 2006 / 2007 / 2008 MDT 2005 / 2006 / 2007 / 2008 AIP 9.0 / 10.0 / 11.0 / 2008 Vault 5.0 / 2008	erstellt am: 30. Okt. 2003 09:18 <-- editieren / zitieren --> Unities abgeben: Nur für Heron83 Zitat: Original erstellt von Heron83: Hallo Ich möchte von einem X belibiegen Koordinatensystem ins Weltkoordinatensystem wechseln. Kann mir jemand sagen wie ich das bewerkstelligen soll? Besten dank!! Kai Hallo Kai Probier mal das: Sub Demo() 'Welt-Koordinaten-System aktiv setzen ThisDrawing.ActiveUCS = ThisDrawing.UserCoordinateSystems(0) End Sub Gruss ------------------ Marco Caprez Getronics (Schweiz) AG [Diese Nachricht wurde von Getronics am 15. Jun. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)