【求助】点关于点旋转后的坐标

kucha007

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=186343&page=1&extra=#pid927321

大家好，疑问见标题。
我之前写了一个旋转视口内视图的程序，想用到模型空间中，旋转UCS然后Plan。
但不知道怎么记录和恢复视口。目前想到的是记录视图中心点和视图高度，之后再还原。
但旋转ucs的时候中心点也在改变，就不知道怎么操作了。

论坛上搜到的资料尝试了一下都不太对
麻烦各位大佬赐教，如果有新思路就更好了。

1. (setq p1 (getpoint "\n→请选择旋转中心: "))
   
2. (setq p2 (getpoint p1 "\n→请选择X轴正方向: "))
   
3. (setq Ang (Angtos (Angle P1 p2) 0 15))
   
4. (setq vc (getvar "VIEWCTR");视图中心UCS
   
5.       vs (getvar "VIEWSIZE");当前视图高度
   
6. )
   

(setq p1 (getpoint "\n→请选择旋转中心: "))<br /> (setq p2 (getpoint p1 "\n→请选择X轴正方向: "))<br /> (setq Ang (Angtos (Angle P1 p2) 0 15))<br /> (setq vc (getvar "VIEWCTR");视图中心UCS<br />       vs (getvar "VIEWSIZE");当前视图高度<br /> )<br />

;恢复视图

1. (command "_.ZOOM" "_C" vc vs)
   

(command "_.ZOOM" "_C" vc vs)<br />

kucha007

;自己解决了√

1. (Defun C:TT nil
   
2.     (defun K:ROTATEPT (PT Center Ang)
   
3.       (polar Center (+ (angle Center PT) Ang) (distance Center PT))
   
4.     )
   
5.     (setq p1 (getpoint "\n→请选择旋转中心: "))
   
6.     (setq p2 (getpoint p1 "\n→请选择X轴正方向: "))
   
7.     (setq Ang (Angle P1 p2))
   
8.     (setq vc (getvar "VIEWCTR");视图中心UCS
   
9.           vs (getvar "VIEWSIZE");当前视图高度
   
10.     )
    
11.     (command "point" vc )
    
12.     (setq CS (trans (K:ROTATEPT vc p1 Ang) 1 0));WCS
    
13.     (command "_.UCS" "_Z" (Angtos Ang 0 15))
    
14.     (command "_.PLAN" "_C")
    
15.     (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前面的命令完成
    
16.     (command "_.ZOOM" "_C" (trans CS 0 1) vs)
    
17.     (command "point" (trans CS 0 1))
    
18. )
    

(Defun C:TT nil<br />     (defun K:ROTATEPT (PT Center Ang) <br />       (polar Center (+ (angle Center PT) Ang) (distance Center PT))<br />     )<br />     (setq p1 (getpoint "\n→请选择旋转中心: "))<br />     (setq p2 (getpoint p1 "\n→请选择X轴正方向: "))<br />     (setq Ang (Angle P1 p2))<br />     (setq vc (getvar "VIEWCTR");视图中心UCS<br />           vs (getvar "VIEWSIZE");当前视图高度<br />     )<br />     (command "point" vc )<br />     (setq CS (trans (K:ROTATEPT vc p1 Ang) 1 0));WCS<br />     (command "_.UCS" "_Z" (Angtos Ang 0 15))<br />     (command "_.PLAN" "_C")<br />     (while (> (getvar "CMDACTIVE") 0) (command PAUSE));等待前面的命令完成<br />     (command "_.ZOOM" "_C" (trans CS 0 1) vs)<br />     (command "point" (trans CS 0 1))<br /> )<br />

yefei812678

太高深了 看不懂