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 12:10:18

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

你这个也好用！

hzyhzjjzh 发表于 2022-9-28 13:38:26

多谢分享!!{:1_1:}

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

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

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

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

ibobo 发表于 2022-9-29 14:18:26

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

879053410 发表于 2022-9-29 16:42:51

简单、粗暴、有效

技术工作室 发表于 2022-9-30 07:42:31

支持一下顶一个

lingduwx 发表于 2022-9-30 16:24:01

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

nyistjz 发表于 2022-9-30 20:18:14

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

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

xzd716 发表于 2022-9-30 20:44:57

感谢楼主分享，使用方便！
页: 1 [2] 3
查看完整版本: 最好用的图纸整体旋转命令