Filter Device list

How would I filter my list so that only pc3 files and "none" show

ie without listing system printers?

thanks

 
(setq ad (vla-get-activedocument (vlax-get-acad-object)))
     (vla-RefreshPlotDeviceInfo (vla-get-activelayout ad))
     (setq Devicelist (vlax-safearray->list (vlax-variant-value 
     (vla-getplotdevicenames (vla-item (vla-get-layouts ad) Model")))))

Just a simple vl-remove-if-not...

(defun GetPC3 ( / doc )
 (vl-load-com)

 (vla-RefreshPlotDeviceInfo
   (vla-get-ActiveLayout
     (setq doc
       (vla-get-activedocument
         (vlax-get-acad-object)
       )
     )
   )
 )
 (vl-remove-if-not
   (function
     (lambda ( x ) (or (eq "None" x) (wcmatch x "*.pc3")))
   )
   (vlax-invoke
     (vla-item (vla-get-layouts doc) "Model") 'GetPlotDeviceNames
   )
 )
)

Here it is in the options:

I am not sure of what the System Variable is for use in a routine.

Chuck

thanks Lee - Sweet .....thats what I was after.

"vl-remove-if-not" will be useful for other things I will use later

cheers

SF

Chuck - I was aware of that - I just needed to know programmatically

thanks Lee - Sweet .....thats what I was after.

"vl-remove-if-not" will be useful for other things I will use later

cheers

SF

 

Chuck - I was aware of that - I just needed to know programmatically

Also keep in mind the useful vl-remove and vl-remove-if. :wink:

Also keep in mind the useful vl-remove and vl-remove-if.

Thanks for the heads up Alan

Small Fish, the 'auto word complete' in the VLIDE is quite handy for discovering similar functions if you are new to LISP - for example, in a new file in the VLIDE,

Type vlax-curve- then press Ctrl+Shift+Space :wink: