乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 32|回复: 2

VB与CAD的连接

[复制链接]

1

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 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(,".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
回复

使用道具 举报

68

主题

218

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
490
发表于 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
回复

使用道具 举报

4

主题

15

帖子

2

银币

初来乍到

Rank: 1

铜币
31
发表于 2005-6-11 18:36:00 | 显示全部楼层
呵呵,我想你大概是想把CAD的图形显示窗口当做ACTIVATEX控件来用吧,可惜CAD并不支持。它只能做到库的挂接,具体的显示界面还是CAD本身的。VB所做的只是幕后操控罢了!
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-3 17:45 , Processed in 1.166016 second(s), 59 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表