---

Hallo. Ich habe eine zu einem Polygon geschlossene Polyline mit einem Linientyp "LINEA11". Die "Wölbungsstruktur" dieser Polylinie zeigt nach innen in das Polygon hinein. Gibt es eine Möglichkeit die Wölbungen nach außen zeigen zu lassen? Ich habe in einem Englischen Forum den Befehl "rvrsline" gefunden, der diese Eigenschaft ändern könnte. Da ich jedoch ein deutsches AutoCAD habe, funktioniert er nicht. Ich bräuchte das deutsche Äquivalent des Befehls bzw. eine andere Lösung die Richtung des Ploylinientyps zu ändern.

Wenn ich das Polygon spiegle, zeigen die Wölbungen nach außen. Aber ich will nicht das ganze Polygon spiegeln.

Kann mir irgend jemand helfen?

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

---

Du mußt die Laufrichtung der Polylinie ändern (reversieren). Einen  ACAD-Befehl dafür gibt es nicht, jedoch finden sich mehr oder minder ausgereifte Lösungen als Lisp oder VBA-Tool im INET. (siehe bsp-weise hier

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

hi,

bitte schreib doch in dein Profil, mit welchem Programm und Version du arbeitest...dann kann dir besser geholfen werden :-)

Was meinst du mit Wölbung? Ein Polygon hat doch glatte Seiten? Mach doch mal ein Foto und poste es..

LG Petra

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

---

Alles in eine Textdatei kopieren, die Endung auf lsp äbdern, laden und dann mit rcp aufrufen.

Code:

---

(defun C:RCP (/ PL_select PL_Name PL_DataSet Testliste new_Ctrl_Pointlist first_Part last_part L_ok i Listenelement Ctrl_Pointlist Crtl_Pointnumb def_Pos k vergleich umkehrung kruemmung sicher austausch austausch1 austausch3 kruemmung_alt zähler anzahl)
  (while (not (setq PL_select (entsel))))
  (setq PL_Name (car PL_select)
PL_DataSet (entget PL_Name)
Testliste (list 10 40 41 42)
new_Ctrl_Pointlist (list)
first_Part (list)
last_part (list)
L_ok nil
i 0)
  (cond ((= (cdr (assoc 0 PL_DataSet)) "LWPOLYLINE")
(while (not L_ok)
  (setq Listenelement (nth i PL_DataSet))
  (if (/= (car Listenelement) 10)
    (setq first_Part (append first_Part (list Listenelement)))
    (setq L_ok T)
    )
  (setq i (+ i 1))
  ); while
(setq L_ok nil i 0)
(while (not L_ok)
  (setq Listenelement (nth i (reverse PL_DataSet)))
  (if (not (member (car Listenelement) Testliste))
    (setq last_part (append last_part (list Listenelement)))
    (setq L_ok T last_Part (reverse last_Part))
    )
  (setq i (+ i 1))
  );while
(setq Ctrl_Pointlist (reverse (cdr (reverse (member (assoc 10 PL_DataSet) PL_Dataset)))))
(setq Crtl_Pointnumb (/ (length Ctrl_Pointlist) 4) i 0)
(while (< i Crtl_Pointnumb)
  (setq k 0)
  (setq def_Pos (- (length Ctrl_Pointlist) (* (+ i 1) 4)))
  (while (< k 4)
    (setq vergleich (caar (list (nth (+ def_pos k) Ctrl_Pointlist))))
    (if (= vergleich 42); wenn Krümmungsklammer
      (progn;dann
(setq umkehrung (* -1 (cdar (list (nth (+ def_pos k) ctrl_pointlist)))))
(setq kruemmung (cons '42 umkehrung))
(if (= umkehrung 0)
  (progn
    (if (and (= def_pos 0) sicher)
      (setq kruemmung sicher)
      )
    (setq new_Ctrl_Pointlist (append new_Ctrl_Pointlist (list kruemmung)))
    )
  (progn; sonst, wenn Krümmung ungleich 0
    (setq anzahl (length new_ctrl_pointlist))
    (if (< anzahl 4)
      (progn;dann
(if (or (= (cdr (assoc 70 PL_DataSet)) 1) (= (cdr (assoc 70 PL_DataSet)) 129))
  (setq sicher kruemmung)
  )
  (setq kruemmung (cons '42 '0.0))
(setq new_ctrl_pointlist (append new_Ctrl_Pointlist (list kruemmung)))
);progn
      (progn;sonst
(setq austausch (reverse new_ctrl_pointlist))
(setq kruemmung_alt (assoc 42 austausch))
(setq zähler 0)
(setq austausch1 (list))
(repeat 3
  (setq austausch1 (append austausch1 (list (nth zähler austausch))))
  (setq zähler (1+ zähler))
  );repeat
(setq austausch (cdr austausch))
(setq austausch3 (member (assoc 41 austausch) austausch))
(setq austausch (cons kruemmung austausch3))
(setq austausch (append austausch1 austausch))
(setq new_Ctrl_Pointlist (reverse austausch))
(setq new_Ctrl_Pointlist (append new_Ctrl_Pointlist (list kruemmung_alt)))
);progn
      );if
    );progn
  );if
);progn
      (setq new_Ctrl_Pointlist (append new_Ctrl_Pointlist (list (nth (+ def_Pos k) Ctrl_Pointlist)))); wenn nicht Krümmungsklammer
      );if
    (setq k (+ k 1))
    );while
  (setq i (+ i 1))
  );while
(setq new_PL_DataSet (append first_Part new_Ctrl_Pointlist last_Part))
(if (not (entmod new_PL_DataSet)) (prompt "\n...konnte LWPolylinie nicht modifizieren!")))
(t nil))
  (princ))

---

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

Glück Auf!   Sir Dig und Lady Diggerline

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

---

Habe AutoCAD 2002. Ist aber egal. Das Script von Lutz (Digi15) hat einwandfrei funktioniert. Vielen Dank!

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

---

Zu meiner Ehrenrettung: Das Script ist nicht von mir. Habe aber auch keinene hinweis mehr gefunden, von wem ich das mal bekommen habe. Es war auf alle Fälle aus dem Forum.

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

Glück Auf!   Sir Dig und Lady Diggerline

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

---

Wer suchet der findet...
http://ww3.cad.de/foren/ubb/Forum54/HTML/005567.shtml#000006 

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

Thomas

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