引线标注如何定义文字的大小

Jack_PC

这是我在论坛看到的一个引线标注程序，但是看不懂程序中在那里定义文字的大小，请高手指点。

(defun c:test (/ ent mspace i m wenzi a b c d aa bb cc dd ee ff gg leader)
(setq ent (car (entsel)))
(setq mspace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
(setq i T)
(while i
  (setq a (grread T 4 0) b (car a) c (cadr a))        
  (cond ((= b 5)                                                
        (setq a (trans (cadr a) 1 0))                 
        (setq d (vlax-curve-getclosestpointto ent a))
        (setq aa (car a) bb (cadr a) cc (caddr a))   
       (setq dd (car d) ee (cadr d) ff (caddr d))   
        ;;★创建引线★
        (setq gg (vlax-make-safearray vlax-vbDouble '(0 . 5)))
        (vlax-safearray-fill gg (list dd ee ff aa (- (cadr a) 2) cc))
     (if (not Leader)  ;;如果leader为空
         (progn
         (setq m (vla-AddMText mspace (vlax-3d-point (list aa (- (cadr a) 1.5))) 0 "A")) ;;创建文字A
         (setq wenzi (vlax-make-safearray vlax-vbString '(1 . 9)))
         (vlax-safearray-fill wenzi '("TopLeft" "TopCenter" "TopRight" "MiddleLeft"
         "MiddleCenter" "MiddleRight" "BottomLeft" "BottomCenter" "BottomRight"))
         (setq Leader (vla-AddLeader mspace gg m acLineWithArrow))  
         ) ;;end_progn
       );;end_if
    (if (<= aa dd) ;;
        (vla-put-AttachmentPoint m 9)     
        (vla-put-AttachmentPoint m 7)   
    );;end_if
(vla-put-InsertionPoint m (vlax-3d-point (list aa (- (cadr a) 1.5))))  
(vla-put-Coordinates Leader gg)   
(vla-put-VerticalTextPosition Leader 1)

) ;;end_cond第一个括号
((= b 3) (setq i nil))
) ;;end_cond
) ;;end_while
(princ)
)

ljpnb

文字大小受系统变量TEXTSIZE控制

Jack_PC

ljpnb 发表于 2011-7-10 16:14
文字大小受系统变量TEXTSIZE控制

非常谢谢，原来这样就可以了