;有的软件作用的尺寸经常是文字和标注线分离的, 文字合入标注

(vlax-put-property (vlax-ename->vla-object (car(entsel"尺寸"))) 'TextOverride (vlax-get-property (vlax-ename->vla-object(car(entsel"文字")))'TextString ) )