當前位置: 主頁 > 技術應用領域

技術應用領域

測量軟件如何測量定點點位偏差

時間:2020-01-16 14:39 點擊次數:

客戶對于產品形狀及位置的管控越來越嚴格,隨之輪廓度的標注變得越來越普遍。線輪廓和面輪廓管控的是整條線和整個面的形狀及位置,對于客戶要求輸出各點位偏差來管控線或面的局部偏差情況,我們除了使用Smart Fitting PRO 專業輪廓比對軟件出圖形報告來完成,是否可以在我們Smart pro 測量軟件里直接實現呢?

 

下面我將為大家講解Smart pro 測量軟件里如何解決定點點位置偏差的測量。使用過我們軟件的都知道我們程序界面有強大的自定義函數功能,現在大家就和我一起看如何用自定義函數來實現定點位置偏差的測量。語句如下:

 

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 深圳市納諾測量技術有限公司 版權所有 粵ICP備17045252號 XML地圖 技術支持:進舟科技

在線客服 聯系方式 二維碼

服務熱線

400 8822 949

掃一掃,關注我們

99热99在线_99久久99久久_亚洲国产精品成_久久综合久久美利坚合众国_亚洲无限资源