---

Hallo Forum!

Ich kenne mich überhaupt nicht aus mit lisp und habe ein Bitte.
Wir möchten gerne immer, wenn der User auf "Plotten" geht (_PLOT), soll sich der Layer "LOGO" einschalten. Wenn der Plotbefehl beendet wird (egal ob mit OK oder Abbrechen), soll der Layer wieder aus sein.
Kann man das in der acad.lsp reinschreiben? Und wenn ja, hat jemand für mich den Code? Hab NULL Ahnung, ob das aufwendig ist.....

Hoffnungsvolle Grüße
Petra

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

---

Das kannst du doch mit dem ändern der Menümakros schaffen (es wird ja niemand PLOT eintippen oder ?)

^C^C_.-LAYER;_on;LOGO;_th;LOGO;;PLOT;_.-LAYER;_off;LOGO;;

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Ahhhh!

Das werde ich Montag gleich testen, heute habe ich Feierabend.

Vielen Dank erst mal.

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

---

Prinzipiell geht das mit einem Command-Reaktor der auf "_plot" und alle Variationen anspricht .... da werden die Ergeignisse Befehlstart, Befehlsende und Befehlsabbruch behandelt.
Ein Befehlsmakro ist da leider etwas eingeschränkter.
Zum Aufwand in Lisp : Wenn's ordentlich gemacht werden soll sind das ca. 80 Zeilen.
Mal sehen ... wenns dir das Makro nicht reicht, nochmal melden.

------------------
  - 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

---

Guten Morgen!

Also, es geht konkret um folgendes:

Auf einem Acad-Arbeitsplatz mit Grundinstallation läuft ein automatisiertes Publishing ab, um aus dwg's PDF's zu erstellen.
Die dwg's liegen in unserem EDM-System.
In diesen dwg's ist (fast) immer ein Layer SSI-LOGO vorhanden, jedoch ausgeschaltet. Beim Erstellen der PDF's muss der Layer an sein.

Ich denke, man könnte in die acad.lsp einen Code eintragen, der den Layer einschaltet. Jedoch darf keine Fehlermeldung kommen, falls der Layer NICHT vorhanden ist.

Das Doofe ist aber wahrscheinlich, dass dann beim "automatisierten" Schließen der dwg Acad fragt, ob gespeichert werden soll, da ja ein Befehl (Layer...an) abgelaufen ist....

Vielleicht wäre ein Abändern des _plot-Befehls, wie CADMIUM es schreibt, doch die bessere Lösung?

Ist das so verständlich für euch? 

Gruß Petra

[Diese Nachricht wurde von Gigerota am 02. Aug. 2010 editiert.]

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

---

naja ... egal wie der Layer geschaltet wird .... es ist eine Änderung der Zeichnungsdatenbank und da wird Acad immer Fragen "ob speichern" ... und wenn das ein Automatismus werden soll, warum nicht das Schließen ect. mit einbinden ?

ich würd das swie so mit ne separaten Lisp machen was in der acaddoc.lsp geladen wird.
------------------
      - 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

---

Ne, schwer ist das wirklich nicht. Beím Start von AutoCAD kann man entweder ein Script mitgeben, das den LAYER TAUEN und EIN Befehl enthält, oder die gleichlautende Anweisung in ein (COMMAND "._-LAYER" "_THAW" "LOGO" "_ON" "LOGO" "") packt und in die acadoc.lsp (nicht acad.lsp!) platziert.
Das die Zeichnung dann geändert wurde, muss der Plotjob des EDM Systems natürlich berücksichtigen (hat er bestimmt auch) - übrigens könnte man die Anweisung zum Einschalten des Layer LOGO dann besser auch in diesem JOB platzieren.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo,

habe gerade erfahren, dass das Publishing ebenfalls durch eine lisp-Routine erledigt wird, ich könnte mich also dort mit  "schalte Layer ein" einfach mit einbringen.

Ist da jemand, der mir freundlicherweise den Code aufschreibt zum Layer einschalten? (Mit Fehlerabfang, falls der Layer nicht da ist....)... Oder ist das zu aufwendig   ich kenn mich ja leider nicht aus mit lisp.....

.. oh, Udo, da haben sich unsere antworten überschnitten, danke für den Code, ich teste es mit der acaddoc.lsp, vielen Dank!

[Diese Nachricht wurde von Gigerota am 02. Aug. 2010 editiert.]

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

---

(if(setq L(tblobjname "LAYER" "LOGO"))
  (progn
    (setq L(entget L))
    (setq GC62(cdr(assoc 62 L)))
    (entmod(subst (cons 62 (abs GC62))(assoc 62 L)L))
  )
)

------------------
  - 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