---

Hab da mal aus dem Forrum advert.lsp, Marc Scherer hat da bereits ein paar Modifikationen vorgenommen, getestet und habe dass kleine Problem, dass die Linien geteilt werden am neuen Punkt.

Wollte fragen ob das bei euch auch so ist und ob dieser Fehler wegprogrammierbar wäre ?

Code:

---

;;; ADVERT.LSP Add a Vertex (c)1995, Steve Houghton
;;;revised 3/23/95 to ensure new vertex is at crosshairs
;;;thanks to Patrick Wheatley
;;;Inserts a vertex in a polyline. If a line is selected, it offers to convert
;;;it to a polyline and then insert the vertex.
;;;Will report: At least one break point must be on polyline. if the end of
;;;a polyline is chosen

;;; Modifiziert und übersetzt für den ZVO
;;; am 30.05.2002 by Marc Scherer
;;;***************************************************************************

(defun C:ADVERT (/ OB OC OO OH
POLYLINE POLYNAME PICKPOINT POLYDXF ENTTYPE
LASTENT NEWVERT OLDERR ANSWER
)

(princ
"\nKontrollpunkt in Polylinie einfügen und neu positionieren..."
) ;_ end princ

(defun MC_ERR (MSG)
(princ
(strcat "\nFehler, Acad meldet: \"" MSG "\" als Ursache!")
) ;_ end princ
(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR
MC_ERR NIL
OLDERR NIL
) ;_ end setq
(princ)
) ;_ end defun
;_ *set all env variables,
;_ *osmode to avoid conflicts with the osnap
;_ *blipmode to make her pretty
(setq OO (getvar "OSMODE")
OB (getvar "BLIPMODE")
OH (getvar "HIGHLIGHT")
OC (getvar "CMDECHO")
OLDERR *ERROR*
*ERROR* MC_ERR
) ;_ end setq
;_ *vertext insert routine
(setvar "OSMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "HIGHLIGHT" 0)
(setvar "CMDECHO" 0)

(while (setq POLYLINE
(entsel
"\nPolylinie anklicken wo ein Kontrollpunkt erzeugt werden soll: (R.klick=Ende)"
) ;_ end entsel
) ;_ end setq
(setq POLYNAME (car POLYLINE)
PICKPOINT (osnap (cadr POLYLINE) "_nea")
POLYDXF (entget POLYNAME)
ENTTYPE (cdr (assoc 0 POLYDXF))
) ;_ end setq

(if (wcmatch ENTTYPE "*POLYLINE")
(INSERTVERT)
(if (= ENTTYPE "LINE")
(progn
(initget "Ja Nein")
(setq ANSWER
(getkword
(strcat
"\n>>>>>>>>>>>>>>>>>> Linie gewählt! <<<<<<<<<<<<<<<<<<<<<<<<<<<<"
"\nSoll diese Linie zur Polylinie gemacht werden? [Ja/Nein] <Ja> "
) ;_ end strcat
) ;_ end getkword
) ;_ end setq
(if (not ANSWER)
(setq ANSWER "Ja")
) ;_ end if
(cond
((= ANSWER "Nein")
(princ "\nLinie nicht in Polylinie konvertiert!")
)
(t
;_ *turn current line into a polyline
(command "_.pedit" POLYNAME "_y" "")
(INSERTVERT)
)
) ;_ end cond
) ;_ progn

(princ
"\nDas gewählte Objekt war keine Polyline oder Linie."
) ;_ end princ
) ;_ if
) ;_ if
) ;_ while

(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR)
(princ)
) ;_ end advert.lsp

(defun INSERTVERT ()
;_ *ensure that last entity is not a compound entity
;_ *by creating a simple temporary entity as the last entity in the
;_ *database this way we can be sure that the next two entities
;_ *will be the two new polylines created by breaking the current
;_ *polyline
(entmake (list '(0 . "POINT") (cons 10 (getvar "VSMIN"))))
(setq LASTENT (entlast))
;_ *breaks polyline at pickpoint
(command "_.break" POLYNAME PICKPOINT PICKPOINT)

;_ *(entnext lastent) will be the next polyline created after lastent
;_ *(entlast) will be the other polyline created
;_ *so now join the two and we have a polyline with the new vertex
;_ *inserted
(command "_.PEDIT"
(entnext LASTENT)
"_join"
(entlast)
""
"_exit"
) ;_ end command
;_ *get rid of temporary point
(entdel LASTENT)
(princ "\nBitte den neuen Kontrollpunkt positionieren: ")
(setq NEWVERT (osnap PICKPOINT "_int,_near"))
(command "_.STRETCH" "_C" NEWVERT NEWVERT "" PICKPOINT PAUSE) ;_ end command
;_ end command
;_ end COMMAND
) ;_ end defun

(princ)

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Servus

Macht bei mir das gleiche. Aber wenn hinaut ist das genial.

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

  Bernd P.     

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

---

Hi,
habt's Ihr Bögen in Euren Plines?
Wenn nicht, habe ich 'ne funktionierende Routine zum Einfügen und löschen von Kontrollpunkten...

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

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

---

Bögen sind eigentlich sehr sehr sehr selten da.

Kannst du bitte die Routine posten oder via PM schicken ?

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

@marc.scherer

wäre sehr gespannt auf deine Problemlösung.

-------
Gruß Eva

Zitat:

---

Original erstellt von marc.scherer:
Hi,
habt's Ihr Bögen in Euren Plines?
Wenn nicht, habe ich 'ne funktionierende Routine zum Einfügen und löschen von Kontrollpunkten...

---

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

---

Hallo Proxy,

ich habe das Programm einmal abgeändert, sodaß es auch mit LWPOLYLINE's zurechtkommt. Mit den alten POLYLINE's funktionierte es vorher schon.

Ich hoffe es hilft dir weiter.

Gruß
Helmut

;;;Inserts a vertex in a polyline. If a line is selected, it offers to convert
;;;it to a polyline and then insert the vertex.
;;;Will report: At least one break point must be on polyline. if the end of
;;;a polyline is chosen
;;; Modifiziert und übersetzt für den ZVO
;;; am 30.05.2002 by Marc Scherer
;;;***************************************************************************

(defun C:ADVERT (/
OB OC OO OH
POLYLINE POLYNAME PICKPOINT POLYDXF ENTTYPE
LASTENT NEWVERT OLDERR ANSWER
)

(princ
"\nKontrollpunkt in Polylinie einfügen und neu positionieren..."
) ;_ end princ

(defun MC_ERR (MSG)
(princ
(strcat "\nFehler, Acad meldet: \"" MSG "\" als Ursache!")
) ;_ end princ
(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR
MC_ERR NIL
OLDERR NIL
) ;_ end setq
(princ)
) ;_ end defun
;_ *set all env variables,
;_ *osmode to avoid conflicts with the osnap
;_ *blipmode to make her pretty
(setq OO (getvar "OSMODE")
OB (getvar "BLIPMODE")
OH (getvar "HIGHLIGHT")
OC (getvar "CMDECHO")
OLDERR *ERROR*
*ERROR* MC_ERR
) ;_ end setq
;_ *vertext insert routine
(setvar "OSMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "HIGHLIGHT" 0)
(setvar "CMDECHO" 0)

(while (setq POLYLINE
(entsel
"\nPolylinie anklicken wo ein Kontrollpunkt erzeugt werden soll: (R.klick=Ende)"
) ;_ end entsel
) ;_ end setq
(setq POLYNAME (car POLYLINE)
PICKPOINT (osnap (cadr POLYLINE) "_nea")
POLYDXF (entget POLYNAME)
ENTTYPE (cdr (assoc 0 POLYDXF))
) ;_ end setq

(if (wcmatch ENTTYPE "*POLYLINE")
(INSERTVERT)
(if (= ENTTYPE "LINE")
(progn
(initget "Ja Nein")
(setq ANSWER
(getkword
(strcat
"\n>>>>>>>>>>>>>>>>>> Linie gewählt! <<<<<<<<<<<<<<<<<<<<<<<<<<<<"
"\nSoll diese Linie zur Polylinie gemacht werden? [Ja/Nein] <Ja> "
) ;_ end strcat
) ;_ end getkword
) ;_ end setq
(if (not ANSWER)
(setq ANSWER "Ja")
) ;_ end if
(cond
((= ANSWER "Nein")
(princ "\nLinie nicht in Polylinie konvertiert!")
)
(t
;_ *turn current line into a polyline
(command "_.pedit" POLYNAME "_y" "")
(INSERTVERT)
)
) ;_ end cond
) ;_ progn

(princ
"\nDas gewählte Objekt war keine Polyline oder Linie."
) ;_ end princ
) ;_ if
) ;_ if
) ;_ while

(setvar "OSMODE" OO)
(setvar "BLIPMODE" OB)
(setvar "HIGHLIGHT" OH)
(setvar "CMDECHO" OC)
(setq *ERROR* OLDERR)
(princ)
) ;_ end advert.lsp

(defun INSERTVERT ()

 
;_ *ensure that last entity is not a compound entity
;_ *by creating a simple temporary entity as the last entity in the
;_ *database this way we can be sure that the next two entities
;_ *will be the two new polylines created by breaking the current
;_ *polyline
(entmake (list '(0 . "POINT") (cons 10 (getvar "VSMIN"))))
(setq LASTENT (entlast))
;_ *breaks polyline at pickpoint

(command "_.break" POLYNAME PICKPOINT PICKPOINT)

;_ *(entnext lastent) will be the next polyline created after lastent
;_ *(entlast) will be the other polyline created
;_ *so now join the two and we have a polyline with the new vertex
;_ *inserted

  (cond ((equal ENTTYPE "POLYLINE")
(command "_.PEDIT"(entnext LASTENT)"_join"(entlast)"""_exit") ;_ end command
          ;_ *get rid of temporary point
          (entdel LASTENT)
)
((equal ENTTYPE "LWPOLYLINE")
(command "_.PEDIT" POLYNAME "_join"(entlast)"""_exit") ;_ end command
          ;_ *get rid of temporary point
        (entdel LASTENT)
)
  );cond
 

 
(princ "\nBitte den neuen Kontrollpunkt positionieren: ")
(setq NEWVERT (osnap PICKPOINT "_int,_near"))
(command "_.STRETCH" "_C" NEWVERT NEWVERT "" PICKPOINT PAUSE) ;_ end command
;_ end command
;_ end COMMAND
) ;_ end defun

(princ)

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

---

Hi Mädelz,
ich habe eine Woche Urlaub.
Wenn ich nexte Woche wieder da bin, gehen die Routinen an Euch raus...

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

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

---

Schönen Urlaub und 10 Untis für die abgeänderte Version.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Hi,
wie versprochen...
Testet es mal, ist aus mindestens 4 Lisp-Dateien rausgelöst, funzte bei mir aber problemlos...
http://people.freenet.de/ConcreteDonkey/PLVERT.lsp

..

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

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

---

Hi,
äh... Hat das Pgm mal einer getestet?
Würde gerne wissen, wie das so ankommt/funzt...

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

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

---

hallo marc wollte es testen kommt folgende Meldung

Befehl: advert
; Fehler: Es ist ein Fehler innerhalb der *error*-Funktion
aufgetreten.Einstellung für AutoCAD-Variable zurückgewiesen: "osmode" nil

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

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

---

Hi Dober Heinz,
komisch. Funzt bei mir problemlos... Wann tritt der Fehler bei Dir denn auf?

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

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

---

gleich beim starten kann gar nicht audgeführt werden das lisp

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

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

---

Hi Dober Heinz,
hast Du diese Datei downgeloadet? http://people.freenet.de/ConcreteDonkey/PLVERT.lsp

Die lädt absolut problemlos. Dann hast Du 'nen Fehler gemacht.

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

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

---

ja habe ich
versuche es noch mal neu zu laden ok
gebe dir bescheid

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

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

---

hallo marc habe Autocad neu gestartet, jetzt läuft es super lisp
dafür gibt es 10 u

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

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

---

Hi Dober Heinz,
das es da noch eine Funktion "DELVERT" gibt, hast Du auch gesehen?

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

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

---

ja ist super das lisp ein grosse lob
heinz

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

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

---

Bei mir funktioniert es ganz gut. Aber bei den Bögen gibt es Probleme kann man das vieleicht ändern, das es mit den Bögen auch geht.

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

---

Hi,
ja... das Problem mit den Bögen...
CADmium und ich haben auf der CAT.Pro beschlossen das mal in einem Gemeinschaftsprojekt einzubauen. Also, da kommt noch mal was. Aber wann genau weiß ich noch nicht. Stay tuned :-)

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

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

---

Ich möchte zum Einfügen von Stützpunkten mal einen etwas anderen Vorschlag machen: Der Befehl KNICKEN fügt interaktiv Stützpunkte in eine Linie oder LWPolylinie ein (für alte Polylinien ist er nicht implementiert). Beim Anwenden auf eine Linie entstehen 2 Linien, aber keine Polylinie. Beim Anwenden auf eine LWPolylinie wird ein neuer Stützpunkt eingefügt. Das funktioniert auch bei Bogensegmenten prima, aber nicht alles, was funktioniert, macht Sinn! Die Anwendung auf Bögen ist einfach ziemlich sinnlos.

Wie immer ohne Errorhandling (wo der Handler eingebaut werden muss, ist kommentiert). Zum Ausprobieren sollte der Ofang abgeschaltet und nur von Fall zu Fall benutzt werden. Vielleicht hat ja jemand Lust, den Teil für die HeavyWeight-PLs noch zu ergänzen und ein richtiges Tool draus zu machen. Richtig getestet ist das Ganze übrigens auch nicht.

Der Code ist reichlich lang, da ich vollständig darauf verzichtet habe, irgendwelche allgemeinen Bibliotheksfunktionen zu verwenden.

Gruß, Axel Strube-Zettler

Code:

---

(defun c:knicken( / selected ent edata pp xordraw get-pt line lwpolyline addvtx lwgetvtcs getdist lwgetsegno)
  (defun xordraw(p1 p2 p3 / )
    (grdraw p1 p3 -1)
    (grdraw p2 p3 -1)
  )

  (defun get-pt(p1 p2 / p pp)
    (setq pp(grread'T 1))
    (xordraw p1 p2(cadr pp))
    (while(= 5(car(setq p(grread 'T 1))))
      (xordraw p1 p2(cadr pp))
      (xordraw p1 p2(cadr p))
      (setq pp p)
    )
    (xordraw p1 p2(cadr pp))
    (if(= 3(car p))p)
  )

  (defun line( / p3 p10 p11)
    (if(setq p3(cadr(get-pt(setq p10(cdr(assoc 10 edata)))(setq p11(cdr(assoc 11 edata))))))
      (progn
        (entmake(subst(cons 10 p3)(assoc 10 edata)edata))
        (entmod(subst(cons 11 p3)(assoc 11 edata)edata))
      )
    )
  )

  (defun lwpolyline( / vtcs seg p3 p10 p11 n)
    (setq seg(lwgetsegno edata(setq vtcs(lwgetvtcs edata))pp))
    (setq n 0)
    (repeat 4
      (setq vtcs(append vtcs(list(nth n vtcs))))
      (setq n(1+ n))
    )
    (setq p3
      (cadr
        (get-pt
          (setq p10(cdr(nth(* 4 seg)vtcs)))
          (setq p11(cdr(nth(* 4(1+ seg))vtcs)))
        )
      )
    )
    (addvtx edata vtcs p3 seg)
  )

  (defun addvtx(edata vtcs p10 nr / result)
    (while(/=(caar edata)10)
      (setq result(cons(car edata)result)edata(cdr edata))
    )
    (repeat(* 4(1+ seg))
      (setq result(cons(car edata)result))
      (setq edata(cdr edata))
    )
    (setq result
      (append(reverse result)
        (list
          (cons 10 p10)
          (nth(+ 1(* 4(1+ seg)))vtcs)
          (nth(+ 2(* 4(1+ seg)))vtcs)
          (nth(+ 3(* 4(1+ seg)))vtcs)
        )
      )
    )
    (setq edata(append result edata))
    (setq edata
      (subst
        (cons 90(1+(cdr(assoc 90 edata))))
        (assoc 90 edata)
        edata
      )
    )
    (entmod edata)
  )

  (defun lwgetvtcs(edata / )
    (vl-remove-if-not
      (function(lambda(v / )(member(car v)'(10 40 41 42))))
      edata
    )
  )

  (defun getdist(ent pt / )
    (vlax-curve-getDistAtPoint(vlax-ename->vla-object ent)pt)
  )

  (defun lwgetsegno(edata vtcs pp / result count dist)
    (setq count -1)
    (setq dist(getdist ent pp))
    (while(not result)
      (if(or(null vtcs)(>(getdist ent(cdar vtcs))dist))
        (setq result count)
        (setq count(1+ count)vtcs(cddddr vtcs))
      )
    )
    result
  )

  ;; Hauptprogramm

  ;(StartErrorHandler ...)
  (setq selected(entsel))
  (setq ent(car selected))
  (setq edata(entget ent))
  (setq pp(vlax-curve-getClosestPointTo ent(cadr selected)))
  (if(member(cdr(assoc 0 edata))'("LINE""LWPOLYLINE"))
    ((eval(read(cdr(assoc 0 edata)))))
  )
  ;(EndErrorHandler ...)
  (princ)
)

---

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

[Diese Nachricht wurde von mapcar am 16. Okt. 2004 editiert.]

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

---

Hi Ho Axel (mapcar),
aufgrund einer Anfrage in einem anderen Forum habe ich noch mal Deinen Abschluß-Code probiert.
Du verwendest 'ne geschützte (weil interne) Funktion "getdist".
Ich hab' das mal ausgetauscht...
Hier also noch mal mapcars Code, jedoch OHNE Überschreibung einer Funktion:

Code:

---

(defun c:knicken( / SEG SELECTED)
  (defun xordraw(p1 p2 p3 / )
    (grdraw p1 p3 -1)
    (grdraw p2 p3 -1)
  )
  (defun get-pt(p1 p2 / p pp)
    (setq pp(grread'T 1))
    (xordraw p1 p2(cadr pp))
    (while(= 5(car(setq p(grread 'T 1))))
      (xordraw p1 p2(cadr pp))
      (xordraw p1 p2(cadr p))
      (setq pp p)
    )
    (xordraw p1 p2(cadr pp))
    (if(= 3(car p))p)
  )

  (defun line( / p3 p10 p11)
    (if(setq p3(cadr(get-pt(setq p10(cdr(assoc 10 edata)))(setq p11(cdr(assoc 11 edata))))))
      (progn
        (entmake(subst(cons 10 p3)(assoc 10 edata)edata))
        (entmod(subst(cons 11 p3)(assoc 11 edata)edata))
      )
    )
  )

  (defun lwpolyline( / vtcs seg p3 p10 p11 n)
    (setq seg(lwgetsegno edata(setq vtcs(lwgetvtcs edata))pp))
    (setq n 0)
    (repeat 4
      (setq vtcs(append vtcs(list(nth n vtcs))))
      (setq n(1+ n))
    )
    (setq p3
      (cadr
        (get-pt
          (setq p10(cdr(nth(* 4 seg)vtcs)))
          (setq p11(cdr(nth(* 4(1+ seg))vtcs)))
        )
      )
    )
    (addvtx edata vtcs p3 seg)
  )

  (defun addvtx(edata vtcs p10 nr / result)
    (while(/=(caar edata)10)
      (setq result(cons(car edata)result)edata(cdr edata))
    )
    (repeat(* 4(1+ seg))
      (setq result(cons(car edata)result))
      (setq edata(cdr edata))
    )
    (setq result
      (append(reverse result)
        (list
          (cons 10 p10)
          (nth(+ 1(* 4(1+ seg)))vtcs)
          (nth(+ 2(* 4(1+ seg)))vtcs)
          (nth(+ 3(* 4(1+ seg)))vtcs)
        )
      )
    )
    (setq edata(append result edata))
    (setq edata
      (subst
        (cons 90(1+(cdr(assoc 90 edata))))
        (assoc 90 edata)
        edata
      )
    )
    (entmod edata)
  )

  (defun lwgetvtcs(edata / )
    (vl-remove-if-not
      (function(lambda(v / )(member(car v)'(10 40 41 42))))
      edata
    )
  )

  (defun getdistance (ent pt / )
    (vlax-curve-getDistAtPoint(vlax-ename->vla-object ent)pt)
  )

  (defun lwgetsegno(edata vtcs pp / result count dist)
    (setq count -1)
    (setq dist(getdistance ent pp))
    (while(not result)
      (if(or(null vtcs)(>(getdistance ent(cdar vtcs))dist))
        (setq result count)
        (setq count(1+ count)vtcs(cddddr vtcs))
      )
    )
    result
  )

  ;; Hauptprogramm

  ;(StartErrorHandler ...)
  (setq selected(entsel))
  (setq ent(car selected))
  (setq edata(entget ent))
  (setq pp(vlax-curve-getClosestPointTo ent(cadr selected)))
  (if(member(cdr(assoc 0 edata))'("LINE""LWPOLYLINE"))
    ((eval(read(cdr(assoc 0 edata)))))
  )
  ;(EndErrorHandler ...)
  (princ)
)

---

...

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

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

---

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

Gibt es denn auch die Möglichkeit Einfügepunkte zu löschen?

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

---

mit 2011 kannst das alles bereits direkt machen; einfach den Cursor auf dem Stützpunkt "parken" (nicht klicken) und schon werden Dir verschiedene Optionen angezeigt

------------------
Grüße Karin

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

---

Okay... wie versteckt manche Dinge sind-Danke

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

---

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

Für alle die diese Routine noch benutzen (wie ich).
Ich habe nach vielen Jahren herausgefunden, warum sie bei LWPolylines mit Erhebung nicht funktioniert.
In der Subroutine "lwgetsegno" muss die Zeile

Code:

---

(if(or(null vtcs)(>(getdistance ent(cdar vtcs))dist))

---

so lauten:

Code:

---

if(or(null vertcs)(>(getdistance ent(append (cdar vertcs) (list (nth 2 pp))))dist))

---

Dadurch bekommt der Punkt

Code:

---

(cdar vertcs)

---

eine Höhe.
Sonst ergibt

Code:

---

getdistance

---

immer NIL.

Mann, da hab' ich über Jahre immer wieder dran überlegt. War aber nie wichtig genug.

Viele Grüße,

Stefan 

[Diese Nachricht wurde von s.wickel am 13. Jan. 2021 editiert.]

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

---

Hallo

Habe leider gemerkt dass dieser Befehl in neuere AutoCad manchmal einwenig spinnt...

Kann jemand Knicken.lsp für neuer Versionen optimieren?

danke

------------------
ADT 2006

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