注册 登录
明经CAD社区 返回首页

wowan1314的个人空间 http://www.mjtd.com/?282351 [收藏] [复制] [分享] [RSS]

日志

留个痕迹

热度 3已有 1071 次阅读2022-12-11 15:49 |系统分类:应用

读高飞鸟关于trans的帖子有感写两个函数,不知对否。
;;======== { NO 点到两点表示的线;三个返回值,垂线距离+线起点到垂足距离+垂足坐标 } =========;;
;;
(defun yy-pts-dispt2pt11 (pt pta ptb / ba)
;求点到线的垂线距离
;(car (trans (mapcar '- pt pta) 0 (mapcar '- ptb pta)))
(setq ba (mapcar '- ptb pta) pta (trans pta 0 ba) pt (trans pt 0 ba))
(list(-(car pt)(car pta))(-(caddr pt)(caddr pta))(trans(list(car pta)(cadr pta)(caddr pt))ba 0))
)

;;======== { NO 得到距离两点表示的线的起点一定距离的点坐标 } =========;;
;;dis可以是负数表示沿线正反角度下一定距离的点
(defun yy-pts-polar2ptdis (dis pta ptb / ba)
(setq ba (mapcar '- ptb pta) pta (trans pta 0 ba))
   (trans(list(car pta)(cadr pta)(+ dis(caddr pta))) ba 0)
)

路过

雷人

握手
3

鲜花

鸡蛋

刚表态过的朋友 (3 人)

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2023-3-25 21:24 , Processed in 0.105152 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部