自己写的坐标变换函数！不需要设置坐标系就可以做变换！

蔡__洛

2. ;;;■=========点的坐标从世界坐标变换至对象坐标=========
   
3. ;;;参数（<表>点 <图元名>对象）=======
   
4. ;;;-----返回值：<表>新点坐标
   
5. (defun trans-ucs-w->obj (in_pt in_obj / pt m_ret xu yu zu angu xp yp zp x1 y1 z1 x y z ent_obj )  
   
6.   (if (and in_pt in_obj )
   
7.     (progn
   
8.       (setq ent_obj (entget in_obj))
   
9.       (setq pt (cdr(assoc '10 ent_obj)))
   
10.       (setq xu  (car pt))      
    
11.     (setq yu  (cadr pt))      
    
12.     (setq zu (caddr pt))
    
13.      (setq angu  (cdr(assoc '50 ent_obj)))
    
14.      (setq xp (car in_pt))      
    
15.     (setq yp (cadr in_pt))     
    
16.     (setq zp (caddr in_pt))      
    
17.     (setq x1 (- xp xu))     
    
18.     (setq y1 (- yp yu))      
    
19.     (setq z1 (- zp zu))      
    
20.     (setq x (+ (* x1 (cos angu)) (* y1 (sin angu))))      
    
21.     (setq y (- (* y1 (cos angu)) (* x1 (sin angu))))      
    
22.     (setq z z1)      
    
23.     (setq m_ret (list x y z))      
    
24.   ))  
    
25.   m_ret
    
26.   )
    
27. ;;;■=========点的坐标从对象坐标变换至世界坐标=========
    
28. ;;;参数（<表>点 <图元名>对象）=======
    
29. ;;;-----返回值：<表>新点坐标
    
30. (defun trans-ucs-obj->w (in_pt in_obj / pt m_ret xu yu zu angu xp yp zp x1 y1 z1 x y z )  
    
31.   (if (and in_pt in_obj )
    
32.     (progn
    
33.       (setq pt (trans-ucs-w->obj '(0.0 0.0 0.0) in_obj))
    
34.       (setq xu  (car pt))      
    
35.     (setq yu  (cadr pt))      
    
36.     (setq zu (caddr pt))
    
37.      (setq angu  (* -1.0 (cdr(assoc '50 (entget in_obj)))))
    
38.      (setq xp (car in_pt))      
    
39.     (setq yp (cadr in_pt))     
    
40.     (setq zp (caddr in_pt))      
    
41.     (setq x1 (- xp xu))     
    
42.     (setq y1 (- yp yu))      
    
43.     (setq z1 (- zp zu))      
    
44.     (setq x (+ (* x1 (cos angu)) (* y1 (sin angu))))      
    
45.     (setq y (- (* y1 (cos angu)) (* x1 (sin angu))))      
    
46.     (setq z z1)      
    
47.     (setq m_ret (list x y z))      
    
48.   ))  
    
49.   m_ret
    
50.   )

;;;■=========点的坐标从世界坐标变换至对象坐标=========<br /> ;;;参数（<表>点 <图元名>对象）=======<br /> ;;;-----返回值：<表>新点坐标<br /> (defun trans-ucs-w->obj (in_pt in_obj / pt m_ret xu yu zu angu xp yp zp x1 y1 z1 x y z ent_obj )  <br />   (if (and in_pt in_obj )<br />     (progn<br />       (setq ent_obj (entget in_obj))<br />       (setq pt (cdr(assoc '10 ent_obj)))<br />       (setq xu  (car pt))      <br />     (setq yu  (cadr pt))      <br />     (setq zu (caddr pt))<br />      (setq angu  (cdr(assoc '50 ent_obj)))<br />      (setq xp (car in_pt))      <br />     (setq yp (cadr in_pt))     <br />     (setq zp (caddr in_pt))      <br />     (setq x1 (- xp xu))     <br />     (setq y1 (- yp yu))      <br />     (setq z1 (- zp zu))      <br />     (setq x (+ (* x1 (cos angu)) (* y1 (sin angu))))      <br />     (setq y (- (* y1 (cos angu)) (* x1 (sin angu))))      <br />     (setq z z1)      <br />     (setq m_ret (list x y z))      <br />   ))  <br />   m_ret<br />   )<br /> ;;;■=========点的坐标从对象坐标变换至世界坐标=========<br /> ;;;参数（<表>点 <图元名>对象）=======<br /> ;;;-----返回值：<表>新点坐标<br /> (defun trans-ucs-obj->w (in_pt in_obj / pt m_ret xu yu zu angu xp yp zp x1 y1 z1 x y z )  <br />   (if (and in_pt in_obj )<br />     (progn<br />       (setq pt (trans-ucs-w->obj '(0.0 0.0 0.0) in_obj))<br />       (setq xu  (car pt))      <br />     (setq yu  (cadr pt))      <br />     (setq zu (caddr pt))<br />      (setq angu  (* -1.0 (cdr(assoc '50 (entget in_obj)))))<br />      (setq xp (car in_pt))      <br />     (setq yp (cadr in_pt))     <br />     (setq zp (caddr in_pt))      <br />     (setq x1 (- xp xu))     <br />     (setq y1 (- yp yu))      <br />     (setq z1 (- zp zu))      <br />     (setq x (+ (* x1 (cos angu)) (* y1 (sin angu))))      <br />     (setq y (- (* y1 (cos angu)) (* x1 (sin angu))))      <br />     (setq z z1)      <br />     (setq m_ret (list x y z))      <br />   ))  <br />   m_ret<br />   )

来明经混了两个月了，得到了很多帮助，自己也写了不少代码！今天发上来一个自己重写的坐标变换函数，欢迎大家使用，指正！ 个人感觉比较方便，不需要设置新坐标系就可以执行变换，只要传入对象名，既可以自动变换并输出对象坐标系下的新坐标，同时不影响当前ucs。trans-ucs-w->obj 与trans-ucs-obj->w 两个函数互为逆向操作，前者变换至对象坐标，后者由对象坐标变回到世界坐标。今后还会多多发源码的！



该贴已经同步到 蔡__洛的微博

树櫴希德

太强大了 顶顶  收藏

zhouren_cmi

谢谢高手分享源码。

USER2128

想给楼主封个赏，但找不到按钮，也许权限不够。在此只能精神上支持你了

chenlight

绝对要顶，正寻找这方面的代码，不期就到了！不懂的地方要向你请教了！

vlisp2012

向高手学习了！！！

夏雨雪

还是不太明白怎么用

kwok

源代码要支持

wuqiu1986

支持开源的

Q1241274614

首先感谢楼主的源码，楼主能不能看看这种坐标系怎么转换，谢谢！

已知：1.空间3点 A B C，D为平面ABC内点。
           2.A为UCS系原点，D为UCS系内坐标点（list AE  ED）
求：D点WCS坐标。

HGHG011

哥们怎么操作这个
我载入程序后 怎么搞？