该博客介绍了如何使用LISP函数计算到指定点的指定距离的点位。函数接受一个点距离对的列表作为参数，并考虑了不同情况下的计算和过滤规则，如只有一个点、两个点或三个以上点的情况。提供了测试用例和交互式的实现。
;;;=================================================================
;;;计算到指定点指定距离的点的点位
;;;参数：lst --- 格式为 ((pt1 d1) (pt2 d2) ...)
;;; pt --- 参考值，若结果有多个，
;;; 则只返回距 pt 最近的那个点
;;;返回值：若成功则返回点位；若不成功则返回 nil
;|;;备忘：
1、若lst中只有一个，且有pt则返回：
(polar pt1 (angle pt1 pt) d1)
2、若有两个，则计算出两个结果点位后，
若有pt 则过滤；若无 pt 则返回两个点。
3、若有三个及以上，则先计算三个，找出一个点位，
进而复核后面的，当有任何一个不满足时，返回 nil
若全部满足，则返回 结果点位。
;;|;
(defun JS-PT-DIST (LST PT / PT1 PT2 D1 D2 D ANG A
最低0.47元/天 解锁文章
扫一扫
350
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
