程序代码：

Dim wcs2ucs As Matrix3d = doc.Editor.CurrentUserCoordinateSystem.Inverse()
Dim ucsPoint As Point3d = worldPoint.TransformBy(wcs2ucs)

                    

程序代码：

    '需要UCS->DCS的转换
    <DllImport("accore.dll", CallingConvention := CallingConvention.Cdecl, EntryPoint := "acedTrans")> _
    Private Shared Function acedTrans(point As Double(), fromRb As IntPtr, toRb As IntPtr, disp As Integer, result As Double()) As Integer
    End Function

       Dim resultBuffer As ResultBuffer = New ResultBuffer(New TypedValue() {New TypedValue(5003, 1)})
       Dim array2 As Double() =  New Double(3 - 1) {}
       acedTrans(first.ToArray(), resultBuffer.UnmanagedObject, resultBuffer2.UnmanagedObject, 0, array2)
       resultBuffer.Dispose()

Dim rbFrom As Object = New ResultBuffer(New TypedValue(5003, 1))
Dim rbTo As Object = New ResultBuffer(New TypedValue(5003, 2))

Dim firres As Object = New Double() {0, 0, 0}
Dim secres As Object = New Double() {0, 0, 0}

' Transform the first point...            

acedTrans(startPoint.ToArray(), rbFrom.UnmanagedObject, rbTo.UnmanagedObject, 0, firres)

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*5=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情