---

Hallo Leute,

ich hab folgendes Problem: Ich habe eine Zeichnung mit vielen geraden Linien. Jede Linie ist mit mehreren Punkten versehen (unterschiedliche Abstände) an denen die Linien gebrochen werden soll. Gibt es ein Tool, Lisp o.ä. mit dem man mit einen Befehl alle Linien an den Punkten brechen kann?
Wäre toll wenn jemand da was hätte.

Gruß
Andreas

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

---

wenns Polylinien sind und die Punkt Stützpunkte derselben hilft ein _explode,
wenn nicht erklär dich mal genauer! Oder steh ich aufm Schlauch?

------------------
- Thomas -

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

---

dxfeasy.zip

Hallo Thomas,

zur genaueren Beschreibung habe ich eine kleine Zeichnung angehängt in der genau die Situation dargestellt ist. Mehrere Linien die mit vielen Punktsymbolen versehen sind. die Linien sollen genau an den Punktsymbolen gebrochen werden. Bis jetzt muß ich für jeden einzelnen Punkt den Befehl "an Punkt brechen" neu ausführen.

Gruß Andreas

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

---

hier ein link zu einer ähnlichen anfrage.
evtl. hilft es dir weiter.
(siehe besonders den beitrag von holger)
http://ww3.cad.de/foren/ubb/Forum54/HTML/004092.shtml

ciao georg

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

---

Hi Andreas,

es sieht so aus, als seien die Punktobjekte das Resultat von MESSEN bzw. TEILEN. Verstehe ich das richtig: Dann wäre die Aufgabenstellung etwas anders: Eine Polylinie in n gleichlange Stücke zu zerbröseln oder aber in x Stücke der Länge d, plus ein Reststück. Jedenfalls könnte man sich die ganzen Punkte sparen.

Wenn meine Vermutung zutrifft, dass dir damit besser geholfen wäre, einfach Bescheid sagen. Das sollte mit wenigen Zeilen Lisp erledigt sein - aber die schreibe ich jetzt nicht gleich, könnte ja sein, dass die Punkte auch woanders herkommen;-)

Gruß, Axel Strube-Zettler

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

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze

[Diese Nachricht wurde von mapcar am 22. Jul. 2004 editiert.]

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

---

