PublicSubAcadQuit() '釋放內(nèi)存空間 OnErrorResumeNext AcadApp.Quit SetAcadApp=Nothing EndSub
PublicSubDrawTxt(xAsDouble,yAsDouble,HAsDouble,FactrAsDouble,angleAsDouble,tXtstrAsString)'單行文本 DimtxtobjAsAcadText DimP(0To2)AsDouble P(0)=x:P(1)=y:P(2)=0 Settxtobj=AcadApp.ActiveDocument.ModelSpace.AddText(tXtstr,P,H) txtobj.ScaleFactor=Factr txtobj.Rotation=angle*3.1415926/180 EndSub 本文提供簡單的實(shí)現(xiàn)方法,借以拋磚引玉。其中不當(dāng)之處希望行家給以指正