Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Text ausrichten + Beschriftung = ?

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:  Text ausrichten + Beschriftung = ? (1242 mal gelesen)
Sauber
Mitglied



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

Beiträge: 43
Registriert: 31.07.2005

AutoCad 2009
AutoCad 2008 LT + Extender

erstellt am: 29. Jan. 2008 11:23    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,
seit einiger Zeit benutze ich folgendes LISP, welches hier im Forum stand, (meiner meinung das beste zum Thema Text ausrichten an Linien, da es Mtexte und Polylinien erfasst und nicht nur Linien und Texte.)
Leider versagt es Bei MTexten mit dem neuen Beschriftungsmodus...
kann man das irgendwie beheben??

Gruss

(defun C:TDA()
(setq tau (nentsel "\nAusrichtende Linie auswählen: "))
(setq tausel (entget (car tau)))
(cond ((= (cdr (assoc 0 tausel)) "VERTEX")(setq pt1 (osnap (cadr tau) "_mid")))
      ((= (cdr (assoc 0 tausel)) "LWPOLYLINE")(setq pt1 (osnap (cadr tau) "_mid")))
      ((= (cdr (assoc 0 tausel)) "LINE")(setq pt1 (osnap (cadr tau) "_mid")))
      (T (alert "An diesem Element kann nicht ausgerichtet werden!")(exit))
      )
(setq ten (car (entsel "\nAuszurichtendes Textelement auswählen: ")))
(while ten
(setq pt2 (osnap (cadr tau) "_end"))
(setq tel (entget ten))
(setq tw (angle pt1 pt2))
(setq tel (subst (cons 50 tw)(assoc 50 tel) tel))
(entmod tel)
(entupd ten)
(initget 128 "Ja Nein")
(setq kwort (getkword "\nText um 180ø drehen? J/<N>: "))
(if kwort (setq kwort kwort)(setq kwort "Nein"))
(if (wcmatch kwort "J*")
  (progn
  (setq tw (+ tw pi))
  (setq tel (subst (cons 50 tw)(assoc 50 tel) tel))
  (entmod tel)
  (entupd ten)
  )
  )
(setq tau (nentsel "\nAusrichtende Linie auswählen: "))
(setq tausel (entget (car tau)))
(cond ((= (cdr (assoc 0 tausel)) "VERTEX")(setq pt1 (osnap (cadr tau) "_mid")))
      ((= (cdr (assoc 0 tausel)) "LWPOLYLINE")(setq pt1 (osnap (cadr tau) "_mid")))
      ((= (cdr (assoc 0 tausel)) "LINE")(setq pt1 (osnap (cadr tau) "_mid")))
      (T (alert "An diesem Element kann nicht ausgerichtet werden!")(exit))
      )
(setq ten (car (entsel "\nAuszurichtendes Textelement auswählen: ")))
) ; end while
)

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