Also , falls die Punkte woanders herkommen :
(vl-load-com)
(defun BREAK-PKT(L LISTE /  LASTOBJEKT)   
  (setq LASTOBJEKT(entlast))
  (command "_break" L (car LISTE) (car LISTE)) 
  (if (cdr LISTE)
    (progn
      (Break-PKT L (cdr LISTE))
      (if (entnext LASTOBJEKT)
        (Break-PKT (entnext LASTOBJEKT) (cdr LISTE))
      )
    )
  ) 
)
(defun BREAK-PKT0( L /  PKTL LISTE INDEX) 
  (if (setq PKTL (ssget "_x"  '((0 . "POINT"))))       
    (progn     
      (setq INDEX -1)
      (repeat (sslength PKTL)
        (setq LISTE (cons (cdr(assoc 10 (entget(ssname PKTL (setq INDEX (1+ INDEX)))))) LISTE))
      )
      (if(setq LISTE(vl-remove-if-not
                      '(lambda(X)     
                        (equal                     
                          (distance
                            (vlax-curve-getClosestPointTo (vlax-ename->vla-object L) X)
                            X                       
                          )
                          0.0
                          0.001
                        ) 
                      ) 
                      LISTE
                    ) 
        )     
        (Break-PKT L LISTE)
      )
    )
  )    
)
(defun c:BREAK-PKT( / L INDEX)
  (setvar "cmdecho" 0)
  (command "_ucs" "_w")
  (if (setq L (ssget '((0 . "LINE"))))
    (progn
      (setq INDEX -1)
      (repeat (sslength L)
        (BREAK-PKT0  (ssname L (setq INDEX (1+ INDEX))))
      )
    )
  )  
  (setvar "cmdecho" 1)
  (princ)
)

Aufruf mit BREAK-PKT.  -> Ist aber halt etwas langsam!

@Axel .. auch nur ein paar Zeilen Lisp 

------------------
- Thomas -

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

---

Hallo Leute,

Sorry das ich mich erst jetzt melde, war beruflich unterwegs. Vielen Dank für die Antworten, die Lisp-Routine war genau das was ich brauche. Funktioniert perfekt.

Danke nochmal

Gruß

Andreas

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

---

Jetzt habe ich doch noch eine Frage zu dem Lisp,

kann man diesen Befehl auch auf Bögen und Polylinien erweitern?

Gruß

Andreas

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

---

Mhmm, gerade getestet :

(vl-load-com)
(defun BREAK-PKT(L LISTE /  LASTOBJEKT)   
  (setq LASTOBJEKT(entlast))
  (command "_break" L (car LISTE) (car LISTE)) 
  (if (cdr LISTE)
    (progn
      (Break-PKT L (cdr LISTE))
      (if (entnext LASTOBJEKT)
        (Break-PKT (entnext LASTOBJEKT) (cdr LISTE))
      )
    )
  ) 
)
(defun BREAK-PKT0( L /  PKTL LISTE INDEX) 
  (if (setq PKTL (ssget "_x"  '((0 . "POINT"))))       
    (progn     
      (setq INDEX -1)
      (repeat (sslength PKTL)
        (setq LISTE (cons (cdr(assoc 10 (entget(ssname PKTL (setq INDEX (1+ INDEX)))))) LISTE))
      )
      (if(setq LISTE(vl-remove-if-not
                      '(lambda(X)     
                        (equal                     
                          (distance
                            (vlax-curve-getClosestPointTo (vlax-ename->vla-object L) X)
                            X                       
                          )
                          0.0
                          0.001
                        ) 
                      ) 
                      LISTE
                    ) 
        )     
        (Break-PKT L LISTE)
      )
    )
  )   
)
(defun c:BREAK-PKT( / L INDEX)
  (setvar "cmdecho" 0)
  (command "_ucs" "_w")
  (if (setq L (ssget '((0 . "LINE,*POLYLINE,ARC"))))
    (progn
      (setq INDEX -1)
      (repeat (sslength L)
        (BREAK-PKT0  (ssname L (setq INDEX (1+ INDEX))))
      )
    )
  ) 
  (setvar "cmdecho" 1)
  (princ)
)

------------------
- Thomas -

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

---

Super

Vielen Dank Thomas

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

---

dxfeasy.dwg.txt

Hallo !

Meine Frage zu dem tollen Lisp von CADMIUM: Kann man es so ändern dass einfach die Schnittpunkte von Linien als Brechpunkte genommen werden ?
Siehe angehängte Datei.

mfG
Peter

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

---

..programmierbar ist ne ganze Menge. Was ist dir der Mehrwert denn wert?

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

---

Hallo Thomas !

Ausser 100 Unities kann ich nichts anbieten.
Habe auch keine Ahnung wie groß der Aufwand für diese Programmierung ist.

mfG
Peter

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

---

Hallo Peter,

das Aufbrechen von Polylinien an Kreuzungspunkten mit anderen Linien würde einmal als Tool im AutoCAD-Magazin veröffentlicht.

Vielleicht hast du ja Zugriff darauf, ansonsten wende ich mal an das AutoCAD-Magazin. Das Tool war von einem gewissen Brischke??

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Hallo Holger,

ich hab das Magazin im Abo und bräuchte quasi nur noch eine kurze Hilfestellung in welcher Ausgabe das Aufbrechen-Tool war?!?! Weißt du das noch? Vielen Dank im voraus!

mfg
Matthias Mangold

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

---

Versuch mal das LSP "Kreuzungen" im Heft 2004/02 - ich glaube er hat das gemeint... (zumindest finde ich kein anderes, das in diese Richtung gehen würde..)

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

Thomas

Korrekturen zum Kochbuch AutoLISP

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

---

Dann leg mal die Tool-CD-der letzten Ausgabe ein .. wechsel dort in das Verzeichnis ACM-TOOLS und guck dir die Datei GESAMT.LST mal an... denke der Beitrag 02-2004 "Vorfahrt beachten"  mit "kreuzungen.lsp"  ist das gesuchte Teil ..

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