[讨论学习]GetPoint方法在UCS下的显示的橡皮筋线出错问题

陈宫在家吗

在编制自用小工具时，发现如果设定过UCS，那么使用 GetPoint(pt1, "请选择下一点：") 方法时，屏幕上显示的橡皮筋线会出错，原因应该是WCS与UCS的转换问题。解决方法就是使用 TranslateCoordinates 方法，把坐标转换一下。

Dim pt1 As Variant, pt1_UCS As Variant, pt2 As Variant

pt1 = Thisdrawing.Utility.GetPoint(, "请选择起点：")
pt1_UCS = ThisDrawing.Utility.TranslateCoordinates(pt1, acWorld, acUCS, False)
pt2 = ThisDrawing.Utility.GetPoint(pt1_UCS, "请选择下一点：")

这样，橡皮筋线显示就不会出错了。

chixun99

这类问题好多部位会出现？例如选择打印范围时，测量的对象的GetBoundingBox 方法获得对象所在的矩形边界坐标。就是直接UCS的坐标，而打印输出时使用的是WCS的坐标，有时打印结果错误的内容就是对应WCS坐标并没有正确的结果。也可以用你的这个方法转换一下，然后才能保证打印结果正确。