Having a problem with a end of drawing routine.

[HullDrafter]

Hello again. I am trying to put together my own routine to see if I know what I am doing. Just a short routine.

(DEFUN C:enddwg ()
  (COMMAND "-purge" "a" "" "N")         ;PURGE ALL PARTS OF THE DRAWING
  (COMMAND "-purge" "a" "" "N")         ;PURGE ALL PARTS OF THE DRAWING
  (COMMAND ".MV" "L" "ON" "ALL" "")     ;LOCK VIEW PORTS
  (COMMAND "QSAVE")                     ;SAVE DRAWING
  (COMMAND "QUIT")                      ;QUIT DRAWING
)                    ; end defun
  (PRINC)
(princ "\n  enddwg.lsp is loaded.  Type \"ENDDWG\" to run.")
(princ)

I am not locking the viewports. I would also like to know how to turn off the viewport(s) and then save and quit

Any suggestions?

HD

[hmsilva · Accepted solution]

(COMMAND ".MVIEW" "L" "ON" "ALL" "")

MV it's an Alias for the MVIEW command...

To turn OFF the viewport(s), try

(COMMAND ".MVIEW" "OFF" "ALL" "")

Henrique

[HullDrafter]

Thank you for the assistance. What you provided worked, but I wasn't thinking when I requested turning off the VPort. I need to freeze it. Everything you provided worked exactly correct. I already know the last part, and will get it taken care of tomorrow. Again, thank you.

HD

[hmsilva]

You're welcome, HD
Glad I could help

Henrique