重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以在加载时设置一个空间 ,没有菜单,没有命令窗口,完成后改为普通空间,
从事双线服务器托管,服务器租用,云主机,网站空间,域名与空间,CDN,网络代维等服务。
望采纳
你去查查书吧,书上挺详细的,在这说不好说,你先在项目里引用。然后 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 '界面可视
Private Function isopen() As AutoCAD.AcadApplication
Try
dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")
return CADapp_temp
Catch ex As Exception
Return Nothing
End Try
End Function
'调用上面的函数,如果为nothing表示没有打开,否则打开并返回对象
你是要操作cad文件?网上有操作dxf或dwg格式的代码,你看看dxf的格式吧,是明码的。
简单的点线这些好实现,但要尺寸标注或其它的就要麻烦些
VB.NET关闭当前窗体me.close()
其它窗体用:窗体名.close(),例如:form2.close()