[求助]关于用户坐标的问题。

sharksun

为了画图方便。使用了用户自定义坐标，而且已经成功的移动了坐标。但是再作图的时候，为什么还是以原坐标为基准啊？下面是代码一部分，大家看看： Public Sub UCS_Down()
' 定义所需的变量
Dim ucsObj As AcadUCS
Dim origin(0 To 2) As Double
Dim xAxisPnt(0 To 2) As Double
Dim yAxisPnt(0 To 2) As Double
Dim downBaseP3(0 To 2) As Double
' 定义UCS点
origin(0) = GridWidth / 2: origin(1) = 2 * GridPerHeight: origin(2) = 0
xAxisPnt(0) = GridWidth / 2 + 1000#: xAxisPnt(1) = 2 * GridPerHeight: xAxisPnt(2) = 0
yAxisPnt(0) = GridWidth / 2: yAxisPnt(1) = 2 * GridPerHeight + 1000#: yAxisPnt(2) = 0

' 添加UCS到 UserCoordinatesSystems 集合
Set ucsObj = AcadApp.ActiveDocument.UserCoordinateSystems.Add(origin, xAxisPnt, yAxisPnt, "Down_UCS")
' 显示UCS图标
AcadApp.ActiveDocument.ActiveViewport.UCSIconAtOrigin = True
AcadApp.ActiveDocument.ActiveViewport.UCSIconOn = True

' 使新的UCS成为活动的UCS
AcadApp.ActiveDocument.ActiveUCS = ucsObj

End Sub
downBaseP3(0) = 0: downBaseP3(1) = 0: downBaseP3(2) = 0 call AddPoint (downBaseP3) 画一个点（0，0，0），为什么还是以原来的世界坐标为基准呢？ 谢谢指教。

雪山飞狐_lzh

Set AcadApp.ActiveDocument.ActiveUCS = ucsObj


AcadApp.ActiveDocument.ActiveUCS是对象，应该用Set语句赋值

sharksun

飞狐兄弟，应该不是你说的那样。


写法应该没问题的。


很多书上都是那么写的。我按你说的方法试了一下，提示：ID为空。

sharksun

原来还要用transformBy方法将在wcs中创建的的实体转换到ucs中： Dim TransMatrix As Variant
TransMatrix = ucsObj.GetUCSMatrix()
pointObj.TransformBy (TransMatrix) 转换之后还要删除原来的对象。：（ 我要画一个平面的三视图，为了画图方便，需要定义3个用户坐标。有没有方便的方法呢？就像转到一个用户坐标中后，直接可以在里面画？ 谢谢指教。

雪山飞狐_lzh

AutoCAD^® ActiveX Automation 中的所有坐标都是在世界坐标系输入的。使用 GetUCSMatrix 方法可以返回给定 UCS 的转换矩阵。由此转换矩阵可以找出等价的 WCS 坐标。

sharksun

我要画一个平面的三视图，为了画图方便，需要定义3个用户坐标。有没有方便的方法呢？就像转到一个用户坐标中后，直接可以在里面画？

大家都用代码画过这样的图吧，不知道如何做能方便些。


如果用转换矩阵的话，那还不如现在世界坐标下话，画完之后全部选择或者形成块，再move到合适的位置。


感谢飞狐兄。