继续厚着脸皮求助。空间曲线坐标转XY平面坐标

tender138

如图，请问把空间曲线坐标转换为XY平面坐标，在XY平面上画一个一模一样的曲线

夏生生

原理在里面了，根据自身需要去修改

1. (defun c:tt  (/ en i obj pt1 pt2 pt3 pts u v w x)
   
2. (princ"\n仅供娱乐")
   
3. (setq en  (car (entsel))
   
4.        pts nil
   
5.        i   (fix (vlax-curve-getendparam en)))
   
6. (while        (>= i 0)
   
7.   (setq        pts (cons (vla-get-coordinate (setq obj (vlax-ename->vla-object en))
   
8.                                       i)
   
9.                   pts)
   
10.         i   (1- i)))
    
11. (setq pts (mapcar
    
12.             '(lambda (x)
    
13.               (vlax-safearray->list (vlax-variant-value x)))
    
14.             pts)
    
15.        pt1 (cadr pts)
    
16.        pt2 (car pts)
    
17.        pt3 (caddr pts)
    
18.        u   (mapcar (function -) pt1 pt3)
    
19.        v   (mapcar (function -) pt1 pt2)
    
20.        w   (list
    
21.             (- (* (cadr u) (caddr v)) (* (cadr v) (caddr u)))
    
22.             (- (* (car v) (caddr u)) (* (car u) (caddr v)))
    
23.             (- (* (car u) (cadr v)) (* (car v) (cadr u))))
    
24.        pts (mapcar '(lambda (x) (trans x '(0 0 1) w)) pts))
    
25. (foreach n  pts
    
26.   (vla-put-coordinate obj (setq i (1+ i)) (vlax-3d-point n))))
    

(defun c:tt  (/ en i obj pt1 pt2 pt3 pts u v w x)<br /> (princ"\n仅供娱乐")<br /> (setq en  (car (entsel))<br />        pts nil<br />        i   (fix (vlax-curve-getendparam en)))<br /> (while        (>= i 0)<br />   (setq        pts (cons (vla-get-coordinate (setq obj (vlax-ename->vla-object en))<br />                                       i)<br />                   pts)<br />         i   (1- i)))<br /> (setq pts (mapcar<br />             '(lambda (x)<br />               (vlax-safearray->list (vlax-variant-value x)))<br />             pts)<br />        pt1 (cadr pts)<br />        pt2 (car pts)<br />        pt3 (caddr pts)<br />        u   (mapcar (function -) pt1 pt3)<br />        v   (mapcar (function -) pt1 pt2)<br />        w   (list<br />             (- (* (cadr u) (caddr v)) (* (cadr v) (caddr u)))<br />             (- (* (car v) (caddr u)) (* (car u) (caddr v)))<br />             (- (* (car u) (cadr v)) (* (car v) (cadr u))))<br />        pts (mapcar '(lambda (x) (trans x '(0 0 1) w)) pts))<br /> (foreach n  pts<br />   (vla-put-coordinate obj (setq i (1+ i)) (vlax-3d-point n))))<br />

你有种再说一遍

罗德里格公式
https://www.cnblogs.com/JJBox/p/14300098.html#_label3_3_3_2

1,图元从基点平移到原点,平移矩阵
2,短边重合到x轴,三维旋转矩阵
3,绕x轴旋转
4,图元原点平移回去基点

第二步导致原始图的长边投影XOY面之后的不一样了.
如果想沿着它还挺麻烦
需要长边向量投影到XOY面构造u轴
然后旋转一个90°构造v轴
再叉乘uv,得到w轴.
绕v轴旋转就好了.

guosheyang

tender138 发表于 2025-4-29 22:41
多谢指教！我想用几何方法学习矩阵

vla-Rotate3D  Rotate3D  都是封装好的函数   其源代码也是利用的旋转变换矩阵  矩阵变换可以去看高飞鸟大佬的帖子

mokson

用proj命令

guosheyang

转到xy面对齐的话可以用rotate3d   或者al命令

tender138

mokson 发表于 2025-4-29 21:40
用proj命令

多谢指教！我想用几何方法学习矩阵

tender138

guosheyang 发表于 2025-4-29 22:07
转到xy面对齐的话可以用rotate3d   或者al命令

多谢指教！我想用几何方法学习矩阵

tender138

你有种再说一遍 发表于 2025-4-29 21:07
罗德里格公式
https://www.cnblogs.com/JJBox/p/14300098.html#_label3_3_3_2

多谢指点！改天我学习一下
我太菜了，几何都忘光了，不容易理解

ynhh

这感觉可以用
Z值归零
坛中多的是吧