Topic: Add New Viewport by creating boundary on model space

[Hrishikesh]

Hi All,
I tried to make lisp which create viewport boundary on model space & create viewport on layout for the same.
I am not a professional lisp programer, I am working on Autocad for 15 years, your comments & suggestions help me a lot to learn more about lisp programming.

Thanks
Hrishikesh

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2. (defun C:NEWVP  (/ PT1 PT2 PTV SC)
3.  (prompt "Select layout on which you want to create viewport")
4.  (setvar "cmdecho" 0)
5.  (vl-cmdf "undo" "_BE" "")
6.  (setq OL (getvar "clayer"))
7.  (if (/= (tblsearch "LAYER" "VIEWPORTS"))
8.  (vl-cmdf "-LAYER" "M" "Viewports" "C" "8" "" "")
9.  )
10.  (vl-cmdf "-SCALELISTEDIT" "_R" "_Y" "_E")
11.  (setvar "tilemode" 1)
12.  (prompt "Draw boundary around modelspace object for making viewport")
13.  (setq PT1 (getpoint "\nSelect First Corner for viewport boundary"))
14.  (setq PT2 (getcorner PT1 "\nSelect opposite Corner"))
15.  (vl-cmdf "._Rectang" PT1 PT2)
16.  (setq sc (/ (getreal "\nEnter scale for new viewport without inch sign (Example: 1/8, 1/2, 3/4 or 1 etc.): ") 12))
17.  (vl-cmdf "._copybase" PT1 "_L" "")
18.  (setvar "tilemode" 0)
19.  (setq PTV (getpoint "\nSelect insertion point for new viewport"))
20.  (vl-cmdf "._pasteclip" PTV "")
21.  (vl-cmdf "._scale" "_L" "" PTV sc)
22.  (vl-cmdf "MVIEW" "_O" "_L")
23.  (vl-cmdf "_.MSPACE")
24.  (vl-cmdf "_Zoom" "_W" PT1 PT2)
25.  (vl-cmdf "_.PSPACE")
26.  (vl-cmdf "MVIEW" "_L" "ON" "_L" "")
27.  (vl-cmdf "undo" "_E" "")
28.  (setvar "clayer" OL)
29.  (terpri)
30. ) ;_ end of defun
31.  (prin1)
32.  

[HasanCAD]

This post
https://www.theswamp.org/index.php?topic=42149.msg473152#msg473152

[Hrishikesh]

Thank you Hasan sahab,
Your program is very good & easy to use.
I wll definitely use this one.

[HasanCAD]

Thank you Hasan sahab,
Your program is very good & easy to use.
I wll definitely use this one.

It is my pleasure