support.esri.com/en/knowledgebase/techarticles/detail/11909
со скриптиком
Код: Выделить всё
'--- Script: "DoubleClickDistance.ave"
'
'--- Place this script as the "Apply" property of the same new tool.
theView = av.GetActiveDoc
theDisplay = theView.Getdisplay
if (_firstPoint.IsNull)
then
_firstPoint = theDisplay.ReturnUserPoint
return nil
else
_secondPoint = theDisplay.ReturnUserPoint
dist = _firstPoint.Distance(_secondPoint)
distString = dist.SetFormat("d.dddd").AsString
MsgBox.Info(distString,"")
_firstPoint = Point.MakeNull
_secondPoint = Point.MakeNull
end
'
'--- End of script: "DoubleClickDistance