---

Servus

Der Code läuft zwar, endet aber mit Befehl: ; Fehler: Fehlerhafte Funktion: "1:1".
Woher kommt der Fehler? Ich finde ihn nicht. Der Code soll auch bei jedem Layout (foreach) durchlaufen, was der Fehler verhindert.

Erstellt mit PDF to DWG ein PDF im Unterverzeichnis PDF-Entwuerfe des DWGs.

Code:

---

(defun c:PL_createPDF (/ PDF LX RX DX LY RY DY )
 
  (setq PDF (strcat (getvar "dwgprefix") "PDF-Entwuerfe\\")) (VL-MKDIR PDF) ;Verzeichnis und Erstellen
  (setq PDF (strcat PDF "" (getvar "ctab") " Last"));DWG Dateinname
  (setq PDF (vl-string-subst " - " ".dwg" PDF));DWG zu PDF
 
 
(setq LX (atof(rtos (car (getvar "extmin")) 2 3)))
(setq LY (atof(rtos (cadr (getvar "extmin")) 2 3)))
(setq RX (atof(rtos (car (getvar "extmax")) 2 3)))
(setq RY (atof(rtos (cadr (getvar "extmax")) 2 3)))
(setq DX (- RX LX))
(setq DY (- RY LY))
(princ DYDX)
(if (> DY 10)
  (progn
  (setq PMStab "1:1")
  (setq DYDX (strcat (rtos DY 2 0) "x" (rtos DX 2 0)))
  (Plot)
  )
  (progn
  (setq PMStab "1000:1")
  (setq DYDX (strcat (rtos (* DY 1000) 2 0) "x" (rtos (* DX 1000) 2 0)))
  (Plot) 
  ) 
  )
)
 
(defun Plot ()
(if (> DX DY)
  (setq PAusrichtung "Quer")
  (setq PAusrichtung "Hoch")
)
(if
(wcmatch DYDX "210x297,297x210,420x297,297x420,297x588,588x297,420x594,594x420,840x594,594x840,840x1188,1188x840"); nur mehr die DIN A Formate enthalten
(command "_-plot" "_y" "" "DWG to PDF.pc3" DYDX "m" PAusrichtung "" "Grenzen" PMStab "" "" "" "" "" "" "" PDF "_Y" "_Y")
(command "_-plot" "_y" "" "DWG to PDF.pc3" "_5080x5080" "m" PAusrichtung "" "Grenzen" PMStab "" "" "" "" "" "" "" PDF "_Y" "_Y")
)
)

---

(Änderungen jetzt läuft es.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

[Diese Nachricht wurde von Bernd P am 24. Jan. 2024 editiert.]

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

---

Zitat:

---

Original erstellt von Bernd P:
Servus

Der Code läuft zwar, endet aber mit [i]Befehl: ; Fehler: Fehlerhafte Funktion: "1:1".
[...]
(command "_-plot" "_y" "" "DWG to PDF.pc3" DYDX "m" PAusrichtung "" "Grenzen" PMStab [/code]

[/i]

---

Also läuft der Code nicht. Jedenfalls bricht er in der Bearbeitung mit einer Fehlermeldung ab.

Die Ursache der Fehlermeldung ergibt sich ja direkt aus dieser. Da wird versucht, einen Befehl "1:1" ausführen zu lassen, und das steht in Deinem Code ja auch genau so drin. Nach der Option "Grenzen" im _-Plot-Command sollte vermutlich nicht "1:1" aufgerufen werden, aber genau diesen Wert hat die aufgerufene Variable PMStab.

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

---

240124_erstesArgumenteinerListwirdalsFunktiongewertet.JPG

Zitat:

---

Original erstellt von Bernd P:
Woher kommt der Fehler?

---

Hast sauber eingebaut, durch weglassen zweier Progn Funktionen.
Lisp: Das erste Argument einer Liste wird als Funktion angenommen, siehe im Anhang.

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

---

@archtools, der Wert ist an der richtigen Stelle.
@cadffm, danke. Ohne Hinweis hätte ich da ewig gebraucht.

https://documentation.help/AutoLISP-Functions/WS1a9193826455f5ff1a32d8d10ebc6b7ccc-697c.htm#WS4b0506698c46277ab5f53aff1e063efc-7f56

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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