1. 首页
  2. 编程语言
  3. 其他
  4. CAD二次开发vba示例

CAD二次开发vba示例

上传者: 2019-07-31 19:16:18上传 DOC文件 28.5KB 热度 36次
DimacadAppAsObjectDimacadDocAsObjectSubConnectToAcad()OnErrorResumeNextSetacadApp=GetObject(,"AutoCAD.Application")IfErrThenErr.ClearSetacadApp=CreateObject("AutoCAD.Application")acadApp.Visible=TrueIfErrThenMsgBoxErr.DescriptionEndIfSetacadDoc=acadApp.Object '(会不会出现问题
用户评论