乐筑天下

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

求助!后绑定问题?

[复制链接]

2

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
12
发表于 2005-10-17 20:54:00 | 显示全部楼层 |阅读模式
小弟做cad二次开发时遇到一个问题,请高手帮帮忙!
我是用vb调用cad做的,为了将来生成的程序能在不同版本之间运行,在开始没有引用cad库,采用了后绑定方式。用了很多命令很正常,但是在用布尔运算对实体进行编辑操作时发现了问题。用实体1减实体2,结果不论用求并集,交集还是1减2,结果都是交集。但是引用cad库后就能得出正常的结果了。怎么才能在后绑定状态(不引用cad库)下正常使用布尔运算?程序段如下:
Private Sub buer()
Dim sliceobj(1 To 1000) As Object
    Dim length As Double
    Dim width As Double
    Dim height As Double
    Dim center(0 To 2) As Double
    center(0) = 4.5: center(1) = 4.5: center(2) = 4.5
    length = 9: width = 9: height = 9#
   
    ' 在模型空间中创建长方体 (3DSolid) 对象
    Set sliceobj(1) = moSpace. _
                AddBox(center, length, width, height)
                ' 对立方体进行开挖
' Define the cylinder
    Dim cylinderObj As Object
    Dim aaa As Object
    Dim cylinderCenter(0 To 2) As Double
    Dim cylinderRadius As Double
    Dim cylinderHeight As Double
    cylinderCenter(0) = 4.5: cylinderCenter(1) = 4.5: cylinderCenter(2) = 0#
    cylinderRadius = 3#
    cylinderHeight = 20#
   
    ' Create the Cylinder (3DSolid) object in model space
   
    Set cylinderObj = moSpace.AddCylinder(cylinderCenter, cylinderRadius, cylinderHeight)
' 对立方体进行开挖  
sliceobj(1).Boolean acSubtraction, cylinderObj
'acadDoc.Regen True
acadDoc.Application.ZoomExtents
End Sub
请高手帮帮忙,十分感谢!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2005-10-17 22:53:00 | 显示全部楼层
sliceobj(1).Boolean acSubtraction, cylinderObj
改为
sliceobj(1).Boolean 2, cylinderObj
回复

使用道具 举报

2

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
12
发表于 2005-10-18 12:45:00 | 显示全部楼层
谢谢版主,你太厉害了,以后哦还有向你多多学习请教啊!呵呵
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-4 14:40 , Processed in 1.288421 second(s), 58 queries .

© 2020-2025 乐筑天下

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