又有个问题，请大哥大姐们指教！！

郑志伟

如何获得一条直线的信息，例如直线与x轴或者与y轴的夹角。

easypower

vba我就不知道了，arx有函数的。

郑志伟

请高手们指教。

leeyeafu

VBA:
Dim Obj As AcadLine
与X轴夹角：
Obj.Angle As Double
与Y轴夹角：
90-Obj.Angle

easypower

vb就是简单方便！