---

Hallo, ich habe die Schnauze voll....

Ich möchte für eine wichtige Zeichnung (Lageplan meiner Diplomarbeit) immer wieder dieselbe Anzeigenreihenfolge (Schraffuren/andere Objekte gemischt) layerweise herstellen, um so Fehler vor dem Plotten zu vermeiden. Ich wollte mir die Mühe machen ein script zu erstellen.
Alle Progrämmchen, die ich kenne sind mehr oder weniger ungeeignet.

Ich suche einen Befehl, oä., wie ich die Objekte eines Layers aktiviere, um sie dann über "_draworder" noch oben bzw. nach unten zu schieben.
Hat jemand eine Idee?

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

;;;DIE Layer in LALI sind Beispielhaft- einfach Deine Layer
;;;der Reihe nach eintragen.

(defun c:LAYDRAW (/ LALI SS1)
(setq LALI (list "TEXT" "MASS"))
(foreach n LALI  (setq SS1 (ssget "X" (list (cons 8 n)))) (command "_draworder" SS1 "" "o") )
(princ))

;;;Gruß Claudio

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

---

SORT_BY_LAYER.txt

... und hier die Lösung von Claudio etwas abgesicherter und breiter "ausgewalzter" :--> Siehe Anhang!
( Nur der Vollständigkeit halber und weil ich das Thema auch interessant fand  <grins> )

Thomas

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

[Diese Nachricht wurde von CADmium am 02. Feb. 2004 editiert.]

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

---

Hallo,

Danke Ihr beiden,

werde mal testen. Ich denke, dass mir das hilft.

@Thomas: "BTN-Ware" merk' ich mir...

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

Hi Kramer,
BTN kommt im Original von diesem bemerkenswerten Lisp'ler: http://home.pacifier.com/~nemi/

Ist ein gutes Motto, steht auch in dem ein oder anderen meiner Lisp's drin :-)

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

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

---

Zitat:

---

Original erstellt von Claudio:
;;;DIE Layer in LALI sind Beispielhaft- einfach Deine Layer
;;;der Reihe nach eintragen.

;;;Gruß Claudio

---

Hi.

In deinem Beitrag verweist du auf http://ww3.cad.de/foren/ubb/uploads/CADmium/SORT_BY_LAYER.txt

Dieses Tool könnte ich dringend gebrauchen, aber in der Lisp Routine existiert keine Funktion  " c: ", ich weiß nicht, wie man die zum laufen kriegt.

Für einen Tip bin ich sehr dankbar!!

erwin

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

---

Hallo Erwin,
im Listing steht beschrieben, dass du die Funktion so aufrufen sollst
Aufruf z.B. :  (SORT_BY_LAYER '("AM_8" "AM_3" "AM_1" "AM_0" "AM_5"))           

------------------
Gruß Heidi

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

---

oder  - wenn du immer die gleiche Layerreihenfolgehaben willst -
(defun c:SORT_BY_LAYER ()
  (SORT_BY_LAYER '("AM_8" "AM_3" "AM_1" "AM_0" "AM_5"))
)

oder mit Abfrage

(defun c:SORT_BY_LAYER ( / LAYER LAYERLIST)
  (while (setq LAYER(getstring "\nLAYER : "))
    (if (tblsearch "LAYER" LAYER)
      (setq LAYERLIST (cons LAYER LAYERLIST))
      (princ "\nEingegebener Layer existiert nicht!") 
    )
  ) 
  (if LAYERLIST
    (SORT_BY_LAYER (reverse LAYERLIST))
  )
)

.. alles ungetestet.. bei Probs noch mal melden!

------------------
- Thomas -

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

---

Hallo Lispler.

Ich habe ein Problem mit dem "_DRAWORDER"-Command. Wenn ich den Befehl
(command "_draworder" SS1 "" "o")
ausführen lasse, wobei SS1 ein Auswahlsatz ist, bekomme ich nur Schrott zurück. AutoLISP setzt diesen Befehl nicht um. In der Befehlszeile bleibt das Programm stehen mit folgender Anzeige:
<Auswahlsatz: xy>
Ich kann nur noch Return oder ESC drücken und als Antwort auf Return bekomme ich als Meldung:

Unbekannter Befehl "TEST". Drücken Sie F1-Taste ...
Unbekannter Befehl "TEST". Drücken Sie F1-Taste ...
Unbekannter Befehl "U". Drücken Sie F1-Taste ...

(Test ist der Programmname "DEFUN C:TEST()...")

Kann mir jemand sagen, woran das liegen kann?

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

---

*quatschlösch*

es ist sicherlich irgendwo ein Return zu viel drin - aber wo?
Dazu müsstest du mehr von deiner Func preisgeben

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

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

---

Sehr witzig, CADwiesel ;-)

Nun gut. Es genügt wohl nicht, wenn ich die entscheidene Zeile preisgebe. Hier der ganze Code, der so nicht funktionieren will:

(defun c:test(/ objekt)
(setq objekt (ssget "L")) ;letztes Objekt auswählen. Ist eine Solid-Schraffur
(command "_draworder" objekt "" "u")
(princ))

Wenn hier jemand ein Return zuviel erkennt, dann kann der Code wie von
Claudio (ganz oben) auch nicht funktionieren.

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

---

in diesem Lisp ist logischerweise genausokein Fehler drin, wie in deinem vorherigen Posting.

gehe einfach mal dein Lisp im VL-Editor - im debuggmodus durch und überwache mal (getvar "cmdactive")
irgendwo wird die Setvar bei einem Commandbefehl auf 1 stehen - vielleicht sogar schon bevor du zu dem draworder - command kommst.
Aber der Fehler wird sicherlich bei irgendeinem command liegen, das nicht beendet wurde.

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

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

---

Zitat:

---

Original erstellt von CADwiesel:
in diesem Lisp ist logischerweise genausokein Fehler drin, wie in deinem vorherigen Posting.

gehe einfach mal dein Lisp im VL-Editor - im debuggmodus durch und überwache mal (getvar "cmdactive")
irgendwo wird die Setvar bei einem Commandbefehl auf 1 stehen - vielleicht sogar schon bevor du zu dem draworder - command kommst.
Aber der Fehler wird sicherlich bei irgendeinem command liegen, das nicht beendet wurde.

---

Das bedeutet, sollange ich noch ein Command-Befehl offen habe, sprich cmdactive ist ungleich 0, oder in diesem Falle 1, dann bricht Lisp mir den draworder-Befehl ab oder führt ihn nicht richtig aus. Aha. Und wie schließe ich noch offene Commands? Die benutze ich ganz selten in meinem Code.

Aber mal was anderes. Ich habe das Problem mit dem draworder-Befehl andersweitig gelöst. Es gibt eine ARX-Prozedur namens Acadunsupport.
Ich habe daraus den VBA-Befehl "EvalLispExpr" benutzt und siehe da, dort funktioniert es.
Aber trotzdem vielen Dank für deine Hilfe. Werde am Lisp-Command dran bleiben und bei mir mal ergründen, wo noch ein offener Command steht.

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

---

Frage:
Und wie schließe ich noch offene Commands?
Antwort
(while(>(getvar "cmdactive")0)(command))

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

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