hnzgs 发表于 2011-2-23 14:53:00

Extents3d.AddExtents的疑惑


'测试函数
Public Shared Sub cs()
Dim a As New Extents3d(New Point3d(0, 0, 0), New Point3d(100, 100, 0))
Dim b As New Extents3d(New Point3d(100, 100, 0), New Point3d(200, 200, 0))
a.AddExtents(b)
' 获取当前活动文档的Editor对象，也就是命令行
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
' 调用Editor对象的WriteMessage方法在命令行上显示文本
ed.WriteMessage(a.ToString)
End Sub
2006下，运行结果为什么会是：((0,0,0),(0,0,0))

雪山飞狐_lzh 发表于 2011-3-1 10:00:00

2006的bug很多的，其他的版本没有发现这样的问题
如果一定要用2006的话，建议自己重写

hnzgs 发表于 2011-3-1 10:52:00

回复
多谢飞狐版主，CAD2006莫名的BUG的确让人头大，已更换为CAD2010
运行结果为：((0,0,0),(200,200,0))

20033535 发表于 2011-3-3 16:58:00

以前遇见过，最后先写2010的程序，再改写为2006的

hnzgs 发表于 2011-3-4 10:03:00

回复
目前碰到的除了这个，还有选集过滤器的BUG，都是需要用到的东东，机器跑2010已经到极限，实属无奈之选
页: [1]
查看完整版本: Extents3d.AddExtents的疑惑