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

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

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

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

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 发表于 2006-2-24 11:37:00

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

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

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