[讨论]半径标注涉及到的方向问题

ningyong58

VBA标注半径程序如下

            For jj = 0 To 2
              p1(jj) = Rst(jj + 1 + 3) + basePoint(jj)
              p2(jj) = Rst(jj + 1 + 6) + basePoint(jj)
            Next jj
              Set objDimRadial = .AddDimRadial(p2, p1, 0.5)
              With objDimRadial
                .Layer = "尺寸线"
                .LinearScaleFactor = tempDimensionScale
                .TextHeight = 3.5
              End With

结果

在VBA中实现下图效果,几次没有调试成功.

问会LISP的高手,用LISP如何实现下图效果.