Private Function isopen() As AutoCAD.AcadApplication
隆阳ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联建站的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:13518219792(备注:SSL证书合作)期待与您的合作!
Try
dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")
return CADapp_temp
Catch ex As Exception
Return Nothing
End Try
End Function
'调用上面的函数,如果为nothing表示没有打开,否则打开并返回对象
按照常理说一句哈: 找CAD的API。然后在你的程序里写语句,调用这个API。关键是找到可以操作CAD的图层的API。欧特克提供了这个吗?
利用CAD对象捕捉功能。通过查询netcadgetpoint官网得知,vbnetcadgetpoint可以利用CAD对象捕捉功能才能选切点,vbnetcadgetpoint在新基建工程对话框当选择工程部类为Visual Basic工程。
你去查查书吧,书上挺详细的,在这说不好说,你先在项目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视