zoukankan      html  css  js  c++  java
  • 当前已保存的用户坐标系坐标点到世界坐标系的转换

    代码
    //当前已保存的用户坐标系坐标点到世界坐标系的转换
    Sub Example_TranslateCoordinates()
        
    Set ucsObj = ThisDrawing.ActiveUCS '得到当前坐标系
        
        
    ' Have the user enter a point
        Dim pointWCS As Variant
        pointWCS 
    = ThisDrawing.Utility.GetPoint(, "Enter a point to translate:")
        
        
    ' Translate the point into UCS coordinates
        Dim pointUCS As Variant
        pointUCS 
    = ThisDrawing.Utility.TranslateCoordinates(pointWCS, acWorld, acUCS, False)
        
        
    ' Display the coordinates of the point
        MsgBox "The point has the following coordinates:" & vbCrLf & _
                
    "WCS: " & pointWCS(0& "" & pointWCS(1& "" & pointWCS(2& vbCrLf & _
                
    "UCS: " & pointUCS(0& "" & pointUCS(1& "" & pointUCS(2), , "TranslateCoordinates Example"

    End Sub
  • 相关阅读:
    pageX,clientX,screenX,offsetX的区别
    不同的浏览器内核了解学习
    小游戏模仿
    浏览器兼容性
    hack是什么
    DOM对象
    Browser对象
    html状态码与缓存学习
    javascript对象(2)
    javascript对象(1)
  • 原文地址:https://www.cnblogs.com/houlinbo/p/1741622.html
Copyright © 2011-2022 走看看