请教:利用VB编程,计算出的数据在CAD中画图,我需要学习什么样的教程
我是学物探地质的,在数据整理的时候,一般我都是编个小程序,然后用生成的数据在CAD上画图,我想怎么把VB和CAD连接起来,需要学习什么样的教程,请提供学习地址,谢谢!!!...
我是学物探地质的,在数据整理的时候,一般我都是编个小程序,然后用生成的数据在CAD上画图,我想怎么把VB和CAD连接起来,需要学习什么样的教程,请提供学习地址,谢谢!!!!
展开
展开全部
On Error Resume Next
Set CADapp = GetObject(, "AcadApplication")
CADapp.Documents.Add
If Err Then
Set CADapp = New AcadApplication
Err.Clear
End If
CADapp.Visible = True
CADapp.WindowState = acMax
CADapp.ActiveDocument.SendCommand "-style" & Chr(10) & Chr(13) & "宋体" & Chr(10) & Chr(13) & " "
CADapp.ActiveDocument.Linetypes.Load "ACAD_ISO04W100", "acadiso.lin"
Set CADapp = GetObject(, "AcadApplication")
CADapp.Documents.Add
If Err Then
Set CADapp = New AcadApplication
Err.Clear
End If
CADapp.Visible = True
CADapp.WindowState = acMax
CADapp.ActiveDocument.SendCommand "-style" & Chr(10) & Chr(13) & "宋体" & Chr(10) & Chr(13) & " "
CADapp.ActiveDocument.Linetypes.Load "ACAD_ISO04W100", "acadiso.lin"
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
参考张晋西的vb二次开发autoca这本书吧,比较适合你,jxcad里也有下载的,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
VB和数据库进行二次开发!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询