是的，先生！
这就是门票！
非常感谢Bob！
标记 鲍勃，
如果你不介意再问一个问题？
该方法非常适合使剪辑边界成为选取的点。
现在检查一下：
Dim llpnt As Variant 'lower left point
Dim urpnt As Variant 'upper right point
With ThisDrawing.Utility
llpnt = .GetPoint(, vbCrLf & "Select Lower Left Point: ")
urpnt = .GetPoint(, vbCrLf & "Select Upper Right Point: ")
End With
mdpnt(0) = llpnt(0) + ((urpnt(0) - llpnt(0)) / 2) 'Midpoint (X) = The point in the far left direction - the point in the far right direction / 2
mdpnt(1) = llpnt(1) + ((urpnt(1) - llpnt(1)) / 2) 'Midpoint (Y) = The point in the far top direction - the point in the far bottom direction / 2
mdpnt(2) = 0
我已经计算了两个选择点的中点;
现在我想使我的剪辑边界从x和y方向的中点开始5
'给我一个5'x 5'的夹子边界，从两个拾取点的中点开始
，我尝试使用你的方法得到它，但到目前为止没有运气
任何想法？
再次感谢
马克
我还需要9分吗？
标记
页:
1
[2]