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

如何创建二维坐标系啊？

如何创建二维坐标系啊？



Dim ucsObj As AcadUCS<BR>                       Dim origin As Variant<BR>                       Dim xAxisPoint(0 To 2) As Double<BR>                       Dim yAxisPoint(0 To 2) As Double<BR>origin = ThisDrawing.Utility.GetPoint(, "指定标注原点：")


xAxisPoint(0) = origin(0): xAxisPoint(1) = 0: xAxisPoint(2) = 0<BR>yAxisPoint(0) = 0: yAxisPoint(1) = origin(1): yAxisPoint(2) = 0<BR>Set ucsObj = ThisDrawing.UserCoordinateSystems.Add(origin, xAxisPoint, yAxisPoint, "UCS1")<BR>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<BR>yAxisPoint(0) = origin(0): yAxisPoint(1) = origin(1)+1: yAxisPoint(2) = 0<BR>

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

可以了，非常感谢！
页: [1]
查看完整版本: 如何创建二维坐标系啊？