求助

lygjianzhu08

我用以下VBA编程:

Sub 画点编程()

Dim startPoint(0 To 2) As Double

Dim OjtPoint As AcadPoint

startPoint(0) = 100 'X值

startPoint(1) = 10000 'Y值

startPoint(2) = 0 'Z值

Set OjtPoint = ACADProject.ThisDrawing.ModelSpace.AddPoint(startPoint)

End Sub

我已置我的用户坐标为当前坐标,但结果却是画点仍以世界坐标值画.我买了一本《AutoCAD VBA二次开发教程》看，但从中未找到启发，请高手百忙中指点一下好吗?以上编程语言，要作什么修改才可以是以UCS坐标画点呢？

lygjianzhu08

' 将点的UCS坐标转化到WCS坐标

Private Function PtUcs2Wcs(ptUcs As Variant) As Variant

    PtUcs2Wcs = ThisDrawing.Utility.TranslateCoordinates(ptUcs, acUCS, acWorld, False)

End Function

 

Sub 画点编程081007()

Dim startPoint(0 To 2) As Double

Dim OjtPoint As AcadPoint

'Dim ptStart As Variant

'Dim ptEnd As Variant

Dim ptStart(0 To 2) As Double

Dim ptEnd(0 To 2) As Double

ptStart(0) = 0 ''40''X值

ptStart(1) = 100 ''Y值

ptStart(2) = 0 '400'''Z值

Dim ptStUcs As Variant

ptStUcs = PtUcs2Wcs(ptStart)

Set OjtPoint = ThisDrawing.ModelSpace.AddPoint(ptStUcs)

End Sub