Topic: Getting and setting coordinates and scale of viewports

[Red Nova]

Hi.

The way I work with dwg files is I always have a frame block in the model space that is of size of the paper and has appropriate annotative scale.
Then I go to paper space, and through the viewport I am navigating to this block and setting the scale accordingly. See attached file for reference.

I am willing to write a code that would allow me:
- While being on the paper space go inside the viewport, select the frame block in modelspace - after this annotative scale of the viewport and it's coordinates should be adjusted based on scale and location of the frame block in model space.
This would be useful every time I would create a new page.

Are there some functions that would allow to set coordinates and annotative scale of the viewport?
Express tools has a similar command but it's not exactly the same....

Thank you

[HasanCAD]

Give this command a try
CHANGESPACE
https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-Core/files/GUID-0988D29E-D54E-4C87-ADAF-11AA91B1B691-htm.html

[Red Nova]

HasanCAD, I don't think you got my question right way. I know CHANGESPACE, but it's not connected to what I am looking for.
alignspace is closer, but still not the same.

[rayakmal]

I usually do this:
1. Create or Name a view of the Block Frame in Model Space.
2. Switch to Paper Space.
3. Activate the Viewport.
4. Call that Named view of the Block Frame

[Marco Jacinto]

rayakmal, simple and effective, haven't figure it out, thanks.

[Red Nova]

rayakmal,

Thanks for the suggestion.
But I still think it's too slow for me.

[rayakmal]

rayakmal,

Thanks for the suggestion.
But I still think it's too slow for me.

It's a pseudo-code. You can speed up the process by using Lisp.

[Red Nova]

Your post gave me idea for this ։).
Not universal since it will work with exact blocks and exact viewport setup. But it's something to start with...

Code - Auto/Visual Lisp: [Select]

1. (defun C:test ( / sourceann adoc blk vlablk blkXY pt1 pt2)
2.   (vl-load-com)
3.   (vla-startundomark
4.     (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
5.     );_ end of vla-startundomark
6.   (setq blk (car(entsel)))
7.   (setq vlablk (vlax-ename->vla-object blk))
8.   (setq sourceann (/ 1 (car(getannoscalevalues blk))))
9.   (setq blkXY (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint vlablk))))
10.   (setq pt1 (list (+ (car blkXY) (* sourceann 1)) (+ (cadr blkXY) (* sourceann 0.5)))
11.         pt2 (list (+ (car blkXY) (* sourceann 31)) (+ (cadr blkXY) (* sourceann 23.5))))
12.   (command "zoom" "w" pt1 pt2)
13.   (vla-endundomark adoc) ; undomark mark
14.   (princ)
15. );defun
16.  
17.  
18. (defun getannoscalevalues (e / el dict lst rewind res)
19.       (if (and e
20.            (setq dict (cdr (assoc 360 (entget e))))
21.            (setq lst (dictsearch dict "AcDbContextDataManager"))
22.            (setq lst (dictsearch (cdr (assoc -1 lst)) "ACDB_ANNOTATIONSCALES")) ;_ end of setq
23.            (setq dict (cdr (assoc -1 lst)))
24.           ) ;_ end of and
25.         (progn
26.           (setq rewind t)
27.           (while
28.             (setq lst   (dictnext dict rewind))
29.             (setq e     (cdr (assoc 340 lst))
30.                    ;; RJP 5.9.2017 - added decimal value to list
31.                    res  (cons (/ (cdr (assoc 140 (entget e))) (cdr (assoc 141 (entget e)))) res)
32.                    rewind nil
33.              ) ;_ end of setq
34.            ) ;_ end of while
35.         ) ;_ end of progn
36.       ) ;_ end of if
37.       (reverse res)
38.     )