Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Linien mit linientyp der Text enthält 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:  Linien mit linientyp der Text enthält drehen (4274 mal gelesen)
axel.rathey
Mitglied
Ingenieur

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

Beiträge: 4
Registriert: 21.04.2006

WinXP, AMD dualcore, 2 GByte RAM
Autocad 2006, ADT 2009, MEP 2012
Autocad 2006 mit TGA Desktop von linear
ADT 2009 mit CADvent von Lindab

erstellt am: 22. Jul. 2010 15:41    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,
gibt es eigentlich eine Funktion oder lisp Datei mit der man Linien um 180° um ihren Mittelpunkt drehen kann? Normal änder sich dann zwar nichts. Da ich aber häufiger mal Linientypen verwende mit einem kurzen Text in der Linie, wie z.B.

*LON,---- LON ---- LON ---- LON
A,12.7,-5.08,["LON",standard,S=2.54,R=0,X=-2.54,Y=-1.27],-5.08

, habe ich häufig den Effekt, das der Text in der Zeichnung auf dem Kopf steht oder nur von links statt von rechts lesbar ist. Einfaches Drehen um 180° um den Mittelpunkt der Linie behebt das, ist aber immer aufwändig, wenn man das für etliche Linien manuell durchführen muss. Schön wäre ein lisp makro wo man entweder vorher eine Auswahl der Linien nimmt oder das eine Linie erwartet, so dass man das lisp makro mit "nochmal" auf mehrere Linien anwenden kann und dann gleich den Effekt sieht.

Gruß
Axel

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

Ingenieurbüro Rathey
Dr.-Ing. Axel Rathey
D-14478 Potsdam

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

Dig15
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. für Markscheidewesen und Geodäsie



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

Beiträge: 5833
Registriert: 27.02.2003

DWG TrueView 2014

erstellt am: 22. Jul. 2010 15:48    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 axel.rathey 10 Unities + Antwort hilfreich


rcp.lsp.txt

 
Hallo Axel,

willkommen hier bei CAD.de! 

Ich nutze für Dein Problem ein kleines Lisp. Es "dreht" eine Polylinie um. Ich hänge es mal ran. Einfach .txt entfernen, im Supportpfad speichern, laden, starten, freuen.

------------------
Viele Grüße Lutz

Glück Auf!  

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

CADchup
Ehrenmitglied V.I.P. h.c.




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

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 22. Jul. 2010 16:47    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 axel.rathey 10 Unities + Antwort hilfreich

Hi,

welche Version?
IMHO hat Acad das seit 2010 selbst an Bord: UMDREH oder _REVERSE .


Gruß
CADchup

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

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

axel.rathey
Mitglied
Ingenieur

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

Beiträge: 4
Registriert: 21.04.2006

WinXP, AMD dualcore, 2 GByte RAM
Autocad 2006, ADT 2009, MEP 2012
Autocad 2006 mit TGA Desktop von linear
ADT 2009 mit CADvent von Lindab

erstellt am: 22. Jul. 2010 16: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,

ja danke, funktioniert mit Polylinien, gibt es den auch für normale linien?
Bin mit Lisp nicht so bewandert. Arbeite teilweise noch mit Autocad 2006 und ADT 2009 daher kann ich den Umdreh Befehl aus 2010 nicht verwenden.

Danke, Axel

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

Ingenieurbüro Rathey
Dr.-Ing. Axel Rathey
D-14478 Potsdam

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

Dober Heinz
Mitglied
Technischer Zeichner


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

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 23. Jul. 2010 06:52    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 axel.rathey 10 Unities + Antwort hilfreich

Hallo axel
Versuch mal das

