---

Ich habe glaube ich ein minder schweres problem, kann es aber dennoch nicht lösen.
Wenn ich eine Linie in der acad.lin selber definiere mit einem textzug so wird der mal auf dem kopf mal in richtiger richtung völlig willkürlich dargestellt. Ich glaube das hängt mit dem anfangs- und endpunkt der polylinie (also auch mit ihrer erstellung zusammen). Weiß jemand hier, wie ich anfangs- und endpunkt tauschen kann oder gibt es eine andere möglichkeit, die ausrichtung der schrift im linientyp so zu definieren, dass ich sie direkt in acad selbst drehen kann?

mfg
autocater

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

---

http://ww3.cad.de/foren/ubb/Forum54/HTML/006890.shtml
.

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

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

---

Gucks du hier:

(defun c:leitungd (/ n a anz o ap ep w ob) ;Leitungen drehen
  (setq n 0)
  (setq a (ssget "X" '((0 . "LINE"))))
  (if (= a nil) (princ "\n*Abbruch*")(progn
  (setq anz (sslength a))
  (repeat anz
    (setq o (ssname a n))
    (setq n (+ 1 n))
    (setq ob (entget o))
    (setq ap (assoc 10 ob))
    (setq ap (cdr ap))
    (setq ep (assoc 11 ob))
    (setq ep (cdr ep))
    (setq w (atof (angtos (angle ap ep))))
    (if
      (and (<= w 270) (> w 90))
      (progn
(setq ob
(subst (cons 10 ep)
      (assoc 10 ob)
      ob
)
)
(entmod ob)
(setq ob
(subst (cons 11 ap)
      (assoc 11 ob)
      ob
)
)
(entmod ob)
      )
      ()
    )
  )))
  (princ)
)

------------------
  Martin 

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