数控122太劣阿昕哥
四、程序设计
PublicX0AsDoubleY0AsDoubleX1AsDoubleY1AsDoubleX2AsDoubleY2AsDoubleRAsDoublePublicXs1AsDoubleYs1AsDoubleXs2AsDoubleYs2AsDoublePublicOriAsI
tegerPublicXl1AsDoubleYl1AsDoubleXl2AsDoubleYl2AsDoubledX1AsDoubledY1AsDoubledX2AsDoubledY2AsDoubled1AsDoubled2AsDouble
PrivateSubComma
d1_Click
DimX1_FWDAsI
tegerY1_FWDAsI
tegerX2_FWDAsI
tegerY2_FWDAsI
tegerDimalfaAsDoublebetaAsDouble
CallPai
tAxis
绘制补偿前图像Picture1ForeColorvbBluePicture1DrawWidth1Picture1Li
eX0Y0X1Y1Picture1Li
eX1Y1X2Y2
算法设计
计算坐标增量dX1X1X0dY1Y1Y0dX2X2X1dY2Y2Y1
alfaAt
dY1dX1
betaAt
dY2dX2
IfdX10The
X1_FWD1ElseX1_FWD1E
dIf
IfdX20The
X2_FWD1
fElseX2_FWD1E
dIf
IfdY10The
Y1_FWD1ElseY1_FWD1E
dIf
IfdY20The
Y2_FWD1ElseY2_FWD1E
dIf
计算d1d2d1SqrdX12dY12d2SqrdX22dY22计算方向矢量投影Xl1dX1d1Yl1dY1d1Xl2dX2d2Yl2dY2d2
判断缩短型伸长型插入型
IfOriYl2Xl1Xl2Yl10The
缩短型
刀补建立IfCombo1ListI
dex0A
dOriYl2Xl1Xl2Yl10The
Xs1X1ROriYl2Ys1Y1ROriXl2X_0pTextX0Y_0pTextY0X_s1TextXs1Y_s1TextYs1X_2pTextXs1dX2Y_2pTextYs1dY2
Picture1ForeColorvbMage
taPicture1Li
eX0Y0Xs1Ys1Picture1Li
eXs1Ys1Xs1dX2Ys1dY2
f刀补进行ElseIfCombo1ListI
dex1The
IfYl2Xl1Xl2Yl10The
l1与l2共线Xs1X1ROriYl1Ys1Y1ROriXl1X_0pTextXs1dX1Y_0pTextYs1dY1X_s1TextXs1Y_s1TextYs1X_2pTextXs1dX2Y_2pTextYs1dY2
Picture1ForeColorvbMage
taPicture1Li
eXs1dX1Ys1dY1Xs1Ys1Picture1Li
eXs1Ys1Xs1dX2Ys1dY2
Elsel1与l2不共线Xs1X1Xl2Xl1OriRXl1Yl2Xl2Yl1Ys1Y1Yl2Yl1OriRXl1Yl2Xl2Yl1X_0pTextXs1dX1Y_0pTextYs1dY1X_s1TextXs1Y_s1TextYs1X_2pTextXs1dX2Y_2pTextYs1dY2
Picture1ForeColorvbMage
taPicture1Li
eXs1dX1Ys1dY1Xs1Ys1Picture1Li
eXs1Ys1Xs1dX2Ys1dY2
E
dIf
刀补撤销ElseIfCombo1ListI
dex2A
dOriYl2Xl1Xl2Yl10The
Xs1X1ROriYl1Ys1Y1ROriXl1X_0pTextXs1dX1Y_0pTextYs1dY1X_s1TextXs1Y_s1TextYs1X_2pTextX2Y_2pTextY2
fPicture1ForeColorvbMage
taPicture1Li
eXs1dX1Ys1dY1Xs1Ys1Picture1Li
eXs1Ys1X2Y2
E
dIf
ElseIfOriYl2Xl1Xl2Yl10A
dYl2Yl1Xl2Xl10The
伸长型
刀补建立IfCombo1ListI
dex0The
第一对转接点Xs1X1ROriYl1Ys1Y1ROriYl1第二r