用法
评论
建议
取 消
确 定
(defun geometry:dist-pt-line (pt segment / an) "求点到线段的距离" "number" "(geometry:dist-pt-line '(0 0 0) '((1 0 0)(0 1 0)))" (setq an (angle (car segment) (cadr segment))) (if (setq inter1 (inters (car segment) (cadr segment) pt (polar pt (+ an (* 0.5 pi)) 1000) nil)) (if (geometry:on-segment inter1 segment) (distance pt inter1) (min (distance pt (car segment)) (distance pt (cadr segment))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新
冀公网安备 13050302000400号