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 macht
es 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 im
Einsatz und habe Dein Änderungen halt auf die Lisp bezogen, Sry. Also halte ich mich jetzt
an das Plottool für Pdf!
Zitat:
1) Umbauen, dann hast Du eine Version die funktioniert wie die vom 15April2016, die aber
statt 564 zeilen nur (geschaetze) 130 Zeilen lang ist.
Hatte ich gar nicht zum laufen bekommen! Hing am folgendem Code fest, bei dem hinter
einpassen nicht :fit stehen darf sondern t. (Hoffe das ich mich da nicht Irre)
Code:
(setq scale (if (equal einpassen :fit) :fit 1))
Bei dem Code verstehe ich den Sinn nicht ganz.
Code:
(setq scale (if (equal einpassen t) :fit 1))
...
:scale (if (keywordp scale) scale :factor)
:value (if (numberp scale) scale 1) ;; function caller takes care
;; it is keyword or number only
...
Also wenn:
einpassen t: -> :scale :fit :value 1
einpassen nil: -> :scale :faktor :value 1
Also zwei mal :value 1 und das funktioniert ja auch, aber dann kann ich das doch genauso gut so schreiben:
Code:
:scale (if (equal einpassen t) :fit :factor)
:value 1
Zitat:
Du hast auch noch funktional im after-initalisation geandert.
Eigentlich nicht, ich habe nur die Blattformate entnommen die wir nicht benötigen. Das habe
ich aus dem Grund gemacht, da es einfach zu wirr war! Ein hoch auf (find .... string)
Eine große Änderung habe ich noch gemacht. Ich konnte mal wieder nicht aufhören! 
Und zwar habe ich Blattformat -> Automatisch und Ausrichtung -> Standard entfernt!
Es war ja bisher so, dass am Anfang im after-initalisation geprüft wurde ob er das Blatt
erkennt, wenn ja alles gut und wenn nicht A4/hoch. Beim Drucken wurde in der Ok-Action
nochmals nachdem Blattformat geguckt und entsprechend gedruckt.
Also zweimal nach Blattformat schauen!
Mit der Möglichkeit von :range, kann ich das ja im after-initalisation direkt richtig
einstellen und so habe ich denn Code übersichtlicher!
Anschließend habe ich noch "Box" eingebaut. Hier kam ich mit if/when und :Output_box in der
local-function nicht wirklich zurecht. So, dass ich die Festlegung des Rahmens/der Box in
den :after-input des zweiten Punktes geschrieben habe.
Code:
(progn (sd-call-cmds (am_plot_ex :Output_box :Output_pick point_one point_two))
Das klappt soweit alles erst mal mit 135 Zeilen!
Punkt 3 ist bei der PDF-Version Unsinn und zu Punkt 3a finde ich kein Beispiel und die Infos im
IKIT sind mir leider zu dünn!
Ich hoffe Du bist diesmal besser mit mir zufrieden und es gibt nicht ganz so viel Gegenwind 
Gruß Michael
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
Dieses Thema ist 2 Seiten lang: 1 2 
