---

Hallo,
das Lisp soll eine waagerechte und eine senkrechte Polylinie verbinden (Dehnen).
Das hatte auch immer funktioniert.
-
  |

Neuerdings kommt die Meldung: "Fehler: Fehlerhafter Argumenttyp: lentityp nil" _explode
(Explode ist gar nicht im Lisp vorhanden!!!)

(defun c:VERL () 
  (setq pt 'T)
  (while pt
    (setq t1_0 (entsel "\n 1. Leitung: "))
    (setq t1_1 (car t1_0))
    (redraw t1_1 3) ;Linie ausleuchten!
    (setq t2_0 (entsel "\n 2. Leitung: "))
    (setq t2_1 (car t2_0))
    (redraw t2_1 3)
    (command "_extend" t1_0 t2_0 "" "K" "D" t1_0 t2_0)
    (if pt (command))
  )
  (redraw t1_1 4);Linie ausleuchten aus!
  (redraw t2_1 4)
  (princ)
)

Für Eure Unterstützung bedanke ich mich im Voraus.

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

---

Hallo vision,

such mal nach "command-s". Evtl. kann das helfen.

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

Jörg

da ich weiß daß ich nichts weiß weiß ich immer noch mehr als die die nicht wissen daß sie nichts wissen (weiß nicht von wem)

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

---

Zitat:

---

Original erstellt von vision:

Neuerdings kommt die Meldung: "Fehler: ... "

---

Erste Frage: was heißt "neuderdings". Was hat sich evtl. zwischen neuerdings und der Zeit, da es noch funktionierte geändert? (Software-Updade o.ä.).
Bei mir läuft Dein Code übrigens problemlos, daher ist Fehlersuche schwierig.
Laß es doch mal im LISP-Editor Schritt für Schritt abarbeiten, dann solltest Du sehen wo es klemmt.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 26. Mrz. 2016 editiert.]

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

---

Also ganz ehrlich, ich lese nur über einen 4,5 " Display ohne Acad mit,
Aber wenn das ordentlich funktioniert oder funktioniert hat, dan n ist es purer Zufall.
(die Spedition gleichen Namens soll es mir nicht übel nehmen).

PT ist IMMER war, war also läuft die völlig irrsinige Schleife(bezogen auf das erste Argument) immmer weiter..

Und die Übergane des erste. Elementes kann auch nur Murks sein. Wenn das läuft, dann hätte auch eine dreijährige wild auf dem Keyboard herum drücken können.

Ein Durchlauf wie gewünscht möglich, aber purer Zufall.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von cadffm:

Aber wenn das ordentlich funktioniert oder funktioniert hat, dan n ist es purer Zufall.

---

Mal abgesehen von der Sinnlosigkeit der Variablen pt (die while-Schleife wird bis zum gewaltsamen Abbruch mit ESC ohnehin immer wieder durchlaufen, das "(if pt (command))" könnte man sich komplett sparen, wenn man stattdessen die davor stehende command-Zeile mit einem abschließenden "" ergänzt). Ein sauberes "Beenden" zu programmieren wäre "schöner" gewesen, hat aber nichts mit der eigentlichen Frage zu tun.

Was mich überracht hat ist die Tatsache, daß der _extend-Befehl auf die Objektwahlanfragen die von entsel zurückgegebene Liste akzeptiert. Auf der Befehlszeilenebene kann ich das nicht nachvollziehen (also die von entsel zurückgegeben Listen in je einer Variablen v1 und v2 ablegen und dann den Stutzen-Befehl mit ebendiesen Variablen !v1 und !v2 füttern). Innerhalb dieser Routine funktioniert das erstaunlicherweise. Ich bin gerade am tüfteln, warum das da klappt. Im Moment habe ich das Kuddelmuddel noch nicht entflochten. Aber selbst das wäre ja noch keine Antwort auf die Eingangsfrage (warum Fehlermeldung und woher kommt der Hinweis auf _explode?).

Apropos "Zufall": man kann dem Zufall ein wenig auf die Sprünge helfen, wenn wann die beiden Linien jeweils an der Seite pickt wohin gedehnt werden soll (wie beim händisch dehnen).

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 27. Mrz. 2016 editiert.]

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

---

Sorry,
das Lisp ist schon etwas älter und hatte es damals so "zusammen gewurschtelt"!

Der Fehler mit EXPLODE kommt vermutlich daher, dass ich ein anderes Lisp-Prg. verändert hatte und ein COMMAND Befehl evtl. noch ansteht.

Wenn einer das Programm mal sinnvoll überarbeiten würde (z. B. Abbruch mit ESC und mit Rechtsklick) wäre Ostern gerettet!

Für Eure Unterstützung bedanke ich mich im Voraus.

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

---

Zitat:

---

Original erstellt von vision:

Wenn einer das Programm mal sinnvoll überarbeiten würde

---

Warum nimmst Du nicht einfach den Befehl Abrunden mit Radius 0. Mehr macht das "Programm" doch ohnehin nicht.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

---

Hallo,

die Polylinien müssen einzelne Polylinien bleiben.
Der Abrunden Befehl würde eine zusammen hängende Polylinie ergeben!

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

---

@Jupa
" Auf der Befehlszeilenebene kann ich das nicht nachvollziehen (also die von entsel zurückgegeben Listen in je einer Variablen v1 und v2 ablegen und dann den Stutzen-Befehl mit ebendiesen Variablen !v1 und !v2 füttern). "

Dann ist dir in dem Moment bestimmt ein Testfehler unterlaufen, selbst soetwas sollte (nur) ein Objekt auswerfen:
(1 2 3 <Objektname: 7ff6984080c0> "a" "b" <Objektname: 7ff698405da0> "c")

Da die Codezeilen oben zu 60% überflüssig oder zumindest verwirrend waren, lag ich mit meinem "puren Zufall" falsch.

@vision
Als Sorry hier nun eine etwas bessere Variante, jedoch nicht gut.
So ist in deinem Code und diesem hier auch möglich Kreise etc. zu wählen, zumindest dies sollte man ändern.

Code:

---

(defun c:VERL (/ obj1 obj2 *error*)
  (defun *error* (str)(if obj1 (redraw (car obj1) 4))(princ str)) ;Linie ausleuchten aus!
  (while (and
           (setq obj1 (entsel "\n 1. Leitung: "))
       (not(redraw (car obj1) 3)) ;Linie ausleuchten!
           (setq obj2 (entsel "\n 2. Leitung: "))
         )
    (command "_.extend" obj1 obj2 "" "_edge" "_extend" obj1 obj2 "")
  )
  (*error* "beendet")
(princ)
)

---

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Zitat:

---

Original erstellt von cadffm:

Dann ist dir in dem Moment bestimmt ein Testfehler unterlaufen,

---

In der Tat    , so ist es. Ich habe genau so getestet wie ich es geschrieben habe - wollte nämlich die zu kurz gezeichneten (Test)Linien mittels Stutzen verlängern. Kein Wunder, daß das nicht funktionierte. Da stand ich wohl ein wenig neben mir (Osterlikör?). Peinlich. Ich nehme also alles zurück was ich geschrieben habe ("Auf der Befehlszeilenebene kann ich das nicht nachvollziehen").
Der Codevorschlag von cadffm wird den TE sicherlich zufriedenstellen.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 29. Mrz. 2016 editiert.]

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

---

Hallo cadffm,

vielen Dank für das Programm! 

[Diese Nachricht wurde von vision am 29. Mrz. 2016 editiert.]

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