CodePudding user response:
This is a simple calculation, do you have any difficulty?CodePudding user response:
The building Lord consult:'Excel VBA code:
Option Explicit
Sub Main ()
Dim cw# ch#, dR As Double
DR ratio=0.65 '
With Sheet1. Shapes (1) "pick up" A line "object
The cw=. Width
Ch=. Height
End With
With Sheet1. Shapes (2) 'pick up line "B" object
. Width=dR * the cw
The Height=dR * ch
End With
End Sub
As long as the starting point of "B" line in the original "painting objects," as the starting point of "A line" is A coincidence,
CodePudding user response:
Even without calculating length,Assuming Xa0=Xbo, Ya0=Ybo:
Xb1=(Xa1 - Xa0) * 0.5
Yb1=(Ya1 - Ya0) * 0.5
CodePudding user response:
Straight line segment of the parametric equation ofThis is what grade elementary school mathematics knowledge?
CodePudding user response: