乐筑天下

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

[求助]关于后期绑定的疑问

[复制链接]

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2005-1-1 14:41:00 | 显示全部楼层 |阅读模式
先祝大家元旦快乐!
用vb编译dll对acad进行插入图块、添加文本等操作,想后期绑定acadapp,使得程序不受cad版本的影响。我
的基本代码如下:
先在通用中定义:
Dim Acadapp As Object
Sub test()
                         call linkacad(acadapp)
                         call insertblock(acadapp)
End Sub
Sub linkacad(Acadapp)
                         Set Acadapp = GetObject(, ".application")         
End Sub
Sub insertblock(Acadapp)
                         dim blockrefobj As AcadBlockReference
                         Set blockrefobj = Acadapp.ActiveDocument.ModelSpace.InsertBlock(insertionpoint, "图块", 1,
1, 1, 0)
End Sub
运行中发现,如果当前打开的cad版本与引用的cad类型库一样的话则执行正确,不同的话则会在insertblock
产生错误,但图块已经被插入了。请问我什么地方做错了?如何修改?
回复

使用道具 举报

10

主题

131

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
171
发表于 2005-1-3 10:57:00 | 显示全部楼层
dim blockrefobj As Object
回复

举报

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2005-1-3 17:46:00 | 显示全部楼层
原来就这样解决了,太谢谢了!!!
回复

举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-17 05:31 , Processed in 0.581565 second(s), 58 queries .

© 2020-2025 乐筑天下

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