nijiea123 发表于 2023-9-1 10:40:06

通俗易懂，不错不错呀，看来数学肯定学的不错:D-

hubeiwdlue 发表于 2023-9-1 10:48:07

nijiea123 发表于 2023-9-1 10:40
通俗易懂，不错不错呀，看来数学肯定学的不错

准确讲，是线性代数。我高数还能记得一点点，线代是都已经还给老师了。

20060510412 发表于 2023-9-14 08:59:42

好像终于对trans函数看懂一点了，之前高飞鸟分享的帖子，始终还是没看懂。
多谢大神。

magicheno 发表于 2023-12-8 23:57:27

感谢大佬分享

wide 发表于 2024-5-3 06:26:08

解释的非常棒。

wide 发表于 2024-5-3 15:00:53

本帖最后由 wide 于 2024-5-3 15:05 编辑

vormittag 发表于 2023-8-30 14:10
很简单：
1、(mapcar '- p2 p1) 是 p1 指向 p2 的向量，作为平面法向量 norm
2、(trans p1 0 norm) 是将...
http://bbs.mjtd.com/forum.php?mo ... %B1%EA%D7%A2&page=2，17楼代码中求中点部分能解释习吗？

[*](defun c:test1 (/ get_dim_mid ss n)
[*](defun get_dim_mid (en / ent pt10 pt13 pt14 v pt13t)
[*]    (setq ent(entget en)
[*]      pt10(cdr (assoc 10 ent))
[*]      pt13(cdr (assoc 13 ent))
[*]      pt14(cdr (assoc 14 ent))
[*]      v(mapcar '- pt10 pt14)
[*]      pt14(trans pt14 0 v)
[*]      pt13t(trans pt13 0 v)
[*]    )
[*]    (mapcar
[*]      '+
[*]      pt10
[*]      (mapcar '(lambda (x y) (* 0.5 (- x y)))
[*]      pt13
[*]      (trans (list (car pt14) (cadr pt14) (caddr pt13t)) v 0)
[*]      )
[*]    )
[*])
[*](setq ss (ssget))
[*](repeat (setq n (sslength ss))
[*]    (entmake
[*]      (list (cons 0 "circle")
[*]      (cons 10 (get_dim_mid (ssname ss (setq n (1- n)))))
[*]      (cons 40 100)
[*]      )
[*]    )
[*])
[*])

czb203 发表于 2024-6-22 19:41:18

vormittag 发表于 2023-8-30 14:10
很简单：
1、(mapcar '- p2 p1) 是 p1 指向 p2 的向量，作为平面法向量 norm
2、(trans p1 0 norm) 是将...

大佬讲解精辟
页: 1 [2]
查看完整版本: trans函数的疑惑