ExitSub
EndIf
EndIf
AcadApp.Visible=True
EndSub
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
本文提供簡單的實現(xiàn)方法,借以拋磚引玉。其中不當(dāng)之處希望行家給以指正