---

hi !

folgende aufgabenstellung möchte ich lösen:

aus einer (lw)polylinie soll ein mittlerer, durch zwei punkte definierter bereich, herausgelößt werden - dieser muss als ename weitergegeben werden können.

bei lw-polylinien habe ich folgenden weg beschritten:

----------------------------------------- (meine lwpolylinie)

mit befehl bruch die erste trennung durchgeführt

------X---------------------------------- (meine lwpolylinie)

entlast liefert dann das reststück !

      ---------------------------------- (meine lwpolylinie)

mit befehl bruch die zweite trennung durchgeführt

      --------------------X------------- (meine lwpolylinie)

entlast liefert dann das mittlere element.

mit den schwergewichtigen 2D/3D polylinien funktioniert das leider nicht !!!

hat er von euch eine idee hierzu ???

gruß Jan :-)

------------------
jan :-)

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

---

Hi Jan,
hast Du nur lineare Elemente in den Plines? Oder auch Bögen?
Ciao,
Marc

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

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

---

hallo marc,

sowohl als auch !

gruß Jan :-)

------------------
jan :-)

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

---

Hi Jan,
na dann habe ich nix für Dich :-(...
Ciao,
Marc

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

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

---

trotzdem danke !

------------------
jan :-)

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

---

Hallo Jan,
ich hatte ein ähnliches Problem, und ich habe es, da (entlast) nicht funktioniert, nicht besonders elegant gelöst. Ich Bilde einen Auswahlsatz mit allen Polylinien und Linien und vergleiche die Anfangs- und Endpunkte mit den Bruchpunkten. Bei Zeichnungen mit vielen Elementen bestimmt nicht  so toll, aber man kann den Auswahlsatz ja noch über bestimmte Layer eingrenzen.

;;;Mittelstück aus einer Polylinie, LW-Polylinie oder Spline heraustrennen
(defun JB_pl_m ( / aws pkt1 pkt2 obj n aws1)
  (setq pkt1 (getpoint "\nErsten Trennpunkt eingeben:")
pkt2 (getpoint "\nZweiten Trennpunkt eingeben:")
obj (entsel"\nBitte das zu trennende Element (Polylinie oder Linien):")
)
  (if (and(and pkt1 pkt2 obj)
  (or(=(cdr(assoc 0(entget (car obj))))"POLYLINE")(=(cdr(assoc 0(entget (car obj))))"LWPOLYLINE")
    (=(cdr(assoc 0(entget (car obj))))"LINE")))
    (progn
      (command "_.break" obj  "_f" pkt1  "@")
      (command "_.break" (list(entlast)pkt1)  "_f" pkt2  "@")
    (setq aws (ssget "X" (list(cons -4 "<OR")
              (cons 0 "LWPOLYLINE")
              (cons 0 "POLYLINE")
      (cons 0 "LINE")
              (cons -4 "OR>"))
    )
  n 0)
    (repeat (sslength aws)
      (if (or(and(<(distance(vlax-curve-getStartPoint (vlax-ename->vla-object (ssname aws n)))pkt1)0.000001)
                  (<(distance(vlax-curve-getEndPoint (vlax-ename->vla-object (ssname aws n)))pkt2)0.000001))
      (and(<(distance(vlax-curve-getStartPoint (vlax-ename->vla-object (ssname aws n)))pkt2)0.000001)
                  (<(distance(vlax-curve-getEndPoint (vlax-ename->vla-object (ssname aws n)))pkt1)0.000001)))
(setq aws1 (ssadd (ssname aws n))))
      (setq n (+ n 1)))
    )
    (alert "Fehler bei Auswahl")
    )
  (if aws1
    (redraw (ssname aws1 0) 3))
  (if aws1
  (ssname aws1 0)
  (princ)) 
  )

------------------
viele Grüße

Jörn

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