hzx2000_0 发表于 2006-2-20 12:30:00

请问如何获得标注的起点和终点坐标，除了DimAligned那个。谢谢！

请问如何获得标注的起点和终点坐标，除了DimAligned那个。谢谢！

ybhfau 发表于 2006-2-23 16:49:00

<P>Dim PtPick As Variant</P>
<P>dim pstar(0 to 1),&nbsp; pend(0 to 1),&nbsp;as double<BR>&nbsp;&nbsp;&nbsp; userform1.Hide<BR>&nbsp; MsgBox ("选择起点"&nbsp;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PtPick = ThisDrawing.Utility.GetPoint(, "选择起点")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>'这个时候你也可以给你的变量值<BR>&nbsp;&nbsp; pstar(0)=PtPick(0)&nbsp;<BR>&nbsp; &nbsp;pstar(1)=PtPick(1) <BR>MsgBox ("选择终点"&nbsp;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PtPick = ThisDrawing.Utility.GetPoint(, "选择终点")&nbsp;<BR>'这个时候你也可以给你的变量值<BR>&nbsp;&nbsp; pend(0)=PtPick(0)&nbsp;<BR>&nbsp; &nbsp;pend(1)=PtPick(1)<BR>&nbsp; userform1.show<BR>你还可以试试其他的方法，也可以吧坐标值直接显示在你的窗体的文本内，语句想应改变就可以了！</P>

gzmkshjsh 发表于 2006-2-24 11:37:00

利用VBA如何控制线性标注文字的具体位置？如标注距离小，文字不能放到尺寸界线内，只能放在外边，能不能控制其放置的具体位置？

hzx2000_0 发表于 2006-2-27 22:41:00

<P>好的</P>
<P>&nbsp; 非常感谢！</P>
页: [1]
查看完整版本: 请问如何获得标注的起点和终点坐标，除了DimAligned那个。谢谢！