客户关于产品外形及地位的管控越来越严厉，随之表面度的标注变得越来越广泛。线表面和面表面管控的是整条线和整个面的外形及地位，关于客户要求输入各点位偏向来管控线或面的部分偏向状况，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坐标实际值即可。下图为丈量后果：