topic Re: Custom Save command help in Visual LISP, AutoLISP and General Customization Forum

Custom Save command help

Anonymous — Mon, 05 Jan 2015 10:08:16 GMT

I am currently altering our work save config to better suit our workflow but I am struggling to make one change.

The current command is this

(command"_.Undefine""_.QSave") ; Undefine the QSave command
; define a custom Save command that executes Propulate command and then save
(defun c:Qsave ()
 (command"_PSPACE""")
 (command"_.layout""_Set""") ; Move to LAYOUT 1
 (command"_.regen")
 (command"_.Propulate""_Update""_Current") ; run Propulate command
 (command"_.ZOOM""_E") ; zoom extents before save
 (command"_.QSave""""")(princ) ; run standard save command
)

I want to add lines to it that will check if the current drawing has a viewport in, if it does not then I just want it to run a regular save command without zooming or running propulate. Some of our drawings are just model files and having it run the extra commands are just unneccesary and are causing issues.

Re: Custom Save command help

hmsilva — Mon, 05 Jan 2015 10:48:12 GMT

@Anonymous wrote:

I want to add lines to it that will check if the current drawing has a viewport in, if it does not then I just want it to run a regular save command without zooming or running propulate. Some of our drawings are just model files and having it run the extra commands are just unneccesary and are causing issues.

One way:

(setq ss (ssget "_X" (list '(0 . "VIEWPORT")))
      layt_lst (layoutlist))
(if (/= (sslength ss) (length layt_lst))
  ;; do the layout commands
  ;; do just the save
  )

I hope this helps

Henrique

Re: Custom Save command help

Anonymous — Mon, 05 Jan 2015 10:54:11 GMT

Thank you, would I add it in at the beginning just under this line?

(defun c:Qsave ()

Re: Custom Save command help

hmsilva — Mon, 05 Jan 2015 11:00:42 GMT

You 're welcome.

Try

(command"_.Undefine""_.QSave") ; Undefine the QSave command
; define a custom Save command that executes Propulate command and then save
(defun c:Qsave ( / layt_lst ss)
  (setq ss (ssget "_X" (list '(0 . "VIEWPORT")))
      layt_lst (layoutlist))
(if (/= (sslength ss) (length layt_lst))
  (progn
 (command"_PSPACE""")
 (command"_.layout""_Set""") ; Move to LAYOUT 1
 (command"_.regen")
 (command"_.Propulate""_Update""_Current") ; run Propulate command
 (command"_.ZOOM""_E") ; zoom extents before save
 (command"_.QSave""""")(princ) ; run standard save command
 );; progn
 (command"_.QSave""""")(princ) ; run standard save command
  );; if
  (princ)
)

Henrique

Re: Custom Save command help

Anonymous — Mon, 05 Jan 2015 11:11:49 GMT

Just getting a syntax error 😕

Re: Custom Save command help

hmsilva — Mon, 05 Jan 2015 11:33:37 GMT

@Anonymous wrote:
Just getting a syntax error 😕

Code revised

(command"_.Undefine""_.QSave") ; Undefine the QSave command
; define a custom Save command that executes Propulate command and then save
(defun c:Qsave ( / layt_lst ss)
  (setq ss (ssget "_X" (list '(0 . "VIEWPORT")))
      layt_lst (layoutlist))
(if (/= (sslength ss) (length layt_lst))
  (progn
 (command"_PSPACE""")
 (command"_.layout""_Set""") ; Move to LAYOUT 1
 (command"_.regen")
 (command"_.Propulate""_Update""_Current") ; run Propulate command
 (command"_.ZOOM""_E") ; zoom extents before save
 (command"_.QSave") ; run standard save command
 );; progn
 (command"_.QSave") ; run standard save command
  );; if
  (princ)
)

Henrique

Re: Custom Save command help

Anonymous — Mon, 05 Jan 2015 12:57:46 GMT

Perfect! Thank you! Any chance you could comment on it and how it works? I am trying to learn this stuff so that would be greatly appreciated. If not then thank you anyway, huge help!

Re: Custom Save command help

hmsilva — Mon, 05 Jan 2015 14:40:08 GMT

@Anonymous wrote:
Perfect! Thank you! Any chance you could comment on it and how it works? I am trying to learn this stuff so that would be greatly appreciated. If not then thank you anyway, huge help!

You're welcome, MDub!

From the code:

(defun c:Qsave ( / layt_lst ss)
  ;; create a selection set with "VIEWPORT" entities
  ;; each layout is a "VIEWPORT"
  (setq ss (ssget "_X" (list '(0 . "VIEWPORT")))
  ;; create a layout list
      layt_lst (layoutlist))
  ;; test function...
  ;; test if number of layouts is not equal to
  ;; number of layouts
  ;; if number is not the same, there are VIEWPORTS
(if (/= (sslength ss) (length layt_lst))
  (progn;; if true the test function, do this
 (command"_PSPACE""")
 (command"_.layout""_Set""") ; Move to LAYOUT 1
 (command"_.regen")
 (command"_.Propulate""_Update""_Current") ; run Propulate command
 (command"_.ZOOM""_E") ; zoom extents before save
 (command"_.QSave") ; run standard save command
 );; progn
  ;; if not true the test function, do this
 (command"_.QSave") ; run standard save command
  );; if
  (princ)
)

As I had previously said, this test function is one of several ways to do the test, another could be just test a "VIEWPORT" selection set, using a filter for VPid "dxf 69",

(if (setq ss (ssget "_X" '((0 . "VIEWPORT") (-4 . ">") (69 . 1))))

test for a selection set with an id greater than 1 (1 is the "LAYOUT"), and the rest of the code would be the same.

Hope that helps

Henrique