求助：CAD2008环境下，能精准同步地控制放大缩小的示例
本帖最后由 bill165 于 2015-7-28 17:54 编辑CAD2008环境下，能精准同步地控制放大缩小吗？求解
已经试过
官方示例有一步调试不过去
网上发的不能精准的按坐标控制
01VB编程站及网站链接http://www.01vb.com)及翻译者。
翻译者已经注明这个地方可能有错，高版本的CAD中能用，但08中有错，希望高手指正。谢谢
'' for Center and Scale modes
If pCenter.DistanceTo(Point3d.Origin) <> 0 Then
pMin = New Point3d(pCenter.X - (acView.Width / 2), _
pCenter.Y - (acView.Height / 2), 0)
pMax = New Point3d((acView.Width / 2) + pCenter.X, _
(acView.Height / 2) + pCenter.Y, 0)
End If
'' 使用一个直线创建一个范围对象 译者注：此处可能有错误，因为直线只有 GeometricExtents 属性表示范围
'' Create an extents object using a line
Using acLine As Line = New Line(pMin, pMax)
eExtents = New Extents3d(acLine.Bounds.Value.MinPoint, _
acLine.Bounds.Value.MaxPoint)
End Using
页:
[1]