---

weis jemand, ob es für autocad 2000 ein tool gibt, mit dem man eine polylinie automatisch in 100m lange einzelsegmente zerlegen kann? also eine kombination aus messen und bruch, die automatisch durchläuft. habe so etwas bisher nur für das teilen von linien gefunden, aber dies hilft uns nicht weiter (wir brauchen feste einzelne 100m abschnitte, denen sachdaten zugewiesen werden sollen).

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

---

hallo jörg.

ist echt merkwürding, das niemand eine lösung für so eine einfach aufgabe hat. wenn ich lisp könnte hätte ich dir ein paar zeilen geschrieben.

------------------
herzliche grüße aus göttingen
matthias
____________________________________
      g.matthias@gmx.de

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

---

Zitat:

---

Original erstellt von matgehrke:
...ist echt merkwürding, das niemand eine lösung für so eine einfach aufgabe hat. wenn ich lisp könnte hätte ich dir ein paar zeilen geschrieben.

---

Hallo matgehrke,

ja, wenn du Lisp könntest, dann hättest du das nicht geschrieben, denn das ist nicht mit 5 Zeilen erledigt.
Der Knackpunkt: Eine Polylinie, wenn diese gebrochen wird, bekommt einen neuen Elementnamen. Ebenso, die dadurch neu erzeugte Polylinie. Dies muss irgendwie in dem Programm beachtet werden.

Machbar ist das, keine Frage, aber es ist ein gewisser Aufwand.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Servus

Is a bisserl Handarbeit aber:

Sieh dir die Befehle "Teilen" u. "Messen" an.

teilen markiert die PLinie in Anzahl X (z.B. 5 Stück)
messen markiert die Plinie in Abstand X (z.B. 100 Meter)

------------------
Same shit, different DAU. DAU Jones

  Bernd P.     

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

---

hallo bernd.

schon klar, ich bekommen mit MESSEN genau die richtigen bruchpunkte auf der linie eingetragen, jedoch bei linienlängen von mehreren tausend einheiten ist es anschließend mit BRUCH doch sehr mühsam.

ich dachte nur es gäbe einen einfachen weg ohne viel programmieraufand. schade, wenn dem halt nicht so ist.

------------------
herzliche grüße aus göttingen
matthias
____________________________________
      g.matthias@gmx.de

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

---

Anbei mal ein Grundgerüst für so ein Tool,

(defun DistBreak ( KURVE DIST / LASTOBJEKT PKT vla-Kurve)
  (if (and (=(type KURVE) 'ENAME) (=(cdr(assoc 0  (entget KURVE))) "LWPOLYLINE")
  (numberp DIST) 
      )  
    (progn
      (setvar "cmdecho" 0)
      (setq vla-Kurve (vlax-ename->vla-object KURVE))
      (if (< DIST
              (abs (vlax-curve-getdistatpoint  VLA-KURVE
                                              (vlax-curve-getENDpoint VLA-KURVE)
                  )
              )
          )
(progn
  (setq a 0)
          (setq LASTOBJEKT (entlast))  
          (setq PKT (vlax-curve-getPointAtDist KURVE DIST))
          (command "_break" KURVE PKT PKT)
          (While (setq KURVE (entnext LASTOBJEKT))
    (setq LASTOBJEKT KURVE)    
    (DISTBREAK KURVE DIST)
  )  
) 
      )
      (setvar "cmdecho" 1)
    )   
  )
)
   
Aufruf dann z.B. mit
(distbreak (car(entsel)) 100000)

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

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

---

Hallo jime,
wie wäre es mit dem Befehl Reihe? Neue einzelne Linien mit genau DER Länge und einem Abstand erzeugen.
Viel Spaß noch

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

---

..@Axel : überleg mal noch mal, oder hat ist bei dir eine Polylinie immer eine Strecke ( Anstieg Konstant ) auf der einfach nur ein paar Punkte abgesetz sind. Also bei mir kann diese Bögen, Knicke usw enthalten..un da ist wohl mit "Reihe" nichts

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

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

---

@ thomas: besten dank für den kommentar. es geht um eine straßenplanung - die ist in der tat nicht gerade.

------------------
herzliche grüße aus göttingen
matthias
____________________________________
      g.matthias@gmx.de

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

---

@ thomas:
vielen dank - funktioniert genau so, wie beschrieben. der praktikant, die die linien nachzeichnen sollte freut sich riesig :-)

