nyistjz 发表于 2022-9-27 21:11:40

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

本帖最后由 nyistjz 于 2022-9-29 12:53 编辑


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

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




ljfzx 发表于 2022-9-28 09:04:55

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

ljfzx 发表于 2022-9-28 11:00:50

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

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

nyistjz 发表于 2022-9-28 20:37:15

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

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

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

lxl217114 发表于 2022-9-27 21:31:21

支持楼主

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

nyistjz 发表于 2022-9-27 22:01:51

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

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

有道理，改了

lxl217114 发表于 2022-9-27 22:25:28

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

感谢，下载支持。:lol

伪书虫86 发表于 2022-9-27 22:40:56

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

spp_wall 发表于 2022-9-28 08:25:32

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

nyistjz 发表于 2022-9-28 08:31:20

本帖最后由 nyistjz 于 2022-9-28 08:47 编辑

伪书虫86 发表于 2022-9-27 22:40
bug有点严重，CAD直接干崩溃了，还找到原因在哪儿
我这边测试过很多次，目前没有发现问题，可能是大家的电脑环境不同的原因吧

nyistjz 发表于 2022-9-28 08:32:54

本帖最后由 nyistjz 于 2022-9-28 08:47 编辑

spp_wall 发表于 2022-9-28 08:25
不是直接转屏幕就可以了么？哈哈
简单、粗暴、有效！

nyistjz 发表于 2022-9-28 09:26:16

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

多个角度，就需要多个回车，使用频率不高。
需要时，做个辅助线就行了
页: [1] 2 3
查看完整版本: 最好用的图纸整体旋转命令