trans函数的疑惑

nijiea123

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

hubeiwdlue

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

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

20060510412

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

magicheno

感谢大佬分享

wide

解释的非常棒。

wide

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)
•       )
•     )
•   )
• )