---

Hallo,

habe mir ein äußerst hilfreiches Lisp gebastelt welches mir einen Bogen, eine Linie oder ein Polylinie um "x" versetzt, die Enden verbinden und dann alles zu einer geschlossenen Polylinie verbindet.
Leider kommt in der AutoCAD-Befehlszeile (bedingt durch das Exit) immer eine unschöne Meldung

Befehl: ; Fehler: Beenden/Verlassen abbrechen

Prinzipiell läuft das Programm schon so wie gewünscht, was kann ich gegen die unschöne AutoCAD-Meldung machen bzw. wie kann man so eine Abfrage sinnvoller aufbauen? Das ich noch ein paar Schmankerl alla "Prüfen ob Polylinie bereits geschlossen ist" usw. einbauen muss ist klar, werde bei gelegenheit dahingehend weiterentwickeln.

DANKE vorab

Beste Grüße

Stefan

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

---

plc.lsp.txt

habs vorhin ums verrecken nicht geschafft, meine Lisp-Datei mit Hochzuladen.
Jetzt isse mit dran.

Glückauf

Stefan

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

---

hallo orchard,
statt der if-anweisungen verwende doch eine cond-anweisung:

(cond
  ((= (cdr (assoc 0 (entget auswahl))) "LWPOLYLINE")
    dein weiterer code
  )
  ((= (cdr (assoc 0 (entget auswahl))) "LINE")
    dein weiterer code
  )
  ((= (cdr (assoc 0 (entget auswahl))) "ARC")
    dein weiterer code
  )
  ('T (alert "kein passendes Objekt gewählt!"))
)

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Hallo Stefan,
folgender Vorschlag: Definiere eine lokale Variable "done" und wenn die Pedit-Anweisung fertig ist kommt nicht die Funktion (exit), sondern Du setzt die Variable (= done 'T).
Dann kannst Du zum Schluß abfragen, ob die Routine erfolgreich war oder nicht.

Code:

---

(defun c lc ( / done)

(setq auswahl (car(entsel "\nPolylinie/Linie/Bogen w?hlen: ")))

(if (=(cdr(assoc 0(entget auswahl))) "LWPOLYLINE")
    (progn
          (command "_offset" pause auswahl pause "")

          (setq versobj (entlast))

          (command "_line" (cdr(assoc 10(entget auswahl))) (cdr(assoc 10(entget versobj))) "")
          (setq VBO1 (entlast))

          (command "_line" (cdr(assoc 10(reverse(entget auswahl)))) (cdr(assoc 10(reverse(entget versobj)))) "")
          (setq VBO2 (entlast))

          (command "_pedit" auswahl "V" VBO1 VBO2 VERSOBJ "" "" )
        (setq done 'T)
         
    );end progn
);end if             

(if (=(cdr(assoc 0(entget auswahl))) "LINE")
    (progn
          (command "_offset" pause auswahl pause "")

          (setq versobj (entlast))

          (command "_line" (cdr(assoc 10(entget auswahl))) (cdr(assoc 10(entget versobj))) "")
          (setq VBO1 (entlast))

          (command "_line" (cdr(assoc 11(entget auswahl))) (cdr(assoc 11(entget versobj))) "")
          (setq VBO2 (entlast))

          (command "_pedit" auswahl "J" "V" VBO1 VBO2 VERSOBJ "" "" )
        (setq done 'T)
    );end progn
);end if

(if (=(cdr(assoc 0(entget auswahl))) "ARC")
    (progn
          (command "_offset" pause auswahl pause "")

          (setq versobj (entlast))

          (command "_line" (polar (cdr(assoc 10 (entget auswahl))) ;Mittelpunkt
                                  (cdr(assoc 50 (entget auswahl))) ;Winkel
                                  (cdr(assoc 40 (entget auswahl))) ;Radius
                          );end polar
                          (polar (cdr(assoc 10 (entget versobj))) ;Mittelpunkt
                                  (cdr(assoc 50 (entget versobj))) ;Winkel
                                  (cdr(assoc 40 (entget versobj))) ;Radius
                          );end polar
          "");end linie

          (setq VBO1 (entlast))

          (command "_line" (polar (cdr(assoc 10 (entget auswahl))) ;Mittelpunkt
                                  (cdr(assoc 51 (entget auswahl))) ;Winkel
                                  (cdr(assoc 40 (entget auswahl))) ;Radius
                          );end polar
                          (polar (cdr(assoc 10 (entget versobj))) ;Mittelpunkt
                                  (cdr(assoc 51 (entget versobj))) ;Winkel
                                  (cdr(assoc 40 (entget versobj))) ;Radius
                          );end polar
          "");end linie

          (setq VBO2 (entlast))

          (command "_pedit" auswahl "J" "V" VBO1 VBO2 VERSOBJ "" "" )
        (setq done 'T)
    );end progn
);end if

(if done
  (alert "Es hat alles funktioniert!")
  (alert "kein passendes Objekt gew?hlt!"))

)

---

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

Jörn
http://www.bosse-engineering.com

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

---

Hallo,

sorry für die späte Rückantwort. Das mit dem cond ist genau das was ich gesucht
habe. Leider komme ich "verständnistechnisch" mit der Funktion nicht ganz klar.
Nichtsdestotrotz habe ich meine Lisp umgeschrieben, noch ne Abfrage auf ne geschlossene
Polylinie eingebaut und jetzt bin ich zufrieden mit der Lisp.

Besten Dank

Gruß Stefan

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