Save view and plot to pdf

Hi everybody,

Anyone know how to save the view all defined view, and then plot as pdf. It is unable to save another view. How to make is work ?

Thanks !

(setq v 0)
(while 
(command "-view" "w" (strcat "view" (itoa v)))
(setq v (1+ v))
);while

There are two issues in your code excerpt:

1. the syntax of VIEW command isn't respected; try to call -VIEW on prompter and see that you are missing the coordinates of the corners for desired view.
   
2. the condition evaluated by WHILE function will always be True, so the code will run infinitely; you should limit somehow the number of iteration - according with what you intend to achieve.
   

Thank you MSasu ! If I want to use the while loop to get all the user selected view (the coordinates of the corners) and then save it unit user press "esc" or "ok" button. After that I can plot to pdf automatically. From above code, if I selected the first view it will exit the while loop. I think there is some wrong in my code. Is it possible to save all the views by "-view" command by lisp ?

There are two issues in your code excerpt:

1. the syntax of VIEW command isn't respected; try to call -VIEW on prompter and see that you are missing the coordinates of the corners for desired view.
   
2. the condition evaluated by WHILE function will always be True, so the code will run infinitely; you should limit somehow the number of iteration - according with what you intend to achieve.
   

The Window option of -VIEW command will save a new view in drawing as long you provide a name for it and a pair of points (the oposite corners of said view). How are defined those views you want to save?

Is it possible to prompt user select the view, then user select the oppsite corners. After that, it automatically provide the name until user press "esc" button.

Thank you ! MSasu.

The Window option of -VIEW command will save a new view in drawing as long you provide a name for it and a pair of points (the oposite corners of said view). How are defined those views you want to save?

I believe that this is what you were looking for:

(setq index  0
     answer "Yes")
(while (member answer '("Yes" nil))
(command "_.VIEW" "_W" (setq nameView (strcat "view" (itoa (setq index (1+ index)))))
         pause pause)
(initget "Yes No")
(setq answer (getkword (strcat "\nCreated view " nameView ". Do you want to add another one <Yes>/No): ")))
)

thank very much for your help !

I believe that this is what you were looking for:

(setq index  0
     answer "Yes")
(while (member answer '("Yes" nil))
(command "_.VIEW" "_W" (setq nameView (strcat "view" (itoa (setq index (1+ index)))))
         pause pause)
(initget "Yes No")
(setq answer (getkword (strcat "\nCreated view " nameView ". Do you want to add another one <Yes>/No): ")))
)

I believe that this is what you were looking for:

(setq index  0
     answer "Yes")
(while (member answer '("Yes" nil))
(command "_.VIEW" "_W" (setq nameView (strcat "view" (itoa (setq index (1+ index)))))
         pause pause)
(initget "Yes No")
(setq answer (getkword (strcat "\nCreated view " nameView ". Do you want to add another one <Yes>/No): ")))
)

I want to try this MSasu.How can i load this please?

For a quick test just paste the above code to AutoCAD's command line.