任一点ucs

hongliang224

在晓东工具箱看到原点ucs,麻烦大神能不能编个任一点ucs呢，就是在屏幕上指定任意一点，然后在命令栏录入坐标如（3,4,5），该坐标为新坐标系中的对应坐标！

newer

什么叫 对应的坐标？ 哪个是原点？ 哪个是X轴过的点？

Lisphk

晓东工具箱 里面 有个  三点UCS，是不是做你说的？

hongliang224

newer 发表于 2017-12-7 15:13

原坐标系为xy坐标系，新坐标系为AB坐标系，圆圈处点坐标相对于AB坐标系为（3，4，-5），用什么途径能实现在xy坐标系下只通过一个点（该点为AB坐标系下的点（3，4，-5），非AB坐标系的原点）转换到AB坐标系！

hongliang224

newer 发表于 2017-12-7 15:13

不知道说清楚没有，原坐标系XY，转换到新坐标系AB，坐标轴只存在平移不存在旋转！

hongliang224

newer 发表于 2017-12-7 15:13

简单点来说就是我在xy坐标系屏幕上点击一下圆圈处圆心，然后在命令栏输入（3，4，-5），然后自动给我构建成了AB坐标系，大神有办法实现没！

Lisphk

hongliang224 发表于 2017-12-7 17:25

从你上面的图来说，圆圈的坐标（AB下）， 都应该是正值啊，你怎么都是负值了？

hongliang224

Lisphk 发表于 2017-12-7 15:31

三点ucs要指定原点，我想通过指点任一点坐标（非原点），来实现坐标系转换！

hongliang224

Lisphk 发表于 2017-12-7 17:34

不好意思，录入时错误,应该是AB坐标系下应该是（3 , 4，-5）

newer

hongliang224 发表于 2017-12-7 17:42

试试

1. (defun c:tt ( / coord pt pt1 pt2 x)
   
2.   (if (and
   
3.         (setq pt (getpoint "\n拾取目标坐标系内的一点<退出>:"))
   
4.         (/= "" (setq pt2 (getstring "\n输入该点在目标坐标系的坐标(x,y,z)<退出>:")))
   
5.         (setq pt2 (xdrx_string_regexps "^(-?[0-9.]+),(-?[0-9.]+),(-?[0-9.]+)$"
   
6.                                        pt2
   
7.                   )
   
8.         )
   
9.       )
   
10.     (progn
    
11.       (setq coord (mapcar
    
12.                     '(lambda (x)
    
13.                        (- (atof x))
    
14.                      )
    
15.                     (xdrx_string_split (car pt2) ",")
    
16.                   )
    
17.       )
    
18.       (setq pt (trans pt 1 0))
    
19.       (setq pt1 (mapcar
    
20.                   '+
    
21.                   pt
    
22.                   coord
    
23.                 )
    
24.       )
    
25.       (xdrx_ucs_set pt1 (getvar "viewdir"))
    
26.       (xdrx_prompt "\n已经设置当前坐标系.")
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    

(defun c:tt ( / coord pt pt1 pt2 x)<br />   (if (and<br />         (setq pt (getpoint "\n拾取目标坐标系内的一点<退出>:"))<br />         (/= "" (setq pt2 (getstring "\n输入该点在目标坐标系的坐标(x,y,z)<退出>:")))<br />         (setq pt2 (xdrx_string_regexps "^(-?[0-9.]+),(-?[0-9.]+),(-?[0-9.]+)$"<br />                                        pt2<br />                   )<br />         )<br />       )<br />     (progn<br />       (setq coord (mapcar<br />                     '(lambda (x)<br />                        (- (atof x))<br />                      )<br />                     (xdrx_string_split (car pt2) ",")<br />                   )<br />       )<br />       (setq pt (trans pt 1 0))<br />       (setq pt1 (mapcar<br />                   '+<br />                   pt<br />                   coord<br />                 )<br />       )<br />       (xdrx_ucs_set pt1 (getvar "viewdir"))<br />       (xdrx_prompt "\n已经设置当前坐标系.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

hongliang224

newer 发表于 2017-12-7 17:59

谢谢版主，效果基本达到了！
要是稍微改进一下就更完美了，因为我一张cad图要多次变换ucs坐标系（上百次），而且每次点击屏幕都要输入相同的坐标，比如（3，4，-5）能不能把输入坐标这个过程给省了，坐标有变化就输入坐标，没有变化就默认上次ucs输入的坐标。

newer

hongliang224 发表于 2017-12-8 22:40

去下载 试试

http://bbs.xdcad.net/thread-713736-1-1.html

hongliang224

newer 发表于 2017-12-9 00:25

谢谢版主，效果很好！