[编程交流] 将注释比例添加到

(defun addannscale (ent scales / acdbdict dict elist scdict txtocd scale)
   (entmod (setq elist (append (entget ent) '((-3 ("AcadAnnotative" (1000 . "AnnotativeData") (1002 . "{") (1070 . 1) (1070 . 1) (1002 . "}")))))));annotative
   (setq dict (vlax-vla-object->ename (vla-getextensiondictionary (vlax-ename->vla-object ent)));this will get or if not present create the entity extension dictionary
         acdbdict (dictadd dict "AcDbContextDataManager"
                           (entmakex (list '(0 . "DICTIONARY")
                                           '(100 . "AcDbDictionary")
                                           '(280 . 0)
                                           '(281 . 1)
                                           )
                                     )
                           )
         scdict (dictadd acdbdict "ACDB_ANNOTATIONSCALES"
                         (entmakex
                           (list '(0 . "DICTIONARY")
                                 '(100 . "AcDbDictionary")
                                 '(280 . 0)
                                 '(281 . 1)
                                 )
                           )
                         )
         )
   (foreach x scales
     (setq txtocd (entget (cdr x))
           scale (entget (cdr (assoc 340 txtocd)))
           )
     (dictadd scdict
              (car x)
              (entmakex (list '(0 . "ACDB_MTEXTOBJECTCONTEXTDATA_CLASS")
                              '(100 . "AcDbObjectContextData")
                              (assoc 70 txtocd)
                              (assoc 290 txtocd)
                              '(100 . "AcDbAnnotScaleObjectContextData")
                              (assoc 340 txtocd) ;The scale ename in the dictionary
                              (cons 70 (cdr (assoc 71 elist)));this is the attachment point at the time the entity was created
                              (cons 10 (cdr (assoc 11 elist)));direction vector
                              (cons 11 (cdr (assoc 10 elist)));insert point
                              '(40 . 0)
                              '(41 . 0)
                              (cons 42 (/ (* (cdr (assoc 42 elist)) (cdr (assoc 141 scale))) (cdr (assoc 140 scale))))
                              (cons 43 (/ (* (cdr (assoc 43 elist)) (cdr (assoc 141 scale))) (cdr (assoc 140 scale))))
                              '(71 . 0)
                              )
                        )
              )
     );foreach
   )

(defun entscales (en / a b)
   (if (and (setq a (cdr (assoc 360 (entget en))))
            (setq a (dictsearch a "AcDbContextDataManager"))
            (setq a (dictsearch (cdr (assoc -1 a)) "ACDB_ANNOTATIONSCALES"))
            )
     (while (assoc 3 a)
       (setq b (cons (cons (cdr (assoc 3 a)) (cdr (assoc 350 a))) b)
             a (cddr (member (assoc 3 a) a))
             )
       )
     )
   (reverse b)
   )