[编程交流] 将对象附着到标注

(defun  c:test (/ aDoc selset e str data p1 ) 
(defun MtexInfo ( mt /  db dl ds );;LM snippet
 (if 
   (and 
     (wcmatch (cdr (assoc 0 (setq dl (entget mt)))) "*DIMENSION") 
     (setq db (tblobjname "BLOCK" (cdr (assoc 2 dl)))) 
   ) 
   (while (and (setq db (entnext db)) (not ds)) 
     (if (eq "MTEXT" (cdr (assoc 0 (setq dl (entget db))))) 
       (setq ds (mapcar '(lambda (j) 
                                   (cdr (assoc j dl))) '(42 43 50 7 10)))) 
     ) 
   ) ds 
 )   
 (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object))) 
 (if (setq selset (ssget '((0 . "DIMENSION")))) 
   (repeat (sslength selset) 
     (setq e   (vlax-ename->vla-object (ssname selset 0)) 
       ) 
       (vla-put-Textprefix e 
         "{\\Fgdt|c0;\\H0.75x;o} " 
           ) 
     (setq data (mtexinfo (ssname selset 0))) 
     (entmakex 
       (list (cons 0 "LINE") 
         (cons 10 (setq p1 
              (polar (polar 
                  (last data) 
                  (+ pi (caddr data)) 
                  (- 
                    (/ (car data) 2.0) 
                    (* 
                      (/ (cadr data) 2.0) 
                      (* (cdr 
                           (assoc 41 (tblsearch "STYLE" (nth 3 data))) 
                           ) 
                         0.75 
                         ) 
                      ) 
                    ) 
                  ) 
                (+ (* pi 1.5) (caddr data)) 
                (/ (cadr data) 2.0) 
                ) 
             ) 
           ) 
         (cons 11 (polar p1 (+ (/ pi 2.0) (caddr data)) (cadr data))) 
         ) 
       ) 
     (ssdel (ssname selset 0) selset) 
     ) 
   ) 
 (princ) 
 )