---

 
Hallo,
kann mir jemand Hilfestellung geben?
Ich hab mir die lisp mithilfe des "AutoLISP-Handbuch - Stand 97" zusammengebastelt, sie funktioniert auch soweit.
Jetzt hab ich mir gedacht, dass es doch besser wäre, bei der Frage  "<F>enster wählen oder <A>lles?" das man nicht erst Fenster eingeben muss um dann die Auswahl zutreffen, sondern das man gleich eine Objektwahl treffen kann und wenn keine getroffen wird, dann alles gewählt wird.
Das war jetzt mein Gedanke nur irgendwie komme ich da nicht weiter.
Alle Varianten die ich ausprobierte, geben Fehler zurück.

Code:

---

;Anfang Unterprogramm Fensterauswahl
(defun Fenster (/ pt1 pt2 AWS I OBJ)
  (if(setq AWS(ssget (list(cons 410(getvar "CTAB"))'(0 . "HATCH"))))
    (progn
      (setq I -1)
      (repeat (sslength AWS)
        (setq OBJ (ssname AWS(setq I (1+ I))))
        (command "_-hatchedit" OBJ "_B" "_P" "_Y")
      )
    )
    )
(setq AWSzoom AWS )
)
;Ende Unterprogramm Fensterauswahl
;
;Anfang Unterprogramm Auswahl alles
(defun alles1 (/ AWS )
  (if(setq AWS(ssget "_X" (list(cons 410(getvar "CTAB"))'(0 . "HATCH"))))
    (progn
      (setq I -1)
      (repeat (sslength AWS)
        (setq OBJ (ssname AWS(setq I (1+ I))))
        (command "_-hatchedit" OBJ "_B" "_P" "_Y")
      )
    )
    )
(setq AWSzoom AWS )
)
;Ende Unterprogramm Auswahl alles
;
;
;Start Hauptprogramm Mainprogramm Aufruf mit S-Umgrenzung
(defun C:S-UMGRENZUNG(/ AWSzoom )
(vl-load-com)
;
  ;;;; Error Funktion
  (setq MD_ERR *ERROR*
*ERROR* M:FEHLER
  ) ;_ end of setq
  ;;Marke für Zurück nach Abbruch setzen
    (vla-endundomark  (vla-get-activedocument(vlax-get-acad-object)))
(vla-startundomark(vla-get-activedocument(vlax-get-acad-object)))
;;;Die eigentliche Funktion:
  (defun M:FEHLER (S)
    (print (strcat "M:fehler " S))
  (vl-cmdf "_UNDO" "_BACK")
  (setq *ERROR* MD_ERR)
  (alert "Der Befehl wurde abgebrochen!")
  (princ)
  ) ;_ end of defun
;
(setq lay1 (getvar "clayer"))
(command "-layer" "Machen" "K-Linie" "farbe" "6" "" "Ltyp" "continuous" "" "plot" "kein" "" "")
;
(initget 1 "Alles alles a A F f fenster Fenster" )
(setq prüf (getstring "\n <F>enster wählen oder <A>lles? <A>: "))
(if (or (= prüf "Alles")(= prüf "")(= prüf "a")(= prüf "alles")(= prüf "A"))
(alles1)(Fenster)
)
(command "clayer" lay1 )
(command "zoom" "objekt" AWSzoom "")
(command "regen" )
(princ)
)
;Ende Hauptprogramm

---

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

---

Dann lässt du den Teil mit

Code:

---

(initget 1 "Alles alles a A F f fenster Fenster" )
(setq prüf (getstring "\n <F>enster wählen oder <A>lles? <A>: "))
(if (or (= prüf "Alles")(= prüf "")(= prüf "a")(= prüf "alles")(= prüf "A"))
(alles1)(Fenster)
)

---

weg und lässt nur die Funktion (Fenster) laufen.

Was passiert denn, wenn du nur die Funktion laufen lässt und bei ssget das "_X" rausnimmst, dann müssten eigentlich die Objekte eingegeben werden.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

OH,

Da hast du recht, da hab ich den Wald vor lauter Bäumen nicht gesehen.

Das heißt, man gibt in der Objektwahl "alle" ein um alles zu wählen. Die Möglichkeit, dass man mit Return weiter geht und dann alle gewählt werden funktioniert so nicht, oder?

Danke für deine Antwort.

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

---

Nochmal Danke

hab es jetzt so gemacht

Code:

---

;Start Hauptprogramm Mainprogramm Aufruf mit S-Umgrenzung
(defun C:S-UMGRENZUNG(/ AWS I OBJ )
(vl-load-com)
;
  ;;;; Error Funktion
  (setq MD_ERR *ERROR*
*ERROR* M:FEHLER
  ) ;_ end of setq
  ;;Marke für Zurück nach Abbruch setzen
    (vla-endundomark  (vla-get-activedocument(vlax-get-acad-object)))
(vla-startundomark(vla-get-activedocument(vlax-get-acad-object)))
;;;Die eigentliche Funktion:
  (defun M:FEHLER (S)
    (print (strcat "M:fehler " S))
  (vl-cmdf "_UNDO" "_BACK")
  (setq *ERROR* MD_ERR)
  (alert "Der Befehl wurde abgebrochen!")
  (princ)
  ) ;_ end of defun Fehler
;;;;;;Ende Error Funktion
;
;Speichert Variable aktueller Layer
(setq lay1 (getvar "clayer"))
;
;Macht einen neuen bzw. setzt den Layer K-Linie
(command "-layer" "Machen" "K-Linie" "farbe" "6" "" "Ltyp" "continuous" "" "plot" "kein" "" "")
;
;eigentliches Programm
(princ "\n" )
(princ "\n" )
(print "  [Alle] eingeben um alle Schraffuren auszuwählen! ");Kommentar
  (if(setq AWS(ssget (list(cons 410(getvar "CTAB"))'(0 . "HATCH"))));Filtert die Schraffur
    (progn
      (setq I -1);Variable für die Repeatfunktion
      (repeat (sslength AWS);schleife bis alles Schraffurobjekte abgearbeitet sind
        (setq OBJ (ssname AWS(setq I (1+ I))));arbeitet die Auswahlliste ab
        (command "_-hatchedit" OBJ "_B" "_P" "_Y");Befehl der dei Umgrenzung erzeugt
      );ende repeat
    );ende progn
    );ende if
;
;
(command "clayer" lay1 );setzt den Layer wieder zurück
(command "zoom" "objekt" AWS "");zoom auf die bearbeiteten Schraffuren
(command "regen" )
(princ)
)
;Ende Hauptprogramm

---

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

---

Zitat:

---

... Die Möglichkeit, dass man mit Return weiter geht und dann alle gewählt werden funktioniert so nicht, oder?

---

Doch - in etwa so (quick and dirty):

Code:

---

(princ "\nObjekte wählen / <Alle> ")
(if (not aws (ssget))
  (setq aws (ssget "X"))
)

---

------------------
Schöne Grüße
Ernst

www.geopaint.at

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

---

super Danke

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