• j9九游会首页登录 |首页

    以后地位: 主页 > 技能使用范畴

    技能使用范畴

    丈量软件怎样丈量定点点位偏向

    ###:39 点击次数:

    客户关于产品外形及地位的管控越来越严厉,随之表面度的标注变得越来越广泛。线表面和面表面管控的是整条线和整个面的外形及地位,关于客户要求输入各点位偏向来管控线或面的部分偏向状况,j9九游会首页登录除了利用Smart Fitting PRO 专业表面比对软件出图形陈诉来完成,能否可以在j9九游会首页登录Smart pro 丈量软件里间接完成呢?

     

    上面我将为各人解说Smart pro 丈量软件里怎样办理定点点地位偏向的丈量。利用过j9九游会首页登录软件的都晓得j9九游会首页登录步伐界面有壮大的自界说函数功效,如今各人就和我一同看怎样用自界说函数来完成定点地位偏向的丈量。语句如下:

     

    DimNX() As Double ={-15.25,-15.24,-14.75,-13.6,-9.17,-3.4}  '按量测次序输出X坐标实际值

     

    DimNY() As Double ={0.25,3.35,5.86,10.2,12,13.6} '按量测次序输出Y坐标实际值

     

    DimNZ() As Double ={0,0,0,0,0,0} ' 按量测次序输出z坐标实际值

     

    DimNangle() As Double ={197,168,170,124,110,111} ' 按量测次序输出角度值(寻线箭头与X偏向夹角)

     

       '****************************************************     

    ProfileDEV(Nx:=NX,Ny:=NY,Nz:=NZ,Nangle:=Nangle)    '挪用丈量偏向函数         

     

    EndSub

     

     

     

    '****************************************************

     

    PublicSub ProfileDEV(Nx() As Double, Ny() As Double, Nz() As Double, Nangle() AsDouble)  

     

        Dim mCount As Integer = ubound(Nx)

     

        Dim ReX(mCount) As Double

     

        Dim ReY(mCount) As Double

     

        Dim Dev(mCount) As Double

     

        Dim i As Integer  

     

        For i = 0 To mCount Step 1

     

    Measure(ID:="PF"&i+1,Type:=MPoint,X:=nx(i),Y:=ny(i),Z:=nz(i))

     

    TPoint(X:=nx(i),Y:=ny(i),A:=nangle(i),L:=80,D:=Random,F:=40,G:=74)  '选中此行按F9可修正寻线箭头长度,阀值,过滤范畴等属性(不行修正X,Y,A值)

     

    EndMea()

     

        Next   

     

    '************************上面为盘算偏向步伐****************************      

     

        For j As Integer =0 To mCount

     

    ReX(j)=Item("pf"&j+1).X    

     

    ReY(j)=Item("pf"&j+1).Y

     

     Dev(j)=Sqrt(math.pow(x:=(Rex(J)-NX(J)),y:=2)+math.pow(x:=Rey(j)-Ny(j),y:=2))  

     

    Dimix As Double

     

    ix=Dev(j).ToString("0.0000")'各点偏向的盘算

     

    OutPut(T:=X,D:="Dev"&j+1,L1:="PF"&j+1,N:="0",U:="0.1000",L:="0",a:=ix) '输入各点偏向 

     

        Next

     

        Dim im As Double

     

    im= (max(Dev))*2.ToString("0.0000")'表面度的盘算,此处算法为最大偏向乘2

     

    OutPut(T:=X,D:="MaxDev",L1:="PF1",N:="0",U:="0.1000",L:="0",a:=im)'输入表面度值

     

     

    是不是以为很庞大,各人无需担忧,庞大的函数曾经为各人写好,各人按量测次序输出X,Y,Z坐标实际值即可。下图为丈量后果:


    Copyright © 2015-2021 深圳市纳诺丈量技能有限公司 版权一切 粤>### XML舆图

    在线客服 联系方法 二维码

    办事热线

    ###

    扫一扫,存眷j9九游会首页登录