Topic: viewport annotation scale from a viewport object?

[mkweaver]

Given a pviewport object, how can I find out if/what annotation scale has been set?

A viewport with it's annotative property turned on, and 1/4" = 1'-0" added and active has the following entity list:

Code: [Select]

((-1 . <Entity name: 7deee828>)
  (0 . "VIEWPORT")
  (5 . "2645")
  (102 . "{ACAD_XDICTIONARY")
  (360 . <Entity name: 7deee830>)
  (102 . "}")
  (330 . <Entity name: 7dee2d40>)
  (100 . "AcDbEntity")
  (67 . 1)
  (410 . "Layout1")
  (8 . "MVIEW")
  (100 . "AcDbViewport")
  (10 29.6203 20.4803 0.0)
  (40 . 11.4448)
  (41 . 14.0507)
  (68 . 2)
  (69 . 2)
  (12 4872.81 -8802.63 0.0)
  (13 0.0 0.0 0.0)
  (14 0.5 0.5 0.0)
  (15 0.5 0.5 0.0)
  (16 0.0 0.0 1.0)
  (17 0.0 0.0 0.0)
  (42 . 50.0)
  (43 . 0.0)
  (44 . 0.0)
  (45 . 674.431)
  (50 . 0.0)
  (51 . 0.0)
  (72 . 1500)
  (90 . 835616)
  (281 . 0)
  (71 . 1)
  (74 . 0)
  (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)
  (170 . 0)
  (61 . 5)
  (348 . <Entity name: 7deee4a0>)
  (292 . 1)
  (282 . 1)
  (141 . 0.0)
  (142 . 0.0)
  (63 . 250)
  (421 . 3355443)
  (-3 ("ACAD" (1000 . "MVIEW")
      (1002 . "{")
      (1070 . 16)
      (1010 0.0 0.0 0.0)
      (1010 0.0 0.0 1.0)
      (1040 . 0.0)
      (1040 . 674.431)
      (1040 . 4872.81)
      (1040 . -8802.63)
      (1040 . 50.0)
      (1040 . 0.0)
      (1040 . 0.0)
      (1070 . 0)
      (1070 . 1500)
      (1070 . 1)
      (1070 . 1)
      (1070 . 0)
      (1070 . 0)
      (1070 . 0)
      (1070 . 0)
      (1040 . 0.0)
      (1040 . 0.0)
      (1040 . 0.0)
      (1040 . 0.5)
      (1040 . 0.5)
      (1040 . 0.5)
      (1040 . 0.5)
      (1070 . 0)
      (1002 . "{")
      (1002 . "}")
      (1002 . "}")
      )
  )
)
I can find the viewport zoom scale factor, but understand that that scale factor may or may not match the annotative scale.

Anyone else know how I can get the annotative scale from a viewport?

Thanks,
Mike

[T.Willey]

You have to look in the extension dictionary (dxf code 360).  From there I forget, but you can check each object in the dictionary, as there shouldn't be too many.

[mkweaver]

You have to look in the extension dictionary (dxf code 360).  From there I forget, but you can check each object in the dictionary, as there shouldn't be too many.

This got me looking in the right direction, which enabled me to create the following routine:

Code: [Select]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  Routine: GetPVPAnnoScale ;;;
;;;  Purpose: Retrieve the annotation scale factor for a paperspace viewport ;;;
;;;  Arguments: PVPent - ename, the entity name for a paperspace viewport ;;;
;;;  Returns: A list, thus: ;;;
;;;   car = the entity handle to the dictionary entry that contains ;;;
;;; the annotation scale factor. ;;;
;;;   cadr = the annotation scale factor for the viewport ;;;
;;;   caddr = the name of the annotation scale factor as shown in ;;;
;;;   the scale list. ;;;
;;;   nil is returned if the annotative property for the viewport ;;;
;;;     has not been set. ;;;
;;;-----------------------------------------------------------------------------;;;
;;;  Comments:  The entity handle is returned so that this information can be ;;;
;;; persisted. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun GetPVPAnnoScale(PVPent / PVPDict DictList ScaleName ScaleFactor)
  (cond
    ;;This viewport's annotative scale has not been set.
    ((null (assoc 360 (setq PVPElist (entget PVPent))))
     nil
     )
    (T
     (setq
       PVPDict (entget (cdr (assoc 360 PVPElist)))
       DictList (entget (cdr (assoc 340 (entget (cdr (assoc 360 PVPDict))))))
       ScaleName (cdr (assoc 300 DictList))
       ScaleFactor(/ (cdr (assoc 141 DictList))(cdr (assoc 140 DictList)))
       )
     (list (cdr (assoc 5 DictList)) ScaleName ScaleFactor)
     )
    )
  )

Which brings me to my next question, which addresses the question behind the question:  How to implement annotation scaling on existing drawings? Which will be the subject for another thread.