Topic: control PLOTTER NAME list

[Lee Mac]

Careful - registry involved:

Code: [Select]

;; DvcNme  =  Device Name [STR]

(defun PutDefPlotDevice (DvcNme)
  (vl-load-com)
  ;; Lee Mac  ~  14.01.10

  (if (vl-position (strcase DvcNme)
        (mapcar (function strcase)
                (vlax-safearray->list
                  (vlax-variant-value
                    (vla-getPlotDeviceNames
                      (vla-get-ActiveLayout
                        (vla-get-ActiveDocument
                          (vlax-get-acad-object))))))))

    (vl-registry-write
      (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
              "\\Profiles\\" (getvar "CPROFILE") "\\General")

      "DefaultConfig" DvcNme)))


[aicr317]

Careful - registry involved:

Code: [Select]

;; DvcNme  =  Device Name [STR]

(defun PutDefPlotDevice (DvcNme)
  (vl-load-com)
  ;; Lee Mac  ~  14.01.10

  (if (vl-position (strcase DvcNme)
        (mapcar (function strcase)
                (vlax-safearray->list
                  (vlax-variant-value
                    (vla-getPlotDeviceNames
                      (vla-get-ActiveLayout
                        (vla-get-ActiveDocument
                          (vlax-get-acad-object))))))))

    (vl-registry-write
      (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
              "\\Profiles\\" (getvar "CPROFILE") "\\General")

      "DefaultConfig" DvcNme)))


in this work ,it seems only edit the registry,not work in cad,

[T.Willey]

Sometimes when you edit the registry it will only show up after you close and reopen Acad.

[ronjonp]

Can't this be used instead of writing to reg?

Code: [Select]

;; DvcNme  =  Device Name [STR]

(defun putdefplotdevice (dvcnme)
  (vl-load-com)
  ;; Lee Mac  ~  14.01.10 ... RJP edit
  (if (vl-position
(strcase dvcnme)
(mapcar (function strcase)
(vlax-invoke
  (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))
  'getplotdevicenames
)
)
      )
    (vla-put-defaultoutputdevice
      (vla-get-output (vla-get-preferences (vlax-get-acad-object)))
      dvcnme
    )
  )
)

[Lee Mac]

Nice one Ron - I really need to investigate that side of the object model a bit more 

[ronjonp]

Nice one Ron - I really need to investigate that side of the object model a bit more 

 

[CAB]

Speaking of using your own dialog:
http://www.theswamp.org/index.php?topic=1916.0