明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1835|回复: 2

VB与CAD的连接

[复制链接]
发表于 2005-6-9 12:31:00 | 显示全部楼层 |阅读模式
我在利用VB开发CAD时,只有一个窗体需要创建CAD对象,我先引用CAD,然后添加了一个窗体,在该窗体的代码窗体输入以下代码,VB中也是通过的,但并没有显示连接到了CAD界面,还是一个空白窗体!请各位帮忙指教一下!!(这段代码是来自一本参考书,但并没有达到效果,很是郁闷!!)


dim acadapp as acadapplication


private sub form_load


on error sub resume next


set acadapp=getobject(,"AutoCAD.application")


if err then


err.clear


set acadapp=createobject("autocad.application")


if err then


msgbox("error!")


exit sub


end if


end if


acadapp.visible=ture


end sub


发表于 2005-6-11 07:52:00 | 显示全部楼层
Dim AcadApp As AcadApplication
Dim AcadDoc As AcadDocument
Dim ThisDrawing As AcadDocument
'由工程直接调用启动程序
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If err > 0 Then
err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If err Then
MsgBox err.Description
End
End If
End If
Set AcadDoc = AcadApp.ActiveDocument
Set ThisDrawing = AcadApp.ActiveDocument
AcadApp.Visible = True
On Error Resume Next
' 交由AutoCAD控制
Me.Hide
ThisDrawing.Application.ZoomAll
发表于 2005-6-11 18:36:00 | 显示全部楼层
呵呵,我想你大概是想把CAD的图形显示窗口当做ACTIVATEX控件来用吧,可惜CAD并不支持。它只能做到库的挂接,具体的显示界面还是CAD本身的。VB所做的只是幕后操控罢了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-27 14:44 , Processed in 0.163491 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表