| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
|
|
Autor
|
Thema: LSP endet mit Fehler (437 / mal gelesen)
|
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
   Beiträge: 3434
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 24. Jan. 2024 09:43  <-- editieren / zitieren -->   Unities abgeben:          
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 |
archtools
Mitglied
Beiträge: 970
Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 24. Jan. 2024 10:02 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P 
Zitat:
Original erstellt von Bernd P:
ServusDer 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 |
cadffm
Moderator
良い精神
    
Beiträge: 22298
Registriert: 03.06.2002 Alles
|
erstellt am: 24. Jan. 2024 10:28 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
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 |
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
Beiträge: 3434
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 24. Jan. 2024 10:45 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
