get current tab plotter device

[Small Fish]

In a dwg file that has more than one tab I would like to check
if the plotter device is set to 'NONE' on any of the tabs.

First I tried using :

 
(setq GetActivePlotDevice(vla-get-ConfigName
    (vla-get-ActiveLayout
    (vla-get-activedocument
      (vlax-get-acad-object)))))

to find the plotter device in the current tab. This doesn't seem to work. Is there a way to find the plotter device name?

I other questions but that is all for now - thanks

cheers

[Lee Mac]

Perhaps something like this?

(defun GetPlotDevices (/ dvc)
  (vl-load-com)
  ;; Lee Mac  ~  26.02.10

  (vlax-map-collection
    (vla-get-layouts
      (vla-get-ActiveDocument
        (vlax-get-acad-object)))
    (function
      (lambda (layout)
        (vla-RefreshPlotDeviceInfo layout)
        (setq dvc
          (cons
            (cons
              (vla-get-name layout)
                (vla-get-ConfigName layout)) dvc)))))
  
  (reverse dvc))

[alanjt]

(vla-get-configname
  (vla-get-activelayout
    (vla-get-activedocument
      (vlax-get-acad-object))))

Works just fine for me. Returns "None" if nothing or the plotting device name.

Edit: Oops, didn't realize you replied. I hit reply, got up for a second, sat back down and finished responding.

[Lee Mac]

Edit: Oops, didn't realize you replied. I hit reply, got up for a second, sat back down and finished responding.

Hey, no worries dude

As you say, the code that SmallFish posted seemed to be correct, but sometimes I find you have to call:

(vla-RefreshPlotDeviceInfo <layout>)

first.

Lee

[alanjt]

Hey, no worries dude

As you say, the code that SmallFish posted seemed to be correct, but sometimes I find you have to call:

(vla-RefreshPlotDeviceInfo <layout>)

first.

Lee

That's true. I've encountered that in the past.

[alanjt]

I was just curious...

(defun PlotDevices (/ #List)
  (vlax-for x (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
    (vla-refreshplotdeviceinfo x)
    (setq #List (cons (cons (vla-get-name x) (vla-get-configname x)) #List))
  ) ;_ vlax-for
  (reverse #List)
) ;_ defun

Command: (benchmark '( (getplotdevices) (plotdevices) ))
Elapsed milliseconds / relative speed for 64 iteration(s):

    (PLOTDEVICES)........1203 / 1.17 <fastest>
    (GETPLOTDEVICES).....1407 / 1.00 <slowest>

Command: (benchmark '( (getplotdevices) (plotdevices) ))
Elapsed milliseconds / relative speed for 64 iteration(s):

    (GETPLOTDEVICES).....1218 / 1.00 <fastest>
    (PLOTDEVICES)........1219 / 1.00 <slowest>

Command: (benchmark '( (getplotdevices) (plotdevices) ))
Elapsed milliseconds / relative speed for 64 iteration(s):

    (PLOTDEVICES)........1219 / 1.01 <fastest>
    (GETPLOTDEVICES).....1234 / 1.00 <slowest>

Command: (benchmark '( (getplotdevices) (plotdevices) ))
Elapsed milliseconds / relative speed for 64 iteration(s):

    (GETPLOTDEVICES).....1219 / 1.00 <fastest>
    (PLOTDEVICES)........1219 / 1.00 <slowest>

Command: (benchmark '( (getplotdevices) (plotdevices) ))
Elapsed milliseconds / relative speed for 64 iteration(s):

    (PLOTDEVICES)........1218 / 1.00 <fastest>
    (GETPLOTDEVICES).....1219 / 1.00 <slowest>

[Small Fish]

Thanks Alan and Lee mac

.....so it was the old "vla-RefreshPlotDeviceInfo"
function that I needed .

cheers
.

[alanjt]

Thanks Alan and Lee mac

.....so it was the old "vla-RefreshPlotDeviceInfo"
function that I needed .

cheers
.

Enjoy and have a good weekend.

[Small Fish]

One more question...
I would like to alert/princ the user that there are one or more tabs that have 'none' as the plot device - how do I check for any 'none' pairs in the dvc dotted pair list?
thanks

[alanjt]

One more question...
I would like to alert/princ the user that there are one or more tabs that have 'none' as the plot device - how do I check for any 'none' pairs in the dvc dotted pair list?
thanks

Maybe something like this...

(and (setq #Alert "")
     (foreach x (GetPlotDevices)
       (and (eq "None" (cdr x))
            (setq #Alert (strcat #Alert (car x) "\n"))
       ) ;_ and
     ) ;_ foreach
     (alert (strcat "Layouts without defined plotter devices:\n\n" #Alert))
) ;_ and