dim obj1 as AcadTextdim a(2),b(2) as doubledim b as integerdim d as stringobj1=........with obj1a=.InsectionPointb=.TextAlignmentPointc=.Alignmentd=.TextStringend with大体应该这么写吧