用法
评论
建议
取 消
确 定
(defun vectra:get-bulge (v1 v2 / a1 a2 bulge dot) (setq dot (sp-dotproduct v1 v2) a1 (sp-angle v1) a2 (sp-angle v2)) (if (< dot 0) (setq bulge (tan (/ (acos (abs dot)) 4.0))) (setq bulge (tan (/ (- pi (acos (abs dot))) 4.0)))) (setq a2 (- a2 a1)) (if (or (and (>= a2 0) (< a2 pi)) (and (< a2 0) (< a2 (- pi)))) (setq bulge (- bulge))) bulge)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新