CAD二次开发vba示例

DimacadAppAsObjectDimacadDocAsObjectSubConnectToAcad()OnErrorResumeNextSetacadApp=GetObject(,"AutoCAD.Application")IfErrThenErr.ClearSetacadApp=CreateObject("AutoCAD.Application")acadApp.Visible=TrueIfErrThenMsgBoxErr.DescriptionEndIfSetacadDoc=acadApp.Object　'（会不会出现问题