求方位角

VBALISPER

谢谢,的确可以,又向你学到一点了.
但你这句vla前少写了个括号,参数错误.用用NOTEPAD++检查出来的.不好意思哈.给你挑点问题.出来.

(if (<= (setq a (* (/ vla-get-angle (vlax-ename->vla-object (car (entsel)))) pi) 180.0)) 90.0)(- 90.0 a)(-450.0 a))

我试了一下,下面这句,加上那个括号就对了.

(if (<= (setq a (* (/ (vla-get-angle (vlax-ename->vla-object (car (entsel)))) pi) 180.0)) 90.0) (- 90.0 a)(- 450.0 a))