| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: nur ATT drehn (882 mal gelesen)
|
Dober Heinz
Mitglied
Technischer Zeichner
   Beiträge: 1143
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: 1734
Registriert: 11.10.2004 Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<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: 1143
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: 1734
Registriert: 11.10.2004 Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>
|
erstellt am: 23. Jun. 2006 08:14 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
|
Dober Heinz
Mitglied
Technischer Zeichner
Beiträge: 1143
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 |
| | Teilprojektleiter Ingenieur TGA (m/w/d) | Vetter ist einer der weltweit führenden Pharmadienstleister für die keimfreie Abfüllung und Verpackung von Spritzen und anderen Injektionssystemen - unter anderem zur Behandlung von Krankheiten wie Multiple Sklerose, schwere rheumatische Arthritis und Krebs. Das global operierende Unternehmen unterstützt Arzneimittelhersteller von der frühen Entwicklung neuer Präparate bis zur weltweiten Marktversorgung.... | | Anzeige ansehen | Verfahrenstechnik |
|
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
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 |
Foren auf CAD.de (alle Foren)
| 
