最好用的图纸整体旋转命令

ljfzx

nyistjz 发表于 2022-9-28 09:26
多个角度，就需要多个回车，使用频率不高。
需要时，做个辅助线就行了

这是我用的，不过不支持布局空间

2. ;;变换(UCS)用户坐标系
   
3. (defun C:xz (/ ro_ang)
   
4.         (princ (strcat "\n输入角度或指定视口绕 Z 轴的旋转角度(默认为恢复视图): "))
   
5.         (setq ang (getangle))
   
6.   (defun xzst (ro_ang / )
   
7.                 (setvar "cmdecho" 0)
   
8.                 (if (equal (getvar "TILEMODE") 1)
   
9.                         (progn
   
10.                                 (command "_.undo" "_group")
    
11.                                 (setq viewcenter (getvar "VIEWCTR")
    
12.                                         viewsize (getvar "VIEWSIZE")
    
13.                                         zoom1 (polar viewcenter (* pi 0.5) viewsize)
    
14.                                         zoom2 (polar viewcenter (* pi 3.5) viewsize)
    
15.                                         zoom1 (trans zoom1 1 0)
    
16.                                         zoom2 (trans zoom2 1 0)
    
17.                                 )
    
18.                                 (command "_.ucs" "_Z" (angtos ro_ang 0 8))
    
19.                                 (command "_.Plan" "")
    
20.                                 (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))
    
21.                                 (command "_.undo" "_end")
    
22.       )
    
23.                         (princ "\n*请切换到模型空间*")
    
24.     )
    
25.                 (princ)
    
26.   )
    
27.   (if ang
    
28.     (xzst ang)
    
29.     (progn
    
30.                         (setvar "cmdecho" 0)
    
31.                         (if (equal (getvar "TILEMODE") 1)
    
32.                                 (progn
    
33.                                         (command "_.undo" "_group")
    
34.                                         (setq viewcenter (getvar "VIEWCTR")
    
35.                                                 viewsize (getvar "VIEWSIZE")
    
36.                                                 zoom1 (polar viewcenter (* pi 0.5) viewsize)
    
37.                                                 zoom2 (polar viewcenter (* pi 3.5) viewsize)
    
38.                                                 zoom1 (trans zoom1 1 0)
    
39.                                                 zoom2 (trans zoom2 1 0)
    
40.                                         )
    
41.                                         (command "_.Plan" "w" "_.ucs" "w")
    
42.                                         (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))
    
43.                                         (command "_.undo" "_end")
    
44.                                 )
    
45.                                 (princ "\n*请切换到模型空间*"))
    
46.                         (princ))))

;;变换(UCS)用户坐标系<br /> (defun C:xz (/ ro_ang)<br />         (princ (strcat "\n输入角度或指定视口绕 Z 轴的旋转角度(默认为恢复视图): "))<br />         (setq ang (getangle))<br />   (defun xzst (ro_ang / )<br />                 (setvar "cmdecho" 0)<br />                 (if (equal (getvar "TILEMODE") 1)<br />                         (progn<br />                                 (command "_.undo" "_group")<br />                                 (setq viewcenter (getvar "VIEWCTR")<br />                                         viewsize (getvar "VIEWSIZE")<br />                                         zoom1 (polar viewcenter (* pi 0.5) viewsize)<br />                                         zoom2 (polar viewcenter (* pi 3.5) viewsize)<br />                                         zoom1 (trans zoom1 1 0)<br />                                         zoom2 (trans zoom2 1 0)<br />                                 )<br />                                 (command "_.ucs" "_Z" (angtos ro_ang 0 8))<br />                                 (command "_.Plan" "")<br />                                 (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))<br />                                 (command "_.undo" "_end")<br />       )<br />                         (princ "\n*请切换到模型空间*")<br />     )<br />                 (princ)<br />   )<br />   (if ang<br />     (xzst ang)<br />     (progn<br />                         (setvar "cmdecho" 0)<br />                         (if (equal (getvar "TILEMODE") 1)<br />                                 (progn<br />                                         (command "_.undo" "_group")<br />                                         (setq viewcenter (getvar "VIEWCTR")<br />                                                 viewsize (getvar "VIEWSIZE")<br />                                                 zoom1 (polar viewcenter (* pi 0.5) viewsize)<br />                                                 zoom2 (polar viewcenter (* pi 3.5) viewsize)<br />                                                 zoom1 (trans zoom1 1 0)<br />                                                 zoom2 (trans zoom2 1 0)<br />                                         )<br />                                         (command "_.Plan" "w" "_.ucs" "w")<br />                                         (command "zoom" "w" (trans zoom1 0 1) (trans zoom2 0 1))<br />                                         (command "_.undo" "_end")<br />                                 )<br />                                 (princ "\n*请切换到模型空间*"))<br />                         (princ))))

nyistjz

ljfzx 发表于 2022-9-28 11:00
这是我用的，不过不支持布局空间

你这个也好用！

hzyhzjjzh

多谢分享!!

nyistjz

ljfzx 发表于 2022-9-28 09:04
旋转不能手动输入角度 希望可以增加

谢谢你提出的建议，参考你用的程序，修改了一下，现在可以输入角度了，且还没有多余回车，感觉不谢谢！

送你几个币，你再下载试试

ibobo

能加入上下左右等镜像么?

879053410

简单、粗暴、有效

技术工作室

支持一下顶一个

lingduwx

支持楼主，这个非常好，操作也简单，可否再增加一个命令恢复旋转呢

nyistjz

lingduwx 发表于 2022-9-30 16:24
支持楼主，这个非常好，操作也简单，可否再增加一个命令恢复旋转呢

注意看提示，直接回车就是恢复

xzd716

感谢楼主分享，使用方便！