[VB]请求高手指点江山!!用户坐标系转换问题

以马内利

请指教：


         我在前面定义了一个objUCS，之后激活；gAcadDocument.ActiveUCS = objUCS


当用Set objLine = gAcadDocument.ModelSpace.Addline(dblStart,dblEnd)画线的时候它并没有按着我定义的用户坐标系的坐标去画，还是用最一开始没有定义之前的坐标去画的，可是当我用：


gAcadDocument.SendCommand "line" & vbCr & CStr(dblStart(0)) &"," & CStr(dblStart(1)) & ", 0"         & vbCr & CStr(dblEnd(0)) & "," & CStr(dblEnd(1)) & ",0" & vbCr & vbCr 画出来的线就可以按着我自定义的坐标系画了，我请问一下这两个语句有什么不同呢，问题出在哪里呢！


谢谢指教！

tfyyf

VB只能获得或控制世界坐标系的坐标

mccad

可使用TranslateCoordinates 方法把坐标从UCS转到WCS，再画线。