---

Hallo

Habe Probleme mit Layer-Löschen.
Das kleine Lisp filtriert alle Elementen von einem Layer.
Nachträglich möchte noch Elementen entfernen oder hinzufügen.
Doch leider mit "//"=Benützereingabe geht es nicht.
Oder mit vorher, die letzte Auswahl geht nicht im Befehl _erase.
Kann mir jemand helfen.

Danke, Gruss Nano

(SETQ bauLelem nil)
(while (= bauLelem nil)
(SETQ bauLelem (ENTSEL "\nWählen Elemente die gelöscht werden: ")))
(SETQ bauLelem0 (CDR (ASSOC 8 (ENTGET (CAR bauLelem)))))
(SETQ bauLelem1 (SSGET "_X" (LIST (CONS 8 bauLelem0))))
(COMMAND "_erase" bauLelem1 "//")

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

---

mal auf die schnelle:

(while(SETQ bauLelem (ENTSEL "\nWählen Elemente die gelöscht werden: "))
  (SETQ bauLelem0 (CDR (ASSOC 8 (ENTGET (CAR bauLelem)))))
  (if(SETQ bauLelem1 (SSGET "_X" (LIST (CONS 8 bauLelem0))))
    (sssetfirst bauLelem1 bauLelem1)
    (setq bauLelem1 (ssget))       
  ) 
  (COMMAND "_erase" bauLelem1 "")     
)

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Thomas

Hier schicke ich noch das ganze Lisp,
Weil vielleicht muss du das Ganze sehen.
Das Hinzufügen und Entfernen geht,
doch es sprint mir nicht mehr zurück
ins Fenster.

Wählen Elemente die gelöscht werden:

*Ungültige Auswahl*
Erwartet einen Punkt oder
Fenster/Letztes/Kreuzen/QUADER/ALLE/Zaun/FPolygon/KPolygon/Gruppe
; Fehler: Funktion abgebrochen

Bericht:

Objekte wählen: _r
Objekte entfernen: Entgegengesetzte Ecke angeben: 1 gefunden, 1 entfernt

Objekte entfernen: _a
Objekte wählen: Entgegengesetzte Ecke angeben: 1 gefunden, 6 gesamt

Objekte wählen:

Gruss Nano

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

---

Hallo Thomas

Habe vergessen

(DEFUN BAULOESCH()
(SETQ BAULOESCHEND (LOAD_DIALOG "C:/00 Mariano Garcia/ProHLK/Fenster/BAULOESCHEND.dcl"))
(IF (NOT (NEW_DIALOG "BAULOESCHEND" BAULOESCHEND))(exit))
(IF (= bauloeschen1 nil)(mode_tile "bauzurueck" 1)(mode_tile "bauzurueck" 0))
(START_IMAGE "ProHLK2D_dia")
(SETQ ProHLK2D_dia "C:/Programme/ProHLK/Dia/ProHLK2D.sld")
(SLIDE_IMAGE -20 -20 80 80 ProHLK2D_dia)
(END_IMAGE)
(START_IMAGE "ProHLK3D_dia")
(SETQ ProHLK3D_dia "C:/Programme/ProHLK/Dia/ProHLK2D.sld")
(SLIDE_IMAGE -12 -12 40 40 ProHLK3D_dia)
(END_IMAGE)
(ACTION_TILE "bauwaehlen" "(done_dialog 1)")
(ACTION_TILE "bauzurueck" "(done_dialog 2)")
(ACTION_TILE "bauweiter" "(done_dialog 3)")
(SETQ bauloeschenflag (start_dialog))
(UNLOAD_DIALOG BAULOESCHEND)
(IF (= bauloeschenflag 1)
(PROGN (SETQ bauloeschen1 nil)
(IF (/= (getvar "clayer") "0")(COMMAND "CLAYER" "0" /R))
(SETQ bauLelem nil)
(while (SETQ bauLelem (ENTSEL "\nWählen Elemente die gelöscht werden: "))
(SETQ bauLelem0 (CDR (ASSOC 8 (ENTGET (CAR bauLelem)))))
(if (SETQ bauLelem1 (SSGET "_X" (LIST (CONS 8 bauLelem0))))
(sssetfirst bauLelem1 bauLelem1)
(setq bauLelem1 (ssget))
) 
(COMMAND "_erase" bauLelem1 "//")
)
(SETQ bauloeschen1 "1")
(BAULOESCH)
      )
)
(IF (= bauloeschenflag 2)(PROGN (COMMAND "_undo" "1")(BAULOESCH)))
(PRINC)
)

Gruss Nano

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

---

was ist das denn :
(COMMAND "CLAYER" "0" /R)

und das:
(COMMAND "_erase" bauLelem1 "//")

alternativ versuch mal
(setvar "clayer" "0")

und fürs löschen eine repearfunktion die jedes Element was du gewählt hast einzeln löscht

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

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

---

Hallo Wiesel

was ist das denn :
(COMMAND "_erase" bauLelem1 "//")

Möchte gerne nach Selektierung noch Hinzufügen oder Entfernen,
als Benützereingabe. heisst doch "//"

was ist repearfunktion die jedes Element was du gewählt hast einzeln löscht.

Gruss Nano

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

---

Hm, schlagt mich wenn ich was falsches sage...
Aber ist der Backslash als Benutzereingabe nicht nur in Menümakros zu gebrauchen? Ist's in Lisp nicht eigentlich pause was man für Benutzereingaben in command's verwendet?

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!

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

---

Hallo Marc

Ob ich "pause" eingebe oder "//" fällt er immer aus dem Programm.
Ich glaube bei der Filtervariable bauLelem1 akzeptiert er nicht.

(COMMAND "_erase" bauLelem1 "pause")

Mit "pause" oder "//" kann ich noch hinzufügen oder Entfernen.
Aber er kehr nicht zurück.

Gruss Nano

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

---

Hi,

brauchst du alles nicht. Wenn der Löschen-Befehl gar nicht abgeschlossen wird (weil das abschließende ENTER fehlt) akzeptiert er weitere Benutzereingaben:
(COMMAND "_erase" bauLelem1)

Gruß
CADchup

------------------
CADmaro.de

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

---

Zitat:

---

Original erstellt von Nano:

Ob ich "pause" eingebe oder "//"

---

Hi,
habe ich "pause" geschrieben? Nein. Ich hatte pause geschrieben... 

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!

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

---

Hallo

So oder so kehrt es nicht im Programm zurück.

Aber vielleicht hat jemand ein Auswahlsatz wo man
hinzufügen und entfernen kann.

Danke Nano

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

---

Zitat:

---

Original erstellt von Nano:
...hat jemand ein Auswahlsatz wo man
hinzufügen und entfernen kann. ...

---

nimm doch einfach ein (ssget filterliste)

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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