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

hzx2000_0

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

ybhfau

Dim PtPick As Variant

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

gzmkshjsh

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

hzx2000_0

好的

  非常感谢！