------------------
herzliche grüße aus göttingen
matthias
____________________________________
      g.matthias@gmx.de

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

---

DIVIDE.lsp.txt

Moin,
ich habe da mal eine Zwischenfrage:
Es gibt ein Lisp, das eine Kombination aus Teilen und Bruch sein soll. Vielleicht könnte es helfen, aber es läuft nicht, und man kann das Lisp nicht mit dem normalen Editor editieren   . Was ist das? Verarsche? Vielleicht kann ein geübter Cadfachmann das mal überprüfen...

Lothar

[Diese Nachricht wurde von Kramer24 am 04. Mrz. 2004 editiert.]

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

---

@Kramer ... das ist ein "AutoCAD PROTECTED LISP file" , da wollte einer sein KnowHow - ob schützenswert oder nicht sollen andere beurteilen - schützen.
Meine Empfehlung : Schmeiß das Lisp weg, da es nach deiner Aussage eh nicht läuft! .. Bei so einer Aufgabenstellung geht neuschreiben meist sowieso schneller als suchen bzw.Fehlersuchen !

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

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

---

das Lisp kannst du vergessen, da es 1. falsch programmiert wurde,
2. nur für den Amerikanischen Markt gemacht wurde und 3. nur mit linien arbeitet.

@ Kramer24 - klopp das Teil in die Tonne - ist keinerlei Beachtung Wert

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Versuchen Sie DivBreak - siehe Download an www.cadforum.cz

Vladimir Michl, Xanadu, www.xanadu.cz

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

---

versuch es mal hiermit

(defun c:BTel(/ entity SegLn Letztes Pts cmd kw Segmente ss count)

  (setq osmd (getvar "osmode"))
  (setvar "osmode" 0)

  (setq ss (ssget "_I"))
  (if ss
    (if (= 1 (sslength ss))
        (setq entity (ssname ss 0))
    )
  )
  (if (not entity)
    (if (setq entity (entsel "\nObjekt wählen"))
        (setq entity (car entity))
    )
  )
  (if entity (progn
    (initget "M T")
    (setq kw (getkword "\nMessen/Teilen: ")
          cmd (getvar "cmdecho")
          Letztes (entlast)
    )
    (setvar "cmdecho" 0)

    (if (= "M" kw)(progn
      (setq SegLn (getdist "\nLänge der Segmente: "))
      (command "_measure" entity SegLn)
    )(progn
      (setq Segmente (getint "\nAnzahl der Segmente: "))
      (command "_divide"  entity Segmente)
    ))
    (setq Pts(SammlePunkte Letztes)
          count (length pts)
    )
    (if Pts (progn
      (Brechen entity Pts)

      ;-- Lösche die Punkte die AutoCAD durch _MEASURE _DIVIDE einfügte
      (mapcar 'entdel pts)
    ))
    (setvar "cmdecho" cmd)
  ))
  (if (= "M" kw)
    (mapcar 'princ (List "\nEs wurden " (1+ count) " Einzelstücke erzeugt"))
    (princ "Fertig!")
  )
  (setvar "osmode" osmd)
  (princ)
)

; Aufbrechen der Polylinie <pl> an den Punkten die durch
; die Liste der Entitynamen <pts> angegeben sind
(defun Brechen(pl pts / en n)
  (foreach n pts
    (command "_break" pl (cdr (assoc 10 (entget n))) "@")
    (setq pl (entlast))
  )
)

   
; <en> ist entlast bevor die Punkte eingefügt wurden
; Result: Liste der Elementnamen aller Punkte
(defun SammlePunkte(en / result )
(while (setq en(entnext en))
  (setq result (cons en result))
)
(reverse result)
)

------------------
Gruß Heidi

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

---

finde ich wirklich super, wieviele hilfreiche tipps und lösungen hier geboten werden! die lsp von heidi ist genau das was ich gesucht habe, vielen herzlichen dank dafür.
jetzt müssen wir für den lehrling glatt neue arbeit suchen :-)

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Das wär genau das wonach ich gesucht habe, aber wie kann ich das denn nun benutzten??? hab keine Ahnung von programmieren, oä...
ich weiß der beitrag ist schon etwas älter, aber vll sieht es ja jmd!?

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

---

Hallo und willkommen auf cad.de

also hier mal zum Thema LISP laden

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

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist nur die Spitze des Berges der da treibt ?

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

---

vielen Dank für die schnelle Antwort! ICh hoffe das bekomme ich hin 

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