Topic: about acad plot dialog

[aicr317]

look at this picture

file name and location "c:\drawing1-model.plt"

how can i get this values with lisp???and how to input this values ???and how to set the "plot to file" is normal used???

[Chris]

I dont know how to get the plot dialog to default, but what I did to force the name of the file I wanted when plotting to file was to redefine the plot command so that if all our standard conditions are met, the file will automatically plot to file with the proper name already associated with the plot file. Of course, there is also an option to cancel the autoplot and bring up the standard plot dialog.

[CAB]

What does this return?

Code: [Select]

(vl-registry-read
   (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
           "\\Profiles\\" (getvar "cprofile")
           "\\Dialogs\\Plot\\")"PlotToFileBrowseDir"
   )

[CAB]

I found this:

Code: [Select]

; Jason Piercey . 2003
; check or uncheck the 'save changes to layout'
; toggle box found at the top left corner of the
; plot dialog box
; [arg] - any value
; if a non nil value is supplied changes are
; saved otherwise changes are not saved.
; (SaveChangeToLayout nil) turns it off
; (SaveChangeToLayout T) turns it on
; return: T
(defun saveChangeToLayout (arg)
 (and
  (vl-registry-write
   (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
           "\\Profiles\\" (getvar "cprofile")
           "\\Dialogs\\Plot")
   "SaveChangeToLayout"
   (if arg "true" "false")
   )
  )
 )

[aicr317]

What does this return?

Code: [Select]

(vl-registry-read
   (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
           "\\Profiles\\" (getvar "cprofile")
           "\\Dialogs\\Plot\\")"PlotToFileBrowseDir"
   )

nice work！！！its important to me！！！but i also want to know how to control the value of "plot to file",hopes its always be used or Selected！

[aicr317]

how to control it!!!

[Lee Mac]

Why not just use vla-plottofile?

[CAB]

Lee,
I get the impression that the OP wants to preset the dialog box for the user but not omit the dialog box.
I could be wrong in my assumption though.

[CAB]

aicr317,
See the second lisp I posted & use this to check the box.

Code: [Select]

(SaveChangeToLayout T) ;turns it on

[Lee Mac]

Lee,
I get the impression that the OP wants to preset the dialog box for the user but not omit the dialog box.
I could be wrong in my assumption though.

Ok, Thanks Alan, for the benefit of the doubt:

Code: [Select]

;; Arguments:
;; file  = filename to Plot to     [str]
;; pc3   = PC3 file to use    [opt][str]
;; cpy   = Number of Copies   [opt][int]

(defun PlottoFile (file pc3 cpy)
  (setq plt (vla-get-plot
              (vla-get-ActiveDocument
                (vlax-get-acad-object))))

  (and cpy  (eq 'INT (type cpy)) (vla-put-NumberofCopies plt cpy))
 
  (eq :vlax-true (vla-plottofile plt file pc3)))

Perhaps something like that may suffice

[Lee Mac]

aicr317,
See the second lisp I posted & use this to check the box.

Code: [Select]

(SaveChangeToLayout T) ;turns it on

FYI,

In 2010 the registry key is:

Code: [Select]

HKEY_CURRENT_USER\\<Product Key> \\Profiles\\<Current Profile>\\Dialogs\\Plot [color=red]Stamp[/color]

Value Name:  "SaveChangeToLayout"
Also, Are you sure the OP wants this setting? I thought it was the "Plot to File" setting he/she was after?

[CAB]

Lee your quite right.

[aicr317]

cab,i am afraid there is still something wrong with your second lisp,

[aicr317]

I found this:

Code: [Select]

; Jason Piercey . 2003
; check or uncheck the 'save changes to layout'
; toggle box found at the top left corner of the
; plot dialog box
; [arg] - any value
; if a non nil value is supplied changes are
; saved otherwise changes are not saved.
; (SaveChangeToLayout nil) turns it off
; (SaveChangeToLayout T) turns it on
; return: T
(defun saveChangeToLayout (arg)
 (and
  (vl-registry-write
   (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)
           "\\Profiles\\" (getvar "cprofile")
           "\\Dialogs\\Plot")
   "SaveChangeToLayout"
   (if arg "true" "false")
   )
  )
 )

what does it return???i done like that and found nothing had been changed!

[Lee Mac]

what does it return???i done like that and not found something had been changed!

It sets the toggle for Save Changes to Layout.

What is your answer to my post in #6?