Topic: control PLOTTER NAME list

[aicr317]

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


;;;;
;;;;
;;;;it returned ("pdfFactory Pro" "Adobe PDF" "\\\\print\\HP5200" "DWG TO PDF.pc3" "FX 6030A0.PC3" "FX 6030A1.PC3" "FX 6030A2.PC3" "ROWE3100.PC3")

now i want to do like this , when i key-in "plot" in command,and i just want the "plotter name" only shows (" FX 6030A0.PC3" "ROWE3100.PC3")

how to get/put the plotter name table with lisp

[aicr317]

plotter name table

[myloveflyer]

;;;this LISP come from China,Author 飞诗
(defun fsxm-getprn (/ strprint)    (setq strprint
  (vl-registry-read
    (strcat
      "HKEY_CURRENT_USER\\Software\\Microsoft\\"
      "Windows NT\\CurrentVersion\\Windows"
    )
    "Device"
  )
  )
  (substr strprint 1 (vl-string-search "," strprint))
)

[aicr317]

;;;this LISP come from China,Author 飞诗
(defun fsxm-getprn (/ strprint)    (setq strprint
  (vl-registry-read
    (strcat
      "HKEY_CURRENT_USER\\Software\\Microsoft\\"
      "Windows NT\\CurrentVersion\\Windows"
    )
    "Device"
  )
  )
  (substr strprint 1 (vl-string-search "," strprint))
)

IT IS NOT I AM LOOKING FOR....

[CAB]

Try this on your list:

Code: [Select]

(vl-remove-if-not '(lambda(x) (vl-string-search ".PC3" (strcase x))) plotList)

[aicr317]

Try this on your list:

Code: [Select]

(vl-remove-if-not '(lambda(x) (vl-string-search ".PC3" (strcase x))) plotList)

Perhaps i am not Description it clearly,i means when i "file" --->"PLOT",then it open this dialog,i just want the name list only shows something i Designated!!!

in other words,i want to control this list ,

[Lee Mac]

Surely that setting just lists all the available devices, so, to edit the list I would think you would need to uninstall the device surely? 

Best I can do is what you already have:

Code: [Select]

;; cfg  =  Plot Configuration Name

(defun GetPlotDevices (cfg)
 
  (if (not
        (vl-catch-all-error-p
          (setq cfg (vl-catch-all-apply
                      (function vla-item)
                        (list (vla-get-PlotConfigurations
                                (vla-get-ActiveDocument
                                  (vlax-get-acad-object))) cfg)))))
    (progn
      (vla-RefreshPlotDeviceInfo cfg)
      (vlax-invoke cfg 'GetPlotDeviceNames))))


[aicr317]

Surely that setting just lists all the available devices, so, to edit the list I would think you would need to uninstall the device surely? 

Best I can do is what you already have:

Code: [Select]

;; cfg  =  Plot Configuration Name

(defun GetPlotDevices (cfg)
 
  (if (not
        (vl-catch-all-error-p
          (setq cfg (vl-catch-all-apply
                      (function vla-item)
                        (list (vla-get-PlotConfigurations
                                (vla-get-ActiveDocument
                                  (vlax-get-acad-object))) cfg)))))
    (progn
      (vla-RefreshPlotDeviceInfo cfg)
      (vlax-invoke cfg 'GetPlotDeviceNames))))


in the past, i have a lisp to set system default plotter,perhaps it can also set the plotter in cad,now i can not find it!!!

[Lee Mac]

Surely that setting just lists all the available devices, so, to edit the list I would think you would need to uninstall the device surely? 

Best I can do is what you already have:

Code: [Select]

;; cfg  =  Plot Configuration Name

(defun GetPlotDevices (cfg)
 
  (if (not
        (vl-catch-all-error-p
          (setq cfg (vl-catch-all-apply
                      (function vla-item)
                        (list (vla-get-PlotConfigurations
                                (vla-get-ActiveDocument
                                  (vlax-get-acad-object))) cfg)))))
    (progn
      (vla-RefreshPlotDeviceInfo cfg)
      (vlax-invoke cfg 'GetPlotDeviceNames))))


in the past, i have a lisp to set system default plotter,perhaps it can also set the plotter in cad,now i can not find it!!!

Ah, I thought you wanted to remove plotters from the list...   

[aicr317]

how can i do ,first i think must get the list as a result,then delete

[rhino]

Try this on your list:

Code: [Select]

(vl-remove-if-not '(lambda(x) (vl-string-search ".PC3" (strcase x))) plotList)

Perhaps i am not Description it clearly,i means when i "file" --->"PLOT",then it open this dialog,i just want the name list only shows something i Designated!!!

in other words,i want to control this list ,

dude... you can't control that list without uninstalling those printers or editing some windows registry entries (which can cause serious problems if not executed properly) - the best you can do is to create your own plot routine and dialog box to control which plotting devices u want to allow the user to plot to!

you can see this link/code http://www.jefferypsanders.com/autolisp_selectplotter.html which is similar to what lee and alan  have posted.

btw u can filter the list further by using

(vl-remove-if-not '(lambda(x) (vl-string-search "plotter_name.PC3" (strcase x))) plotList)

[Lee Mac]

How about this (for active layout):

Code: [Select]

;; DvcName  =  Name of Plot Device

(defun PutPlotDevice (DvcNme)
  (vl-load-com)
  ;; Lee Mac  ~  14.01.10
 
  (setq lay (vla-get-ActiveLayout
              (vla-get-ActiveDocument
                (vlax-get-acad-object))))
 
  (vla-RefreshPlotDeviceinfo lay)

  (if (vl-position (strcase DvcNme)
        (mapcar (function strcase)
          (vlax-safearray->list
            (vlax-variant-value
              (vla-getPlotDeviceNames lay)))))

    (not (vl-catch-all-error-p
           (vl-catch-all-apply
             (function vla-put-configname)
               (list lay DvcNme))))))


[aicr317]

How about this (for active layout):

Code: [Select]

;; DvcName  =  Name of Plot Device

(defun PutPlotDevice (DvcNme)
  (vl-load-com)
  ;; Lee Mac  ~  14.01.10
 
  (setq lay (vla-get-ActiveLayout
              (vla-get-ActiveDocument
                (vlax-get-acad-object))))
 
  (vla-RefreshPlotDeviceinfo lay)

  (if (vl-position (strcase DvcNme)
        (mapcar (function strcase)
          (vlax-safearray->list
            (vlax-variant-value
              (vla-getPlotDeviceNames lay)))))

    (not (vl-catch-all-error-p
           (vl-catch-all-apply
             (function vla-put-configname)
               (list lay DvcNme))))))


nick work !!!wonderful!!!

[Lee Mac]

How about this (for active layout):

Code: [Select]

;; DvcName  =  Name of Plot Device

(defun PutPlotDevice (DvcNme)
  (vl-load-com)
  ;; Lee Mac  ~  14.01.10
 
  (setq lay (vla-get-ActiveLayout
              (vla-get-ActiveDocument
                (vlax-get-acad-object))))
 
  (vla-RefreshPlotDeviceinfo lay)

  (if (vl-position (strcase DvcNme)
        (mapcar (function strcase)
          (vlax-safearray->list
            (vlax-variant-value
              (vla-getPlotDeviceNames lay)))))

    (not (vl-catch-all-error-p
           (vl-catch-all-apply
             (function vla-put-configname)
               (list lay DvcNme))))))


nick work !!!wonderful!!!

You're welcome. 

[aicr317]

I THINK IF CAN SET THIS VALUE , AS WELL AS YOUR PutPlotDevice