---

Hallo liebe Gemeinde,
ich habe hier eine Zeichnung mit jeder Menge einzeiligem Text, der jeweils unterschiedlich gedreht ist, weil er in der Ausrichtung dem Verlauf einer Straßenkante folgt.
Jetzt soll der Plan aber plötzich "auf dem Kopf" lesbar sein, weil sich die Baukilometrierung umgekehrt hat.
Frage:
Wie kann ich möglichst in einem Arbeitsgang sämtlichen Text jeweils um 180° um den eigenen Basispunkt drehen, ohne die Einzeltexte nacheinander im Eigenschaftsfenster durchzuhecheln???
Gibts vielleicht eine Eingabeoption nach dem Motto "Platzhalter für vorhandenen Winkel+180°"im Eigenschaftsfenster oder braucht man da eine Lisp oder bin ich einfach schneeblind..? Wirkt ja irgendwie profan das Problem..!
Hat jemand eine Idee oder noch besser: eine Lösung?

Gruß Markus (P.S.: Spielt sich alles im 2007er Acad MAP ab).

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

---

du kannst alle textobjekte markieren und dann in "eigenschaftenfenster" den gewünschten winkel in spalte "drehung" eintragen

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

---

Hi,

ich habe aus dem www ein Lisp, allerdings nicht fehlerfrei. Vielleicht reicht es, ansonsten müsste die Routine angepasst werden...

Code:

---

