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

nyistjz

1.旋转后保持显示原有范围；
2.回车可直接返回原始平面；
3.在布局视口中有效；
4.视口锁定依然可以旋转，结束后保持锁定状态；
5.锁定视口中可自由绽放。

优化代码，修改后可输入角度！

ljfzx

旋转不能手动输入角度 希望可以增加

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 09:04
旋转不能手动输入角度 希望可以增加

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

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

lxl217114

支持楼主

感觉还是付费文件比较人性化一些

nyistjz

lxl217114 发表于 2022-9-27 21:31
支持楼主

感觉还是付费文件比较人性化一些

有道理，改了

lxl217114

nyistjz 发表于 2022-9-27 22:01
有道理，改了

感谢，下载支持。

伪书虫86

bug有点严重，CAD直接干崩溃了，还找到原因在哪儿

spp_wall

不是直接转屏幕就可以了么？哈哈

nyistjz

伪书虫86 发表于 2022-9-27 22:40
bug有点严重，CAD直接干崩溃了，还找到原因在哪儿

我这边测试过很多次，目前没有发现问题，可能是大家的电脑环境不同的原因吧

nyistjz

spp_wall 发表于 2022-9-28 08:25
不是直接转屏幕就可以了么？哈哈

简单、粗暴、有效！

nyistjz

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

多个角度，就需要多个回车，使用频率不高。
需要时，做个辅助线就行了