| |
| 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: nur ATT drehn (947 mal gelesen)
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 23. Jun. 2006 07:30 <-- editieren / zitieren --> Unities abgeben:
Hallo Lispler Ich kann mit folgenden Code, den Winkel der Att auslesen. (setq attTEXT(cdr(assoc 50(entget (car (nentsel "\nAttribut wählen: ")))))) (setq Winkel (angtos attText)) kommt "180" nun möchte ich den Winkel auf 0 Grad ändern. Bitte um Hilfe ------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 23. Jun. 2006 07:44 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
Hallo Heinz, Du mußt nicht erst in Grad konvertieren, bleib doch bei der Einheit, die Dir aus dem GC 50 zurückgegeben wird: RAD Um das Attribut um 180 Grad zu drehen, mußt Du nur PI auf den Wert von GC 50 zu addieren (Beispiel). Du kannst aber auch die 0.0 mit (subst (cons 50 0.0) (assoc 50 ... ) direkt zuweisen. Code:
(defun c:test (/ obj) (entmod (subst (cons 50 (+ (cdr (assoc 50 (entget (setq obj (car (nentsel "\nAttribut wählen: ")))))) pi)) (assoc 50 (entget obj)) (entget obj))) (entupd obj))
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 23. Jun. 2006 07:56 <-- editieren / zitieren --> Unities abgeben:
Hallo Jörn Danke dir funkt super, nur wenn der Block mal gespiegelt ist geht das nicht so einfach mit dreh. Dann dreht er mit das ATT zwar aber der Text steht dann Speigelverkehrt da, und da weis ich nicht wie ich das Drehn soll.
------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 23. Jun. 2006 08:14 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 23. Jun. 2006 08:27 <-- editieren / zitieren --> Unities abgeben:
|
wgr1 Mitglied Lichttechniker
Beiträge: 1 Registriert: 16.04.2008
|
erstellt am: 16. Apr. 2008 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
Hallo, ich habe hier dankenswerter weise einen guten Anhaltspunkt für mich gefunden. In meiner Aufgabenstellung soll ich den Attext aller blöcke in der Zeichnung dann drehen, wenn der Blockwinkel ausserhalb von 0-90 Grad liegt - und zwar 180 Grad weniger, als der Block eingefügt ist. Ich schaffe es nicht, den Blockwert auszulesen, weil ich mit dem Code von Jörn den Wert zB 132"132" bekomme. (defun c:blockwinkel (/ winkel attext) (setq attTEXT(cdr(assoc 50(entget (car (nentsel "\Block wählen: ")))))) (setq Winkel (angtos attText 0)) (princ "\nBlockwinkel: ") (princ Winkel) ) Was lese ich hier falsch aus? AUnit ist auf 0.
------------------ ______________________ was wäre das Leben, ohne fremder Hilfe? Dank an Alle! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 16. Apr. 2008 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
(defun c:blockwinkel (/ winkel attext) (if(setq WINKEL(cdr(assoc 50(entget (car (entsel "\Blockreferenz wählen: ")))))) (progn (princ "\nBlockwinkel: ") (princ (* Winkel 57.29577951)) (princ) ) ) ) ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |