Hier ein Verweis zur Verwendung der Backgroundplot-variable.
Ich habe den Eindruck, dass die Aussnahme nicht nur dem script besteht sondern auch meinem kode. In beiden Fällen funktioner der vla-pltodevice nicht im HG.
Code:
; Plot Layouts
(defun cd:PLOTALL(layouts / doc arSize arLayouts)
(if (or (= "" (setq q (strcase (getstring "\nPlot in background [<Yes>/No]"))))
(= "Y" q))
(setvar "BACKGROUNDPLOT" 3) ; plot in background yes
(setvar "BACKGROUNDPLOT" 0)
) ; http://hyperpics.blogs.com/beyond_the_ui/2012/06/plotting-and-page-setups-with-aut olisp.html
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq arSize 0)
;; Create an array for all the layouts to be plotted
(setq arLayouts (vlax-make-safearray vlax-vbString (cons 0 (1- (length layouts)))))
;; Add the layout names to the array
(foreach item layouts
(progn
(vlax-safearray-put-element arLayouts arSize item)
(setq arSize (1+ arSize))
)
)
;; Plot the layout to the device
(vla-SetLayoutsToPlot (vla-get-Plot doc) arLayouts)
(vla-PlotToDevice (vla-get-Plot doc))
)
)
------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB
[Diese Nachricht wurde von cadplayer am 09. Aug. 2016 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP