---

Morgen!

Gibt es ein lisp oder sonst ein Progamm was einen Text parallel zu einer Linie auf einen bestimmten Wert verschiebt?

Hab bisher ein lisp verwendet, dass den Text erstmal an einen Linie ausrichtet und dann von Hand den Text auf einen bestimmten abstand verschoben.
Was noch wichtig sein könnte es ist immer ein einfach Text mit Ausrichtung (Basispunkt) LINKS

Anbei das lisp falls es wer schafft das zu erweitern 

(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

---

Auf diesen  Klammernpark habe ich jetzt keine Lust, sorry.
Aber evtl. hilft dir ja der Hinweis das es in AutoCAD diverse
Hilfsmittel zu Konstruktion gibt.
POLAR & OTRACK und die Objektfänge HILFSLINIE & PARALLEL

Damit hat man alle nötigen Hilfsmittel in der Hand um ohne Krücken arbeiten zu können.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Andere Frage: Ist es ein neuzuerstellender Text oder handelt es sich immer um bestehenden Text?

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

des handelt sich um bestehende Texte

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

---

wie gesagt, ICH sage in dem Fall

_.move
<wähle das Textobjekt>
<beende die Objektwahl>
<wähle den Endpunkt einer Linien die den gewünschten Winkel hat>
<gehe mit dem Cursor in die gedachte Verlängerung der Linie (OFang=Hilfslinie)
und tippe "20"<Enter> ein --> voila, Text um 20ZE im Winkel der Linie verschoben.

oder:
wie gesagt, ICH sage in dem Fall
_.move
<wähle das Textobjekt>
<beende die Objektwahl>
<wähle irgendwo einen Basispunkt>
<ziehe die Maus kurz über eine Linie mit entsprechendem Winkel>
<lenke die Maus auf einen Punkt der im Winkel der Linie von meinem 1.Basispunkt aus gesehen liegt.>
(OFang=Parallel)
und tippe "20"<Enter> ein --> voila, Text um 20ZE im Winkel der Linie verschoben.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

des würd glaube ich nur gehen, wenn der Text auf der Linie ist oder?
nur haben die Texte immer einen unterschiedlichen Abstand zu der jeweiligen Linie

naja hab des immer mit dem Befehlt "Versetzen" gemacht - die Linie parallel versetzt, dann den Text am Basispunkt geschnappt und auf die versetzte Linie geschoben und dann die Linie wieder gelöscht

[Diese Nachricht wurde von zwirbl am 30. Apr. 2009 editiert.]

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

---

Deinen Glauben in allen Ehren, aber das ist ein CAD-Forum und nicht die Kirche,
also teste es einfach mal so wie ich es geschrieben habe, der Vater muß sich schon um genug kümmern  

Also, wenn du dein Geld mit dem Programm verdienst nehme dir einfach mal Zeit mit
den Zeichnungshilfen herum zu spielen - des geht, ohne irgendwelchen Hilfsmittel.
(wobei ein paar Codezeilen für den Drehwinkel sicher sinnig sind weil es viel weniger geklicke ist -
wobei du evtl.(?) davon uagehen kannst das der Textwinkel immer zwischen 270°-90° sein soll, oder ?
Dann könnte man sich deine "180°-Abfrage" nämlich sparen)

Wie auch immer: Erstmal die Basics lernen, dann Tools einsetzen.

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

tal.zip

Hallo Zwirbl

Versuch das mal.

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

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

---

danke Dober Heinz!! genau sowas hab i gesucht! 

cadffm bist heute schlecht drauf??

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

---

Nee, wirklich nicht ! Und wenn defun´s Lisp das ist was du brauchtest wundere ich mich über deine "Problembeschreibung", aber egal.
Habe ich eben völlig daneben gelegen was das angeht, das passiert schonmal.

PS: Wie kommst du darauf ? Ich habe mir nun wirklich Mühe gegeben, sogar 2 "Klick-für-Klick" Wege für
das Verschieben notiert - das einzige was ich kritisiert hatte war das der Vater nicht mit sowas belästigt werden sollte 

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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

---

Ja vielleicht war meine Problembeschreibung nicht ganz richtig.

Wollte, dass der Text am Ende einen bestimmten Abstand zu der Linie hat.

deshalb gingen auch deine 2 "Klick-für-Klick" Wegebeschreibung bei mir in die Hose - hab sie ja auch ausprobiert bevor ich zurückschreibe! Das was du da beschreiben hast ist ja einfaches parallel verschieben

nochmals DANKE bye

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