---

hallo zusammen!

ich habe ein lisp-Routine in der ich auch plotten will.

banal gesagt, soll so ein ähnlicher Befehl wie:

Code:

---

(command "-plot" "n" "Layout_falsch" "" "A0.pc3" "ja" "d:/temp/acadtemp/testplot.plt" "n" "j")

---

ausgeführt werden.

Wenn jetzt zB das Layout_falsch nicht existiert, dann geht's im Befehl weiter mit "Unbekannte Befehl A0.pc3"...
Ich würde jetzt geren einfach einen Alert dem User ausgeben und sagen, dass er die Seiteneinrichtung kontrollieren muss.
Aber wie weiss ich ob ein Plot durchging und wie nicht?

Gruß steppe

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

---

Hallo,

wenn ich das richtig interpretiere, dann ist immer ein bestimmtes Layout, dessen Name bekannt ist, geplottet werden.

Du musst dann einfach vorher cheken, ob denn das Layout existiert. In der Blocktable sind auch die Layouts abgelegt. Diese musst du zunächst auslesen und die Namen prüfen, ob der Vorgabename gefunden wird. Ist der nicht dada, dann rufst du deine Alter-Box auf und nicht den Druckbefehl.

Bei Fragen ...

Grüße Holger

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

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Zitat:

---

Original erstellt von steppe2000:
...Aber wie weiss ich ob ein Plot durchging und wie nicht?...

---

Ich prüfe nicht ob er "durchging" (weil vorher vielleicht schon das Problem war), ich prüfe, ob alles da ist: PC3, Layout, ..

Das gibt dir alle Layouts aus:

Code:

---

(setq layoutdaten (dictsearch (namedobjdict) "acad_layout")

---

Und dann prüfst du (geht sicher kürzer; ich habe einen ausladenden Stil):

Code:

---

(setq layoutflag 0)
(foreach n layoutdaten
        (if (= (car n) 3)
            (progn
                (setq pruefname (cdr n))
                (if (= (strcase pruefname) "LAYOUT_FALSCH")
                    (setq layoutflag 1)
                )
            )
        )
)
(if (= layoutflag 1)
    (princ "mach irgend was schlaues ...")
    (alert "Layout 'layout_falsch' existiert nicht.")
)

---

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

ich verweis mal auf (layoutlist)

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

---

geht tatsächlich kürzer:
(if (member "Layout1" (layoutlist)) ...

edit: eh klar, wieder zu langsam ...

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

www.geopaint.at

[Diese Nachricht wurde von Geos am 30. Mrz. 2011 editiert.]

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

---

Danke euch beiden für die Beiträge...

ich bin leider einwenig faul... und hätte gerne eine lösung wie..

(if (= plotbefehl nil) (alert "Fehler") (princ "erledigt"))

das mit dem prüfen der Seiteneinrichtung ist ja etwa aufwendiger...
zuerest abfragen von ctb, drucker, papierformat, Layoutname,... der seiteneinrichtung... und dann prüfen, op diese dinge auch am lokalen Rechner zur Verfügung stehen...
...das übersteigt zZ etwas meien Möglichkeiten....

???
Gruß
steppe

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

---

  

Zitat:

---

Original erstellt von Geos:
geht tatsächlich kürzer:...

---

Aber meines ist viel beeindruckender .. 

Code:

---

(if (= plotbefehl nil) (alert "Fehler") (princ "erledigt"))

---

Nun ja - was ist den im "plotbefehl" drinnen? Und wenn es nur um eine Info geht - das steht doch eh im Protokoll, wenn der vorgespeicherte Plotbefehl nicht klappt. Und da kann man auch erkennen, ob es PC3 oder CTB oder ... war.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

[Diese Nachricht wurde von Peter2 am 30. Mrz. 2011 editiert.]

[Diese Nachricht wurde von Peter2 am 30. Mrz. 2011 editiert.]

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

---

...der plotbefehl sie so aus wie oben angeführt ...
Es geht darum, eine Seiten Einrichtung zu plotten... mit vorgegebenenm Plotfilename und Layout...
aber auch hier können Dinge vorkomme, die zu fehlern führen...
Wenn mehrere Projektbeteiligte an den gleichen Dateien arbeiten, kommt es durch aus vor, dass sich User eigene pc3, oder pmp-Dateien anlegen... und dann lauf ich auch in einen Fehler...

kann man das nicht wie "on errror...." abfangen? ohne dass ich wirklich alle Einstellungen prüfe:
- ist die Plotstiltabelle im Suchpfad der Plotstiltabellen
- eingestellter Drucker / lokale Drucker
- eingestelltes Papierformat / Papierformat lokaler Drucker
- Layoutname lt. Vorgabe
wobei mir eigentlich nur die Drucker und die Papierformate schwierigkeiten machen...
die anderen habe ich gelöst...

gruß
steppe

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

---

Die Drucker selbst findest du ev. auch über DOSLib, die PC3-Dateien einfach über "findfile". Papierformate scheint komplexer zu sein ...

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

...eben du sagst es... und ich bin bestenfalls ein 'lehrbuba' ich hab da zwar schon tolle dinge von mapcar gefunden... aber die noch weiter zu verwursten übersteigt meine fähigkeiten...

deswegen wollte ich einfach einen Fehler abfangen und dem User mitteilen... denn die commandtexte werden ja eh nicht gelesen...

steppe

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

---

naja .. dann gäbe es noch die Funktion vla-plottofile , vl-catch-all-apply usw. aber dafür bin ich auch etwas zu faul...

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

---

Wie dämlich ist denn so eine lösung?

Code:

---

(defun *error* (msg)
  (command)
  (princ "Error: ")
  (princ msg)
  (princ)
  (if (= errLv 99)
    (progn
      (alert "Druckfehler!")
      (setq errLv nil)
    )
  )
)

und in der Hauptroutine kommt:
...
(setq errLv 99)
(command "-plot" "n" "Layout_falsch" "" "A0.pc3" "ja" "d:/temp/acadtemp/testplot.plt" "n" "j")
(princ "Erfolgreich")
...

---

Wie ist so was zu bewerten?

lg
steppe

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