[编程交流] 通过entmake创建视图

(entmake '((0 . "VIEW") (2 . "TEST1") (70 . 0) (40 . 15.9716) (10 -3.3541 -2.29394) (41 . 
34.4822) (11 1.0 2.0 0.8137) (12 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0) 
(50 . 0.0) (71 . 0) (72 . 1) (110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 
0.0) (79 . 0) (146 . 0.0)))

;| Create plot view adjusting for margins and extents.
In Model Space adjust for annotation scale
(pview description Width Height RightMargin TopMargin)
Plot Properties… => Modify Standard Paper Sizes (Printable Area) => select Paper size displays Printable Area
I always leave TopMargin 0, then check "Center the plot:" for the Page setup
Once you get it to work for a plotter's Paper size that macro will work on any layout for that plotter's Paper size.
It pulls Page Setup from "Templates.dwt" so a "24×36" Layout would need "Templates.dwt" to have the Page Setup "PS 24×36"
Example macros:
^C^C^P(or pview (load "pview.lsp"));(pview "24×36" 35.6 23.6 0.7 0.0)
^C^C^P(or pview (load "pview.lsp"));(pview "11×17 1120c" 16.31 10.52 0.035 0)
^C^C^P(or pview (load "pview.lsp"));(pview "11×17 Xerox" 16.54 10.54 0.035 0)
^C^C^P(or pview (load "pview.lsp"));(pview "11×17 Xerox" 16.52 10.44 0.035 0)
^C^C^P(or pview (load "pview.lsp"));(pview "11×17 Xerox" 16.54 10.54 0.035 0)
|;
(defun pview (vname wid hgt xmar ymar / xmax xmin maxx maxy minx miny mid vw)
 (if (= 1 (getvar "cvport"))
   (setq vname (strcat "PS " vname))
   (setq vname (strcat "MS " vname)
         wid (/ wid (getvar "cannoscalevalue"))
         hgt (/ hgt (getvar "cannoscalevalue"))
         xmar (/ xmar (getvar "cannoscalevalue"))
         ymar (/ ymar (getvar "cannoscalevalue"))
   )
 )
 (if (tblsearch "view" vname)(command "-view" "D" vname))
 (vla-ZoomExtents (vlax-get-acad-object))
 (vla-ZoomPrevious (vlax-get-acad-object))
 (setq xmax (getvar "extmax")
     xmin (getvar "extmin")
     maxx (car xmax)
     maxy (cadr xmax)
     minx (car xmin)
     miny (cadr xmin)
 )
 (cond
   ((> (- maxx minx)wid)
     (progn
       (setq midx (car(getvar "viewctr")) hwid (/ wid 2))
       (setq midx (if(< (- midx hwid) minx) (+ minx hwid) (- maxx hwid)))
       (princ "\nGot width!")
     )
   )
   ((> xmar 0) (setq midx (/ (- (+ xmar maxx maxx) wid) 2)))
   ((< xmar 0) (setq midx (/ (+ xmar minx minx wid) 2)))
   (T (setq midx (/ (+ minx maxx) 2)))
 )
 (cond
   ((> (- maxy miny)hgt)
     (progn
       (setq midy (cadr(getvar "viewctr")) hhgt (/ hgt 2))
       (setq midy (if(< (- midy hhgt) miny) (+ miny hhgt) (- maxy hhgt)))
       (princ "\nGot higth!")
     )
   )
   ((> ymar 0) (setq midy (/ (- (+ ymar maxy maxy) hgt) 2)))
;    ((> ymar 0) (setq midy (/ (+ (+ ymar maxy) (- maxy hgt)) 2)))
   ((< ymar 0) (setq midy (/ (+ ymar miny miny hgt) 2)))
   (T (setq midy (/ (+ miny maxy) 2)))
 )
 (setq mid (list midx midy))
 (setq vw
   (list
   '(0 . "VIEW")
   '(100 . "AcDbSymbolTableRecord")
   '(100 . "AcDbViewTableRecord")
   (cons 2 vname)
   (if (= 1 (getvar "cvport")) (cons 70 1) (cons 70 0))
   (cons 40 hgt)
   (cons 10 mid)
   (cons 41 wid)
   '(11 0.0 0.0 1.0)
   '(12 0.0 0.0 0.0)
   '(42 . 50.0)
   '(43 . 0.0)
   '(44 . 0.0)
   '(50 . 0.0)
   '(71 . 0)
   '(72 . 0)
   )
 )
;                          (command "._-PSETUPIN" "Templates.dwt" vname)
 (if  (entmake vw)
                 (progn
                         (command "._-PSETUPIN" "Templates.dwt" vname)
                         (if (= 1 (logand 1 (getvar "cmdactive")))(command "Y"))
                         (if(putPagesetup (getvar "ctab") vname)
                    (princ (strcat "\nView "" vname "" has been created & Page Setup "" vname "" has been assigned to current layout."))
                    (princ (strcat "\nView "" vname "" has been created, but Page Setup "" vname "" was not found."))
                         )
                 )
                 (princ (strcat "\n*ERROR* view "" vname "" could not be created!"))
 )
 (princ)
)
; Jason Piercey . May 16th, 2003 - https://www.theswamp.org/index.php?topic=3007.msg55202#msg55202
; assign a pagesetup to a layout
; [layout] - string, layout name
; [setup] - string, pagesetup to assign
; return: T or nil
(defun putPagesetup (layout setup / layouts plots)
(defun item-p (collection item)
 (if
  (not
   (vl-catch-all-error-p
    (vl-catch-all-apply
     '(lambda () (setq item (vla-item collection item))))))
  item
  )
 )
(and
 (or *acad* (setq *acad* (vlax-get-acad-object)))
 (or *doc* (setq *doc* (vla-get-activedocument *acad*)))
 (setq layouts (vla-get-layouts *doc*))
 (setq plots (vla-get-plotconfigurations *doc*))
 (setq layout (item-p layouts layout))
 (setq setup (item-p plots setup))
 (not (vla-copyfrom layout setup))
 )
)

(entmake
 '(
   (0 . "VIEW")
[color=red]    (100 . "AcDbSymbolTableRecord")
   (100 . "AcDbViewTableRecord")[/color]
   (2 . "TEST1")
   (70 . 0)
   (40 . 15.9716)
   (10 -3.3541 -2.29394)
   (41 . 34.4822)
   (11 1.0 2.0 0.8137)
   (12 0.0 0.0 0.0)
   (42 . 50.0)
   (43 . 0.0)
   (44 . 0.0)
   (50 . 0.0)
   (71 . 0)
   (72 . 1)
   (110 0.0 0.0 0.0)
   (111 1.0 0.0 0.0)
   (112 0.0 1.0 0.0)
   (79 . 0)
   (146 . 0.0)
   )
 )

[color=#8b4513];;;EXPORT VIEWS[/color]
[b][color=BLACK]([/color][/b]defun c:exv [b][color=FUCHSIA]([/color][/b]/ wf p td vn[b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]setq wf [b][color=NAVY]([/color][/b]open [color=#2f4f4f]"VIEW.EMK"[/color] [color=#2f4f4f]"w"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]setq p [color=#2f4f4f]"VIEW"[/color][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]setq td [b][color=MAROON]([/color][/b]tblnext [color=#2f4f4f]"VIEW"[/color] [b][color=GREEN]([/color][/b]not td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
         [b][color=NAVY]([/color][/b]setq vn [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 2 td[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
         [b][color=NAVY]([/color][/b]princ [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"\n"[/color] vn[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
         [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]= [b][color=GREEN]([/color][/b]strcase p[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]substr [b][color=BLUE]([/color][/b]strcase vn[b][color=BLUE])[/color][/b] 1 [b][color=BLUE]([/color][/b]strlen p[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]progn
               [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"[b][color=BLUE]([/color][/b]entmake '[b][color=RED]([/color][/b][b][color=PURPLE]([/color][/b]0 . "[/color]VIEW\[color=#2f4f4f]"[b][color=PURPLE])[/color][/b]"[/color] wf[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b]princ [color=#2f4f4f]"[b][color=PURPLE]([/color][/b]100 . "[/color]AcDbSymbolTableRecord\[color=#2f4f4f]"[b][color=PURPLE])[/color][/b]"[/color] wf[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b]princ [color=#2f4f4f]"[b][color=PURPLE]([/color][/b]100 . "[/color]AcDbViewTableRecord\[color=#2f4f4f]"[b][color=PURPLE])[/color][/b]"[/color]  wf[b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b]foreach g [b][color=PURPLE]([/color][/b]cdr td[b][color=PURPLE])[/color][/b]
                  [b][color=PURPLE]([/color][/b]prin1 g wf[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
               [b][color=RED]([/color][/b]princ [color=#2f4f4f]"[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]"[/color] wf[b][color=GREEN])[/color][/b]
               [b][color=GREEN]([/color][/b]write-line [color=#2f4f4f]""[/color] wf[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]close wf[b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
[color=#8b4513];;;IMPORT THE VIEWS[/color]
[b][color=BLACK]([/color][/b]defun c:imv [b][color=FUCHSIA]([/color][/b]/ rf[b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]setq rf [color=#2f4f4f]"VIEW.EMK"[/color][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]findfile rf[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]load rf[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]