Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Mehrere Texte gleichzeitung um eigenen Basispunkt drehen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Mehrere Texte gleichzeitung um eigenen Basispunkt drehen (532 mal gelesen)
csfalk
Mitglied
IT-Admin / CAD-Zeichner


Sehen Sie sich das Profil von csfalk an!   Senden Sie eine Private Message an csfalk  Schreiben Sie einen Gästebucheintrag für csfalk

Beiträge: 204
Registriert: 14.06.2012

AutoCad Civil 3D 2020-20223
Autoturn
Rehm Wasserwirtschaft
Fluss
Flussplot
Cross
Graps
Hykas
Kanalplot
W10 x64

erstellt am: 24. Mrz. 2022 09:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


2022-03-24-Textdrehung.dwg

 
Hallo Gemeinde,

ich habe in einer Zeichnung mehrere Mtexte mit der Ausrichtung und Basispunkt "Mitte zentriert".

Mein Problemchen jetzt. Gibt es eine Möglichkeit alle Mtexte gleichzeitig um ihren eigenen Basispunkt um 180 Grad zu drehen?
Im Anhang eine abgespeckte Version der Zeichnung.

Vielen Dank für Eure Mühe.
LG csfalk

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

CADdog
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von CADdog an!   Senden Sie eine Private Message an CADdog  Schreiben Sie einen Gästebucheintrag für CADdog

Beiträge: 2237
Registriert: 30.04.2004

Intel Xeon 3,6 GHz
32 GB RAM
NVIDIA Quadro P2000
Windows 10 Enterprise
AutoCADmap 3D 2023
WS-Landcad 2023
QGIS 3.10

erstellt am: 24. Mrz. 2022 09:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für csfalk 10 Unities + Antwort hilfreich

Hallo,
https://ww3.cad.de/foren/ubb/Forum37/HTML/006750.shtml
.

------------------

Gruß Thomas
CADdog the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

csfalk
Mitglied
IT-Admin / CAD-Zeichner


Sehen Sie sich das Profil von csfalk an!   Senden Sie eine Private Message an csfalk  Schreiben Sie einen Gästebucheintrag für csfalk

Beiträge: 204
Registriert: 14.06.2012

AutoCad Civil 3D 2020-20223
Autoturn
Rehm Wasserwirtschaft
Fluss
Flussplot
Cross
Graps
Hykas
Kanalplot
W10 x64

erstellt am: 24. Mrz. 2022 09:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo und Grüße,

vielen Dank für Deinen Link.
ich habe mir dort den Code kopiert und in eine rot.lsp gespeichert.
Das laden der Lisp funktioniert und Autocad meldet Lisp erfolgreich geladen.
Leider kommt nach dem laden gleich eine Fehlermeldung mit der ich nichts anfangen kann. Wo habe ich einen Fehler gemacht?

Fehlermeldung in der Befehlszeile:

Enter an option [Commands/Functions/Variables/Load]: l
_.appload Rot.lsp erfolgreich geladen.
Befehl:
Befehl: ; Fehler: Überzählige rechte Klammer in Eingabe
Befehl:


Vielen Dank.

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

csfalk
Mitglied
IT-Admin / CAD-Zeichner


Sehen Sie sich das Profil von csfalk an!   Senden Sie eine Private Message an csfalk  Schreiben Sie einen Gästebucheintrag für csfalk

Beiträge: 204
Registriert: 14.06.2012

AutoCad Civil 3D 2020-20223
Autoturn
Rehm Wasserwirtschaft
Fluss
Flussplot
Cross
Graps
Hykas
Kanalplot
W10 x64

erstellt am: 24. Mrz. 2022 10:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

ich habe den Fehler gefunden. Beim copy und paste wurde nicht alles kopiert.

Vielen Dank für die Hilfe.
LG csfalk

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

Manuel486
Mitglied
Technischer Zeichner Elektro


Sehen Sie sich das Profil von Manuel486 an!   Senden Sie eine Private Message an Manuel486  Schreiben Sie einen Gästebucheintrag für Manuel486

Beiträge: 194
Registriert: 31.01.2020

erstellt am: 24. Mrz. 2022 10:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für csfalk 10 Unities + Antwort hilfreich

ROT.lsp
Code:
(defun c:rot (/ rotateval ss len c e f degrees radians)
(setq rotateval
(atoi
(getstring "\nHow many degrees rotation are required: "
)
)
)
(setq ss (ssget))
(setq len (sslength ss))
(setq c 0)
(repeat len
(setq f (entget (ssname ss c)))
(setq e (cdr (assoc '50 (entget (ssname ss c)))))
(setq degrees (Radian->Degrees e))
(setq degrees (+ degrees rotateval))
(while (>= degrees 360)
(setq degrees (- degrees 360))
)
(setq radians (Degrees->Radians degrees))
(setq f (subst (cons 50 radians) (assoc 50 f) f))
(entmod f)
(setq c (+ c 1))
)
)


(defun Radian->Degrees (nbrOfRadians)
(* 180.0 (/ nbrOfRadians pi))
)
(defun Degrees->Radians (numberOfDegrees)
(* pi (/ numberOfDegrees 180.0))
)


Zitat:
Befehl: (LOAD "X:/XXX/ROT.lsp") DEGREES->RADIANS

Befehl: ROT

How many degrees rotation are required: 180

Objekte wählen: Entgegengesetzte Ecke angeben: 2 gefunden

Objekte wählen:
2

Befehl:


Also bei mir läufts. 

------------------

Gruß
Manuel

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

otterloh
Mitglied



Sehen Sie sich das Profil von otterloh an!   Senden Sie eine Private Message an otterloh  Schreiben Sie einen Gästebucheintrag für otterloh

Beiträge: 188
Registriert: 27.06.2001

AutoCAD 2012, 2013, 2019
Win8.1

erstellt am: 24. Mrz. 2022 10:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für csfalk 10 Unities + Antwort hilfreich



Technischer Systemplaner / BIM-Modellierer TGA HKLS

Die PfT Ingenieur GmbH - Das Ingenieurbüro in Markt Indersdorf nördlich von München.

Wir sind Ingenieure und Planer aller Gewerke der technischen Gebäudeausrüstung.

Unser Leistungsspektrum beginnt bei der ersten Beratung des Kunden, dem Erarbeiten von Energiekonzepten, über die Erstellung einer genehmigungsfähigen Technikplanung bis hin zur Betreuung der Firmen bei der Umsetzung unserer Planung....

Anzeige ansehenTechnischer Zeichner, Bauzeichner
csfalk
Mitglied
IT-Admin / CAD-Zeichner


Sehen Sie sich das Profil von csfalk an!   Senden Sie eine Private Message an csfalk  Schreiben Sie einen Gästebucheintrag für csfalk

Beiträge: 204
Registriert: 14.06.2012

AutoCad Civil 3D 2020-20223
Autoturn
Rehm Wasserwirtschaft
Fluss
Flussplot
Cross
Graps
Hykas
Kanalplot
W10 x64

erstellt am: 24. Mrz. 2022 10:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen vielen Dank für die tolle Unterstützung.

Gruß aus Teltow bei Berlin.

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz