鲍勃，
如果你不介意再问一个问题？
该方法非常适合使剪辑边界成为选取的点。
现在检查一下：
- 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'的夹子边界，从两个拾取点的中点开始
，我尝试使用你的方法得到它，但到目前为止没有运气
任何想法？
再次感谢
马克
| 
