用法
评论
建议
取 消
确 定
(defun geometry:ucs-angle nil (if (equal 0 (car (getvar "ucsxdir")) 1.0e-08) (if (equal 1 (cadr (getvar "ucsxdir")) 1.0e-08) (* 0.5 pi) (* 1.5 pi)) (if (>= (cadr (getvar "ucsxdir")) 0) (atan (/ (cadr (getvar "ucsxdir")) (car (getvar "ucsxdir")))) (+ pi (atan (/ (cadr (getvar "ucsxdir")) (car (getvar "ucsxdir"))))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新