(defun c:linieumkehr ( / SSET I ENT NENT)
  (if(or(and(=(getvar "PICKFIRST")1)(setq sset (ssget "_I" '((0 . "LINE")))))
        (setq SSET (ssget '((0 . "LINE"))))
    )
    (progn
      (setq I -1)
      (repeat (sslength SSET)
        (setq ENT(entget(ssname SSET (setq I(1+ I)))))
        (setq NENT (subst (cons 11 (cdr(assoc 10 ENT)))(assoc 11 ENT)ENT))
        (entmod(subst (cons 10 (cdr(assoc 11 ENT)))(assoc 10 ENT)NENT))
      )
    )
    (prompt "\nKeine Linien gewählt!")
  )
  (princ)
)

------------------
Heinz 

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

charlieBV
Ehrenmitglied V.I.P. h.c.
Bauzeichnerin



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

Beiträge: 9317
Registriert: 28.08.2003

erstellt am: 23. Jul. 2010 07:04    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 axel.rathey 10 Unities + Antwort hilfreich

@ Heinz

wenn er das eine Lisp nicht laden kann, wird er das andere auch nicht laden können.

@ Axel: Der User FAQ hat zu Lisp-Tools schon mal was geschrieben: KLICK.

------------------
Gruß Yvonne
Inoffizielle ADT-Help-Site

"Gehe nicht, wohin der Weg führen mag, sondern dorthin, wo kein Weg ist, und hinterlasse eine Spur."
Jean Paul

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

Dig15
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. für Markscheidewesen und Geodäsie



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

Beiträge: 5833
Registriert: 27.02.2003

DWG TrueView 2014

erstellt am: 23. Jul. 2010 07: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 Nur für axel.rathey 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von CADchup:
Hi,

welche Version?
IMHO hat Acad das seit 2010 selbst an Bord: UMDREH oder _REVERSE .


Gruß
CADchup


Und wieder was gelernt. 

------------------
Viele Grüße Lutz

Glück Auf!  

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

Dober Heinz
Mitglied
Technischer Zeichner


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

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 23. Jul. 2010 07:31    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 axel.rathey 10 Unities + Antwort hilfreich

Q  2011 kanns noch besser.

Beachten Sie, dass die Gesamtlänge des Aufstrichs 0.2 + 0.2 = 0.4 beträgt und der Textursprung vom Ende des ersten Aufstrichs um -0.01 Einheiten in X-Richtung versetzt ist. Ein äquivalenter Linientyp sieht wie folgt aus:

*HEISS_WASSER_VERSORGUNG,---- HW ---- HW ---- HW ---- HW ---- HW ----

A,.5,-.1,["HW",STANDARD,S=.1,U=0.0,X=0.0,Y=-.05],-.3

Die Gesamtlänge des Aufstrichs beträgt auch hier 0.1 + 0.3 = 0.4. Allerdings wird der Textursprung nicht in X-Richtung versetzt.

Nachstehend werden die einzelnen Felder im Zeichendeskriptor näher beschrieben. Bei den zu verwendenden Werten handelt es sich um Dezimalzahlen mit Vorzeichen, wie z. B. 1, -17 oder 0.01.

Text

    Im Linientyp zu verwendende Zeichen.
Textstilname

    Hier wird der zu verwendende Textstil benannt. Wenn kein Textstil angegeben wird, verwendet AutoCAD den aktuell definierten Stil.
Skalierung

    S=Wert. Der Skalierfaktor für den Textstil im Verhältnis zum Skalierfaktor des Linientyps. Die Höhe des Textstils wird mit dem Skalierfaktor multipliziert. Wenn die Höhe des Stils 0 beträgt, wird S=Wert als Höhe verwendet.
Drehung

    U=Wert, R=Wertoder A=Wert. U= definiert aufrechten oder leicht lesbaren Text. R= gibt eine relative oder tangentiale Drehung im Verhältnis zur Linie an. A= gibt eine absolute Drehung des Texts im Verhältnis zum Ursprung an: Alle Textsegmente werden unabhängig von ihrer Position relativ zur Linie um den gleichen Wert gedreht. Sie können diesem Wert den Buchstaben d für Grad (engl. Degrees, Vorgabewert) nachstellen, r für Bogenmaß (engl. Radians) oder g für Neugrad (engl. Grads). Wird kein Drehwert angegeben, verwendet das Programm eine relative Drehung von 0.

    Die Drehung erfolgt zwischen der Basislinie und der nominalen Buchstabenhöhe.
    AnmerkungZeichnungen, die ältere Linientypen enthalten, welche nicht die Drehungsmarkierung "U" (Upgright=Aufrecht) verwenden, können auf die aktuelle Linientypdefinition aktualisiert werden, indem der Linientyp erneut aus der LIN-Dateien geladen wird. Benutzerspezifische Linientypen können aktualisiert werden, indem Sie vor dem Neuladen einer Linientypdefinition die Drehungsmarkierung "R" in "U" (Upright) ändern. Informationen über das Laden eines Linientyps finden Sie unter Laden von Linientypen.
x_Abstand

    X=Wert. Dieser Wert definiert die Verschiebung des Texts auf der X-Achse des Linientyps, d. h. entlang der Linie. Wenn das Feld x_Abstand weggelassen oder auf den Wert 0 gesetzt wird, erfolgt keine Verschiebung des Texts. Verwenden Sie dieses Feld, um den Abstand zwischen dem Text und den vorherigen gezeichneten oder nicht gezeichneten Segmenten festzulegen. Dieser Wert wird nicht um den als S=Wert definierten Skalierfaktor, sondern auf den Linientyp skaliert.
y_Abstand

    Y=Wert. Dieser Wert gibt die Verschiebung des Texts auf der Y-Achse des Linientyps an, die in einem Winkel von 90 Grad zur Linie verläuft. Wenn das Feld y_Abstand weggelassen oder auf den Wert 0 gesetzt wird, erfolgt keine Verschiebung des Texts. Verwenden Sie dieses Feld, um die vertikale Ausrichtung des Texts im Verhältnis zur Linie festzulegen. Dieser Wert wird nicht um den als S=Wert definierten Skalierfaktor, sondern auf den Linientyp skaliert.

------------------
Heinz 

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

charlieBV
Ehrenmitglied V.I.P. h.c.
Bauzeichnerin



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

Beiträge: 9317
Registriert: 28.08.2003

erstellt am: 23. Jul. 2010 07:45    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 axel.rathey 10 Unities + Antwort hilfreich

Heinz,

was ist das?
Der Auszug einer Hilfedatei? Wozu? Der Fragesteller hat 2006 und 2009. Vielleicht bewegen wir uns wieder auf Pfade zurück, auf denen auch er wandelt?

------------------
Gruß Yvonne
Inoffizielle ADT-Help-Site

"Gehe nicht, wohin der Weg führen mag, sondern dorthin, wo kein Weg ist, und hinterlasse eine Spur."
Jean Paul

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

Dober Heinz
Mitglied
Technischer Zeichner


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

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 23. Jul. 2010 08:09    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 axel.rathey 10 Unities + Antwort hilfreich

charlieBV

Das ist eine Info für alle, da ja sicher den Betrag mehr lesen, als nur 2008 und 2009 Anwender.

Sorry wenn es wiedermal zu viel wahr.

------------------
Heinz 

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

charlieBV
Ehrenmitglied V.I.P. h.c.
Bauzeichnerin



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

Beiträge: 9317
Registriert: 28.08.2003

erstellt am: 23. Jul. 2010 08: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 Nur für axel.rathey 10 Unities + Antwort hilfreich

Das war nicht unbedingt zu viel, aber mit ein paar erklärenden Worten am Anfang wäre es einfacher zu verstehen gewesen?

------------------
Gruß Yvonne
Inoffizielle ADT-Help-Site

"Gehe nicht, wohin der Weg führen mag, sondern dorthin, wo kein Weg ist, und hinterlasse eine Spur."
Jean Paul

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

axel.rathey
Mitglied
Ingenieur

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

Beiträge: 4
Registriert: 21.04.2006

WinXP, AMD dualcore, 2 GByte RAM
Autocad 2006, ADT 2009, MEP 2012
Autocad 2006 mit TGA Desktop von linear
ADT 2009 mit CADvent von Lindab

erstellt am: 23. Jul. 2010 08:30    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,

zunächst einmal Danke für die große Resonanz.

Bitte keinen Streit um Heinz seine Erklärung.

Denke, dass ich es verstanden habe. Seit Autocad 2011 kann man also den Linientyp durch Angabe von U=0.0 statt R=0.0 so ausrichten, dass die Texte in den Linien von unten (oder rechts?) lesbar sind.
Oder steht der Text dann immer waagerecht auch bei senkrechten oder schrägen Linien?

Was mir nicht so klar ist, ist die Länge des Aufstrichs. Was ist mit Aufstrich gemeint?
Habe bei der Definition einer Linie mit Text regelmäßig das Problem, dass ich mich dem Ergebnis durch Anpassen der negativen Werte vor und nach der Klammer schrittweise nähere, weil zwischen Linie und Text entweder zu viel Platz ist oder die Linie in die Buchstaben hereinrutscht.

Axel

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

Ingenieurbüro Rathey
Dr.-Ing. Axel Rathey
D-14478 Potsdam

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

Dober Heinz
Mitglied
Technischer Zeichner


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

Beiträge: 1143
Registriert: 20.12.2002

Autocad 2020/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
16,0GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2019

erstellt am: 23. Jul. 2010 10:59    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 axel.rathey 10 Unities + Antwort hilfreich


makelt.zip

 
Hallo axel


Habe dir ein Lisp angehängt das sowas von alleine erledigt.
Habe es in Internet gefunden, hoffe du kannst was anfangen damit.
Im Lisp steht auch der Verfasser dabei.

------------------
Heinz 

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