Extents3d.AddExtents的疑惑

hnzgs

2. '测试函数
   
3.   Public Shared Sub cs()
   
4. Dim a As New Extents3d(New Point3d(0, 0, 0), New Point3d(100, 100, 0))
   
5. Dim b As New Extents3d(New Point3d(100, 100, 0), New Point3d(200, 200, 0))
   
6. a.AddExtents(b)
   
7. ' 获取当前活动文档的Editor对象，也就是命令行
   
8. Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
   
9. ' 调用Editor对象的WriteMessage方法在命令行上显示文本
   
10. ed.WriteMessage(a.ToString)
    
11. End Sub

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

AutoCAD2006下，运行结果为什么会是：((0,0,0),(0,0,0))

雪山飞狐_lzh

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

hnzgs

回复 雪山飞狐_lzh 的帖子

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

20033535

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

hnzgs

回复 20033535 的帖子

目前碰到的除了这个，还有选集过滤器的BUG，都是需要用到的东东，机器跑2010已经到极限，实属无奈之选