---

Hallo Forumgemeinschaft,

ich bin neu hier und habe ein größeres Problem. Wir haben im VB Makros erstellt wo unsere Layer so benennend wie es Bpp5 (CAD/CAM Programm für Woodwop) es haben will. Jetzt vergeben wir in der Zeichnung schon die Fräserkorrektur rechts/mitte/links. Jetzt mein Problem wir Fräsen immer im Uhrzeigersinn jedoch muss ich Auto Cad dazu bringen das die Reihenfolge der Linien beim abspeichern als DXF auch im Uhrzeigersinn zu setzen, noch besser wäre es mitten in einer Linie einen Startpunkt zur vergeben.

mfg
Jürgen

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

---

Hallo ich bins nochmal.

Hab gerade mal den Bereich aus der dxf Zeichnung herauskopiert wo ein Rechteck beschrieben wird jedoch gegen den Uhrzeigersinn. Kann ich das im Auto Cad schon so ändern das es immer im Uhrzeigersinn aufgelistet wird?

V_Fraes_-2T101F15AS0FL1L
48
0.5
100
AcDbPolyline
90
        4
70
    1
43
0.0
10
2764.570302215325
20
4659.74278043081
10
2941.36044102646
20
4659.74278043081
10
2941.36044102646
20
4751.441481433023
10
2764.570302215325
20
4751.441481433023
  0
LWPOLYLINE
  5
221
330
1F
100
AcDbEntity
  8

Wäre super wenn mir jemand helfen könnte.

mfg
Jürgen

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

---

Hi!
Also den Drehsinn zu ändern ist eigentlich kein Problem. Mach einfach eine neue Polylinie von irgendwo zum Endpunkt der alten Polylinie. Jetzt die beiden verbinden. Mit _pedit die Polylinie bearbeiten und beim "neuen Anfangspunkt" unterbrechen. Jetzt ist sie andersrum.
Gruß,
Martin

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

---

Zitat:

---

Original erstellt von Bissi:
Kann ich das im Auto Cad schon so ändern das es immer im Uhrzeigersinn aufgelistet wird?

---

IMHO mit Standard-AutoCAD nicht.
Enhält Deine Zeichnung immer nur 2D Polylinien mit geraden Segmenten?
Oder kommen auch Bögen und Breiten darin vor?
Wenn nicht, sollte es ein leichtes sein vor der DXF Erstellung ein kleines Lisp-Tool über die Polylinien laufen zu lassen welches den "Drehsinn" festlegt.

------------------
Ciao,
Marc

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

---

Hallo Jürgen,

Probier mal dies Lisp aus:

;;;          Polyline Reverse         
;;;      plr.lsp by Charles Alan Butler
;;;            Copyright 2004         
;;;  by Precision Drafting & Design All Rights Reserved.
;;;  Contact at ab2draft@TampaBay.rr.com
;;;
;;;  Version Alpha 0.2 March 20,2004
;;;
;;;  THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;;;  WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;;;  PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;                                                                    ;
;;;  You are hereby granted permission to use, copy and modify this    ;
;;;  software without charge, provided you do so exclusively for      ;
;;;  your own use or for use by others in your organization in the    ;
;;;  performance of their normal duties, and provided further that    ;
;;;  the above copyright notice appears in all copies and both that    ;
;;;  copyright notice and the limited warranty and restricted rights  ;
;;;  notice below appear in all supporting documentation.              ;
;;;
(defun c lr (/ elst vlst newlst new-vlst code42 code210
              obj nam pair clo)
  (command "_.undo" "_be")
  (while (null (setq en1 (entsel "\nPick an object to reverse: "))))
  (setq nam  (car en1)
        elst (entget nam)
        obj  (cdr (assoc 0 elst))
        clo  (= 1 (logand 1 (cdr (assoc 70 (entget nam)))))
  )
  (cond
    ((= obj "LWPOLYLINE")
    (setq new-vlst (list (assoc 10 elst))) ; start point
    (while (setq pair (car elst))
      (cond
        ((= (car pair) 10) ; vertex
          ;; collect vertex list
          (while (member (caar elst) '(10 40 41 42))
            (setq vlst (cons (car elst) vlst)
                  elst (cdr elst))
          ) ; end while
        )
        ((= (car pair) 210) ; extru direction??
          (setq code210 pair
                elst    (cdr elst))
        )
        ((setq newlst (cons pair newlst)
                elst  (cdr elst))
        )
      ) ; end cond stmt
    ) ; end while
    ;;  newlst= entlist less vertex list
    ;;  vlst= vertex list
    (while vlst ;  reverse vertex list
      (if (= (car (setq pair (car vlst))) 42) ; bulge
        ;; reverse the bulge
        (setq code42 (cons 42 (* (cdr pair) -1))
              vlst  (cdr vlst))
      )
      (if (= (car (setq pair (car vlst))) 41)
        ;; reverse the width position
        (setq vlst    (cdr vlst)
              new-vlst (cons (cons 40 (cdr pair)) new-vlst)
              new-vlst (cons (cons 41 (cdr (car vlst))) new-vlst)
              vlst    (cdr vlst))
      )
      (if code42 ; add bulge back to list
        (setq new-vlst (cons code42 new-vlst)
              code42  nil)
      )
      (if (= (car (setq pair (car vlst))) 10)
        (setq new-vlst (cons pair new-vlst)
              vlst    (cdr vlst))
      )
    ) ; end while
    (if clo ; closed pline
      (setq new-vlst (cdr new-vlst)) ; remove the start pt
      (setq new-vlst (reverse(cdr (reverse new-vlst))))
    )
    ;;  new-vlst contains the reverse vertex list
    (setq newlst (append new-vlst newlst))
    (if code210
      (setq newlst (append (list code210) newlst))
    )
    (entmod (reverse newlst))
    (entupd nam) ; Regenerates the polyline entity
    )
    ((= obj "POLYLINE")
    (prompt "\nNot yet working... Old Style Polyline."))
    ((prompt "\nObject selected is not a polyline"))
  ) ; end cond stmt
  (princ)
) ; end defun

WoodWop hat doch auch die Möglichkeit die Richtung beim fräsen vorzugeben, oder irre ich mich. Ist schon ein paar Jahre her, das ich was mit WoodWop gemacht habe.

Lisp laden und mit "PLR" starten.

Gruß aus dem Münsterland, Carsten

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

---

Hallo Forum,
erstmal Danke für die Antworten. Ich werde morgen das alles mal ausprobieren. Zur der Frage mit den Bögen, ja wir müssen auch Bögen mit Umsetzen.

mfg
J.Bisani

PS: Sorry für die erste Dooofe Fragestellung.

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

---

Hi,
wie ist denn eigentlich der Drehsinn einer solchen "Konstruktion"?:

...

------------------
Ciao,
Marc

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

---

@marc.scherer
Bei einer einzelnen Line weis ich es nicht, müsste ich mal ausprobieren. Aber es handelt sich bei uns ja nicht um eine einzelne Linie sondern um ganze Konturen. Meistens legen wir im AutoCAD auch gleich die Plattengröße fest. Ich werde dir mal ein Bild posten dann sieht man es besser was ich meine.

@Carsten
Ja im Woodwop gibt es die Option Vorwärts ein/aus, damit kann man auch Fräsrichtung (Drehrichtung) festlegen. Nur wir haben viel Zeit investiert um das AutoCAD soweit zu haben, das wir nichts mehr im Woodwop machen müssen.

Gruß
Jürgen

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