社区 › VB › 如何创建二维坐标系啊？

thankyou 发表于 2004-7-13 16:26:00

如何创建二维坐标系啊？

如何创建二维坐标系啊？ Dim ucsObj As AcadUCS
                       Dim origin As Variant
                       Dim xAxisPoint(0 To 2) As Double
                       Dim yAxisPoint(0 To 2) As Double
origin = ThisDrawing.Utility.GetPoint(, "指定标注原点：")
xAxisPoint(0) = origin(0): xAxisPoint(1) = 0: xAxisPoint(2) = 0
yAxisPoint(0) = 0: yAxisPoint(1) = origin(1): yAxisPoint(2) = 0
Set ucsObj = ThisDrawing.UserCoordinateSystems.Add(origin, xAxisPoint, yAxisPoint, "UCS1")
ThisDrawing.ActiveUCS = ucsObj
就象在CAD里用UCS命令一样效果。以上程序建立出来的X坐标为什么是反的啊？

雪山飞狐_lzh 发表于 2004-7-13 20:34:00

xAxisPoint(0) = origin(0)+1: xAxisPoint(1) = origin(1): xAxisPoint(2) = 0
yAxisPoint(0) = origin(0): yAxisPoint(1) = origin(1)+1: yAxisPoint(2) = 0

wyj7485 发表于 2004-7-19 08:58:00

可以了，非常感谢！

查看完整版本: 如何创建二维坐标系啊？