(Defun c:ROTTEXT (/ ROT SS EN ED AS PT1 CNT)
  (setq rot (getreal "\nEnter decimal degrees to rotate: "))
  (prompt (strcat "\nSelect text to rotate " (rtos rot 2 2)" degrees: "))
  (setq ss (ssget))
  (SETQ CNT 1)
  (WHILE (> (SSLENGTH SS) 0)
    (SETQ EN (SSNAME SS 0))
    (SETQ ED (ENTGET EN))
    (SETQ AS (CDR (ASSOC '0 ED)))
    (IF (= AS "TEXT")
      (PROGN
        (SETQ PT1 (CDR (ASSOC '10 ED)))
        (COMMAND "_ROTATE" EN "" PT1 rot)
        (PROMPT (STRCAT "\n" (ITOA CNT) " TEXT ENTITIES ROTATED"))
        (SETQ CNT (1+ CNT))
        (ENTUPD EN)   
        (SSDEL EN SS)   
      )
      (PROGN
        (PRIN1)
        (SSDEL EN SS)
      )
    )
  )
)

---

Lothar

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

---

Hi,

das hier hilft vielleicht: http://www.cadmaro.de/downloads/freeware/rotator.html

Gruß
CADchup

------------------
CADmaro.de

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

---

mal auch was auf die schnelle zusammengekloppt ..

(defun C:TEXTROTATE(/ AWS W INDEX OBJ)
  (if(and(or(setq AWS (ssget "_i" '((0 . "*TEXT"))))
            (setq AWS (ssget      '((0 . "*TEXT"))))
         )
         (or(setq W (getreal "\nrelativer Drehwinkel <90.0>:"))
            (setq W 90.0)
         )
         (setq W (* W 0.017453292))
     )   
    (progn
      (setq INDEX -1)
      (repeat (sslength AWS)
        (and(setq OBJ(ssname AWS(setq INDEX(1+ INDEX))))
            (setq OBJ (entget OBJ))
            (setq OW (cdr(assoc 50 OBJ)))
            (setq W (+ OW W))
            (setq W (if (<= W (* 2 PI)) W (- W (* 2 PI))))
            (entmod(subst (cons 50 W)(assoc 50 OBJ)OBJ))
        )   
      )   
    )
  )
)

richtig schön, wäre es auch, wenn die Textausrichtung beachtet würde, also der Text um den Mittelpunkt des umschreibenden Rechteckes gedreht würde..

..wie wäre es aber , wenn du den Texten (mit Schnellauswahl ausgewählt) einen neuen Textstil zuweist , wo als Effekt "auf dem Kopf" und "Rückwärts" angehakt ist ??

------------------
          - 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

---

Edit:  , toll VIIEL zu spät... Warum kriegt man eigentlich keine Meldung wenn schon tausend Leute geantwortet haben?

Versuch dies:
;|

Code:

---

Dreht Textobjekte um deren Basispunkt um den als Argument übergebenen Wert.
Argumente:
ROTATION-IN-DEGREES = Winkel in Dezimalgrad (360 für Vollkreis)
  negative Zahl für Drehung im Uhrzeigersinn (CW)
  positive Zahl für Drehung gegen Uhrzeigersinn (CCW)

Beispiel:
(ROTATETXT 90)
(ROTATETXT -75)

Rückgabe:
Liste der gedrehten Textobjekte

|;
(defun ROTATETXT (ROTATION-IN-DEGREES / INDEX OBJ RETVAL SGET)
  (defun RADIAN->DEGREES (NBROFRADIANS)
    (* 180.0 (/ NBROFRADIANS pi))
  )
  (defun DEGREES->RADIANS (NUMBEROFDEGREES)
    (* pi (/ NUMBEROFDEGREES 180.0))
  )
  (princ "\nDrehen von Textobjekten: ")
  (if (setq SGET (ssget '((0 . "*TEXT"))))
    (progn
      (setq INDEX -1)
      (repeat (sslength SGET)
        (setq OBJ    (vlax-ename->vla-object
                       (ssname SGET (setq INDEX (1+ INDEX)))
                     )
              RETVAL (cons OBJ RETVAL)
        )
        (vla-put-rotation
          OBJ
          (+ (vla-get-rotation OBJ)
             (DEGREES->RADIANS ROTATION-IN-DEGREES)
          )
        )
      )
    )
  )
  RETVAL
)

---

...

------------------
Ciao,
Marc
   

[Diese Nachricht wurde von marc.scherer am 26. Okt. 2006 editiert.]

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

---

Noch jemand ohne?

------------------
CADmaro.de

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

---

Wahnsinn, und erst die Geschwindigkeit!!!
Besten Dank an Euch alle für Eure Mühe!!!
Auf das 180°-Umdrehen mit "Auf dem Kopf" und "Rückwärts" im Eigenschaftenfenster hätt ich echt selbst kommen können (dafür brauchts nicht mal nen anderen Textstil).
Habe gerade noch den Rotator.lsp getestet: klappt bestens.
Zum Glück hab ich so viele Texte zu drehen, dass ich alle Lösungen austesten kann  .
Nochmal vielen Dank
Markus

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

---

Zitat:

---

Original erstellt von schulze-matthes:
Wahnsinn, und erst die Geschwindigkeit!!!
Besten Dank an Euch alle für Eure Mühe!!!
Auf das 180°-Umdrehen mit "Auf dem Kopf" und "Rückwärts" im Eigenschaftenfenster hätt ich echt selbst kommen können (dafür brauchts nicht mal nen anderen Textstil).
Habe gerade noch den Rotator.lsp getestet: klappt bestens.
Zum Glück hab ich so viele Texte zu drehen, dass ich alle Lösungen austesten kann   .
Nochmal vielen Dank
Markus

---

[Zaunpfahlwinkmodus]
Dann mal flux verteilt die Helferlein-utinities
[/Zaunpfahlwinkmodus]

------------------
ralfi 

Man muss das Rad nicht neu erfinden, man muss nur wissen, wie man es dreht.
st.w.

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

---

Hallo,

ich finde den Rotator auch fein nur klappt das mit der Schnellauswahl (Filter) nicht da ich erst nach dem Befehl die Objekte auswählen muss.
Gibt es da jemanden mit einer Lösung?

Bin noch ein Greenhorn da erst kurz auf Acad (2008)umgestiegen.

Gruß

Martina

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

---

Hi Martina,
versuch mal "Vorherigen Auswahlsatz" nach Schnellauswahl und Befehlsaufruf.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hi Henning,

Danke Dir aber wie kann ich den Vorherigen Auswahlsatz aufrufen? Habe alles durchgeschaut und auch die Hilfe gibtr nix her. Bei Eingabe v oder V kommt nur Varia????

Lieber Gruß

Martina

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

---

Hallo Martina,
einfach V bei der Frage "Objekte wählen" eingeben.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo Henning,

jou es hat funktioniert  vielen Dank!!!!!!!

Lieber Gruß

Martina

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

---

Ist vielleicht auch interessant.
Befehl TextAutoDrehenEP

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

---

Hallo Roland,

wenn wir Dich nicht hätten.....Du bist ein Genie.

Lieber Gruß

Martina

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

---

Zwischenablage-1.gif

Makiere doch einfach alle Texte und gehe auf Eigenschaften und gib bei Drehung 180 ein!?

------------------
Gruß DEEPSPEED
------------------------------------------------

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

---

Vielleicht geht das mit Texten die im Winkel 0 eingesetzt sind, sonst gibt es da aber doch ein paar Probleme.
Das von mir geschriebene Tool macht da doch noch etwas mehr.
Gerade wenn man Bemaßungen von einer Zeichnung in die andere kopiert, stehen oft Texte auf dem Kopf, das sollte dann kein Problem mehr darstellen.

Zitat:

---

Original erstellt von deepspeed:
Makiere doch einfach alle Texte und gehe auf Eigenschaften und gib bei Drehung 180 ein!?

---

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

---

Zwischenablage-2.gif

Zitat:

---

Original erstellt von RoSiNiNo:
Vielleicht geht das mit Texten die im Winkel 0 eingesetzt sind, sonst gibt es da aber doch ein paar Probleme.
Das von mir geschriebene Tool macht da doch noch etwas mehr.
Gerade wenn man Bemaßungen von einer Zeichnung in die andere kopiert, stehen oft Texte auf dem Kopf, das sollte dann kein Problem mehr darstellen.

---

Da gebe ich dir Recht, ich bin von "grade" Texten ausgegangen.
Aber jetzt mal wild gesponnen.
Texte makieren und unter Eigenschaften "Auf dem Kopf" und "Rückwärts" ankreuzen, dann hat man die ihren Ursprung um 180° gedreht 

------------------
Gruß DEEPSPEED
------------------------------------------------

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

---

Ist natürlich ein Möglichkeit. Jetzt stell dir aber einmal vor du hast mehr als nur eine handvoll Texte. Viele davon sind aber richtig lesbar aber sehr viele davon müssten gedreht werden.
Was auch nicht zu vergessen ist, oft sollte sich die Textlage nicht ändern, sehr wohl aber die Drehung. Mit meinem Tool dreht sich der Text, es ändert sich die Ausrichtung und zwar nur dann wenn es notwendig ist. Und das alles auch bei Attributen in Blöcken, MTexten, Texten und Bemaßungen. MFührungen werden zwar auch gedreht, mit VBA ist die Manipulation des Textes allerdings nicht so leicht.
Es soll das Tool auch nur eine Hilfestellung sein und muss natürlich von niemandem verwendet werden, freue mich aber immer über Rückmeldungen.

Zitat:

---

Original erstellt von deepspeed:
Da gebe ich dir Recht, ich bin von "grade" Texten ausgegangen.
Aber jetzt mal wild gesponnen.
Texte makieren und unter Eigenschaften "Auf dem Kopf" und "Rückwärts" ankreuzen, dann hat man die ihren Ursprung um 180° gedreht 

---

------------------
Roland Feletic
PAUSER ZT-GMBH

Acad 2008-deutsch, Express Tools
3ds Max 2008
WinXP-Professional
HP Workstation xw4400, 3GB
Quadro FX1500

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

---

Deswegen war es ja auch wild gesponnen.
Ich bevorzuge auch die "saubere" Lösungen... 

------------------
Gruß DEEPSPEED
------------------------------------------------

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