| |
| 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
|
Autor
|
Thema: GC10 mit nentsel in (483 mal gelesen)
|
T. Bürger Mitglied Technischer Angestellter
Beiträge: 201 Registriert: 30.01.2001 AMD Athlon XP2000+ ATI Fire GL 8800 Maxtor 4R060J0(60GB) Windows XP-Pro. SP1 Novell 4.1 1024MB Arbeitsspeicher AutoCAD2004 Expresstools LayerManager-Pro
|
erstellt am: 10. Jul. 2003 13:01 <-- editieren / zitieren --> Unities abgeben:
Hallo Ihr Wissenden, Ich habe da ein Problem mit dem GC10 (Kreis) ermittelt mit nentsel in einem "INSERT". Kann es sein das man die Koordinaten nur bezogen auf den Basispunkt des "INSERT" bekommt und nicht bezogen auf das aktuelle WKS oder BKS. Ich bräuchte aber die Koordinaten des aktuelle WKS oder BKS, aber wie ??? Hat einer von Euch eine Idee oder ein Beispiel wie ich an die entsprechenden Koordinaten gelange. ------------------ Grüße T. Bürger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 10. Jul. 2003 13:12 <-- editieren / zitieren --> Unities abgeben: Nur für T. Bürger
|
T. Bürger Mitglied Technischer Angestellter
Beiträge: 201 Registriert: 30.01.2001 AMD Athlon XP2000+ ATI Fire GL 8800 Maxtor 4R060J0(60GB) Windows XP-Pro. SP1 Novell 4.1 1024MB Arbeitsspeicher AutoCAD2004 Expresstools LayerManager-Pro
|
erstellt am: 10. Jul. 2003 14:08 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 10. Jul. 2003 15:07 <-- editieren / zitieren --> Unities abgeben: Nur für T. Bürger
Hallo T. Bürger, so schlimm ist das auch nicht. Folgende Zeilen veranschaulichen das Prinzip.
Code:
(defun c:TTT (/ pick obj masterobj zpt wie) (arxload "geomcal" (princ"geladen")) (setq pick (nentsel)) (if pick (setq obj (cdr(assoc 10 (entget(car pick)))) masterobj (cdr(assoc 10 (entget(car(last pick)))))) ) (setq zpt(mapcar '+ obj masterobj) wi (* (/ 180.0 pi)(cdr (assoc 50 (entget(car(last pick))))))) (setq zpt(cal "rot(zpt,masterobj,wi)")) (command "_.LINE" zpt) )
Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.08.2003+!+!+ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
T. Bürger Mitglied Technischer Angestellter
Beiträge: 201 Registriert: 30.01.2001 AMD Athlon XP2000+ ATI Fire GL 8800 Maxtor 4R060J0(60GB) Windows XP-Pro. SP1 Novell 4.1 1024MB Arbeitsspeicher AutoCAD2004 Expresstools LayerManager-Pro
|
erstellt am: 10. Jul. 2003 15:20 <-- editieren / zitieren --> Unities abgeben:
|