关于直线角度的获取

qianlinjun

请问在VBA中获取直线的角度应该是 E.angle 吧，假设 dim E as acadentity
7 D- L  J0 x% r: B1 e要对这个角度进行判断，比如等于180度，这个180度怎么表示呢？
& W2 _4 M. g& ?; t5 _% ?我在帮助里查到，angle属性为弧度，是吗？在VBA中pai怎么表示呢？谢谢！

woaishuijia

方法主要有两种:
一是我们知道π=3.1415926535897932384626433832795,我们可以通过计算把角度换算为弧度后在程序中使用;二是在程序中通过Document对象下面的子集Utility(实用工具集)中的AngleToReal方法把角度转换为弧度,或用AngleToString方法把弧度转换为角度.
6 k6 |! R) y+ t" f; f7 Y5 [2 pAngleToReal方法有两个参数,第一个是被转换的角度字符串(也可以是双精度数),第二个是被转换角度的单位,有下面几个命名参数可供选择:acDegrees=0(角度制),acDegreeMinuteSeconds=1(度分秒制),acGrads=2(百分度制),acRadians=3(弧度制);返回值是弧度制的双精度数.需要注意的是大于等于360度的角度转换后会小于2π,比如360度转换后结果是0,所以对大于或等于360度的角度转换时需要用小于360度的角度转换后乘以一个常数或几个小角度相加.比如对360度的转换就应该是

1. 
   8 ~' b8 M6 W8 Z1 X2 `! g
2. A = ThisDrawing.Utility.AngleToReal(180, acDegrees)*2
   

复制代码

AngleToString方法有三个参数,第一个是被转换的角度(弧度制双精度数),第二个是角度单位,和上面一样,第三个是精度,0到8的整数,表示返回的字符串的小数点后位数,比如2就是精确到小数点后两位,8就是小数点后8位.

qianlinjun

谢谢版主，讲解非常详细，谢谢！