社区 › AutoLISP/Visual LISP 编程技术 › 【越飞越高讲堂16】CAD 的坐标系统和trans函数的工作原理

852456 发表于 2018-8-10 23:16:50

好多大大啊

monkey_w 发表于 2018-10-11 22:46:36

感谢大神分享，学习中

langke52 发表于 2019-5-19 14:33:13

感谢大神分享，学习中

zhenz02 发表于 2019-7-27 11:26:21

感谢楼主分享，干货满满

有区别吗 发表于 2020-2-10 12:56:46

讲得真明白!!!!

fangmin723 发表于 2020-3-19 15:29:02

本帖最后由 fangmin723 于 2020-3-19 15:31 编辑


你好，版主，帖子看到最后，还不是很理解，所以我有在网上找了一些资料，当我看到《妙用Trans函数 - 百度文库https://wenku.baidu.com/view/f9195127192e45361066f541.html》文章时略有所悟，不知道理解的对不对。

就是当trans的to参数为list表时，就是定义了一个类似下图终红色的ucs坐标系。AB在Z轴上，然后X垂直于Z轴的，图元在Z-X的平面里！

不知道这样理解对不对，还请版主解惑！！！感谢！！！

hi-kit 发表于 2020-3-23 11:35:14

挺不错的，知识！收下了！

Zrrrrr 发表于 2020-6-13 20:18:09

本帖最后由 Zrrrrr 于 2020-6-13 20:19 编辑

看了半天还是没看懂。我是从Lee-Mac的求垂足的程序过来的，和高飞兄最后一个妙用的例子应该类似的。但研究了半天能力有限，只能拿来主义了。。此处附上Lee-Mac的源代码，供大家参考：
;; Project Point onto Line-Lee Mac
;; Projects pt onto the line defined by p1,p2

(defun LM: ProjectPointToLine ( pt p1 p2 / nm )
    (setq nm (mapcar '- p2 p1)
          p1 (trans p1 0 nm)
          pt (trans pt 0 nm)
    )
    (trans (list (car p1) (cadr p1) (caddr pt)) nm 0)
)

LIULISHENG 发表于 2020-11-15 10:28:14

膜拜    学习

yjtdkj 发表于 2021-7-20 15:54:02

Zrrrrr 发表于 2020-6-13 20:18
看了半天还是没看懂。我是从Lee-Mac的求垂足的程序过来的，和高飞兄最后一个妙用的例子应该类似的。但研究 ...

这个好~，应该比VLAX函数的运行速度快很多吧

查看完整版本: 【越飞越高讲堂16】CAD 的坐标系统和trans函数的工作原理