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
  • 相关阅读:
    Android平板电脑开发实战详解和典型案例
    UG NX10.0技术大全(不附光盘)
    SolidWorks 2018中文版机械设计应用大全
    1192.回文字符串
    1193.矩阵转置
    1195.最长&最短文本
    1194.八进制
    1196.成绩排序
    1197.奇偶检验
    1199.找位置
  • 原文地址:https://www.cnblogs.com/houlinbo/p/1741622.html
Copyright © 2011-2022 走看看