|
PTC Creo Elements/Direct Modeling : Druckmenü
MiBr am 04.04.2016 um 12:31 Uhr (1)
Hallo,ich hatte mir vorgestellt vorgestellt, nur den Ordner anzuwählen, Zeichnungsnummer automatisch (sd-am-inq-drawing-no). Also so: Code:(file :value-type :directory:Prompt-text "Ordner zum Speichern angeben":title "Ordner":initial-value nil:initialdirectory (sd-get-current-working-directory))was ich überhaubt nicht hinbekomme, die Auswahl entsprechen im folgenden Code unterzubringen:(if (and(equal einpassen nil) (string= ausr "Hoch"))(progn(am_plot_ex:Plot_style :pdf_a4:output_drawing:destination (Forma ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
 |
PTC Creo Elements/Direct Modeling : Druckmenü
lix b am 04.04.2016 um 12:50 Uhr (15)
Code:(if (and(equal einpassen nil) (string= ausr "Hoch"))(progn(am_plot_ex:Plot_style :pdf_a4:output_drawing:destination (format nil "~A~A.pdf" file (sd-am-inq-drawing-no)):scale :factor :value 1:ORIENTATION :portrait:POSITION :CENTER:plot:yes)------------------Viele GrüßeFelix
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
lix b am 13.04.2016 um 15:03 Uhr (1)
Aber klar doch :D Code:(if (not (and(string= blatt "A0") (string= blatt "A1") (string= blatt "A2")))(display "Kein Blattformat gefunden"))------------------Viele GrüßeFelix
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
MiBr am 13.04.2016 um 20:00 Uhr (15)
0
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
lix b am 14.04.2016 um 06:54 Uhr (1)
Hi!Stimmt "or" nicht "and" Mit "and" würde es funktionieren wenn du das "not" für jede einzelne Formatprüfung setzen würdest ------------------Viele GrüßeFelix
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
MiBr am 14.04.2016 um 09:45 Uhr (1)
So jetzt wäre es noch schön, wenn das Druckfenster nicht schließt wenn kein Blatt gefunden wurde!Kann man das hier intergrieren oder muss der Code an einer anderen Stelle in der Lisp liegen?Hier das Ende vom Code:) ;end if);end when A4;PDF anzeigen(if (equal anzeigen t)(progn(oli:sd-display-url (Format nil "~a~a.pdf" file (sd-am-inq-drawing-no))); open PDF); end Progn PDF anzeigen); end if PDF anzeigen ;end PDF anzeigen(if (not(or(string= blatt "A4") (string= blatt "A3") (string= blatt "A2") (string= blatt ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
AmPlotAuto-pdf.txt |
PTC Creo Elements/Direct Modeling : Druckmenü
lix b am 15.04.2016 um 07:07 Uhr (1)
Morgen!Ich hab es an besagter Stelle eingefügt und unten rausgelöscht und es funktioniert einwandfrei ------------------Viele GrüßeFelix
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
AmPlotAuto-pdf.txt |
PTC Creo Elements/Direct Modeling : Druckmenü
lix b am 15.04.2016 um 09:08 Uhr (15)
Jetzt steht wieder automatisch drinnen ------------------Viele GrüßeFelix
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
MiBr am 15.04.2016 um 09:18 Uhr (15)
Besten Danke!!!mal gucken was mir noch so einfällt, bzw. meinen Kollegen Thx. Michael
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
MiBr am 14.12.2017 um 09:16 Uhr (1)
Hallo,ich möchte das Drucktool etwas vereinfachen und hierzu eine local-function benutzen.Diese sieht so aus:Code:(do-plot (plot-style plot-scale plot-ori plot-copie)(am_plot_ex:Plot_style plot-style:scale plot-scale:ORIENTATION plot-ori:POSITION :CENTER:COPIES plot-copie:plot:output_sheet))Leider habe ich ein Problem mit :scale, hier benötige ich einmal mehrere Eingaben:(setf plot-scale :fit) - läuft(setf plot-scale :factor :value 1) - läuft nichtHat da jemand nee einfache Idee? Ich könnte ja auch zwei Fu ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
lix b am 14.12.2017 um 14:03 Uhr (1)
Hallo!Nachdem ich den Bandwurm in der ok-action, der dir fast einen Krankenhausaufenthalt eingebracht hat, verbrochen habe, muss ich zu meiner Verteidigung sagen, dass der Code noch aus der Zeit stammt, wo ich von LISP noch nicht viel mehr wusste als das es LISP gibt Das kleine Tool ist quasi nur Code den der Recorder ausgespuckt hat an den richtigen Stellen zusammengefügt.Aber es freut mich wenn da wieder frischer Wind rein kommt, weil dann kann man auch wieder viel von den großen LISPlern lernen.------- ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
MiBr am 15.12.2017 um 11:17 Uhr (1)
So, ich habs mal mit Refactoring versucht um frischen Wind ins Tool zu bekommen! Leider bekomme ich das mit :SCALE nicht hin, zudem habe ich auch noch verschwiegen,dass ich mit :OUTPUT_SHEET das gleiche Problem habe. Aber da Scale und Output nur 4 Bedingungen bzw. am_plot_ex ergeben, sieht dasgarnicht mehr so schlimm aus.Für weitere Tipps wäre ich sehr DANKBAR!!! Und wo ich gerade dabei bin, also Tipps!Kann man die zwei Punkte für den :Output_pick auch wie im Annotool mittelsRahmen auswählen?Danke nochmal ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Druckmenü
MiBr am 16.12.2017 um 12:04 Uhr (1)
Hallo Wolfgang,Zitat:schoen. und DA haettest Du erstmal aufhoeren sollen und nur den vorhanden Code umbauen,NUR umbauen, bis er wieder so funktioniert wie vorher (also April 2016).Hast du aber nicht :(du hast gleichzeitg zum "Umbauen" auch noch 2 Dicke Aenderungen (versucht) einzubauen. DAS machtes sehr unuebersichtlich und ich denke Du verwirssst Dich damit eben auch selbst. Dazu muss ich sagen Jein, denn Code mit den 2 Dicken Änderungen habe ich schon länger imEinsatz und habe Dein Änderungen halt auf di ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
