"转移"绘图到 "俯视"

laihuarong

有时候打开同事画的图, 不是在"俯视",而是在"左视", 或其它视图 这样很不方便,
因为有一些二次开发的工具,比如统计类的生成的表格在"俯视"下才能看得见, 而在"左视"下看不到, 或只能看到一条线
有没有可能用一段代码将绘图中的所有东东"转移"到 俯视 中 ?

不想手动复制,粘贴, 这样可能丢东西 , 请各位高手支招!

edata

_rotate3d 命令

lucas_3333

edata 发表于 2015-9-1 00:56
_rotate3d 命令

E大，还没休息啊
平时也是复制粘贴，貌似用_rotate3d 一次转不到位吧， 还不如复制粘贴来的快
要是能使坐标保持不变，这样或许会好一点 ， 不早了，晚安！

laihuarong

edata 发表于 2015-9-1 00:56
_rotate3d 命令

麻烦请告知详细步骤,谢谢

laihuarong

lucas_3333 发表于 2015-9-1 01:07
E大，还没休息啊
平时也是复制粘贴，貌似用_rotate3d 一次转不到位吧， 还不如复制粘贴来的快
要 ...

我就想一键或一个命令搞定, 最好能转移后坐标不变,谢谢!

edata

贴个左视图3D旋转到顶视图，默认角度逆时针方向。
其他的你自己摸索。和玩魔方一样，左视图那么先绕Z轴逆时针转90度，再绕x轴转270°或-90度即可转到顶面来。
其他类推。

1. ;;左视图转顶视图
   
2. (defun c:tt(/ ss)
   
3.   (if(setq ss(ssget))
   
4.     (progn
   
5.       (setvar 'cmdecho 0)
   
6.       (command "_.rotate3d" ss "" "z" "non" "0,0,0" "90")
   
7.       (command "_.rotate3d" ss "" "x" "non" "0,0,0" "-90")
   
8.       (sssetfirst nil ss)
   
9.       (setvar 'cmdecho 1)
   
10.       )
    
11.     )
    
12.   )

;;左视图转顶视图<br /> (defun c:tt(/ ss)<br />   (if(setq ss(ssget))<br />     (progn<br />       (setvar 'cmdecho 0)<br />       (command "_.rotate3d" ss "" "z" "non" "0,0,0" "90")<br />       (command "_.rotate3d" ss "" "x" "non" "0,0,0" "-90")<br />       (sssetfirst nil ss)<br />       (setvar 'cmdecho 1)<br />       )<br />     )<br />   )

laihuarong

edata 发表于 2015-9-1 14:39
贴个左视图3D旋转到顶视图，默认角度逆时针方向。
其他的你自己摸索。和玩魔方一样，左视图那么先绕Z轴逆时 ...

朋友, 谢谢你的帮助, 回去摸索研究下

香田里浪人

;;;*****切换视图 程序开始*****
(defun c:qhst ()
  (setvar "cmdecho" 0)
  (setvar "expert" 2)
  (initget "A S D F G H 1 2 3 4 5 6 7 O")
  (if (not (setq kw
                  (getkword
                    "\n请选择视图方向：[俯视图(A)/仰视图(S)/左视图(D)/
右视图(F)/前视图(G)/后视图(H)/东南等轴测(1)/西南等轴测(2)/东北等轴测
(3)/西北等轴测(4)/绕X轴旋转(5)/绕Y轴旋转(6)/绕Z轴旋转(7)/初始视图(O)]
<A>"                  )
           )
      )
    (setq kw "A")
  )
  (cond
    ((= kw "A")
     (command "_view" "top")
     (princ "\n当前视图为：俯视")
    )                                        ;俯视
    ((= kw "S")
     (command "_view" "bottom")
     (princ "\n当前视图为：仰视")
    )                                        ;仰视
    ((= kw "D")
     (command "_view" "left")
     (princ "\n当前视图为：左视")
    )                                        ;左视
    ((= kw "F")
     (command "_view" "right")
     (princ "\n当前视图为：右视")
    )                                        ;右视
    ((= kw "G")
     (command "_view" "front")
     (princ "\n当前视图为：前视")
    )                                        ;前视
    ((= kw "H")
     (command "_view" "back")
     (princ "\n当前视图为：后视")
    )                                        ;后视
    ((= kw "1")
     (command "_view" "seiso")
     (princ "\n当前视图为：东南等轴测")
    )                                        ;东南等轴测
    ((= kw "2")
     (command "_view" "swiso")
     (princ "\n当前视图为：西南等轴测")
    )                                        ;西南等轴测
    ((= kw "3")
     (command "_view" "neiso")
     (princ "\n当前视图为：东北等轴测")
    )                                        ;东北等轴测
    ((= kw "4")
     (command "_view" "nwiso")
     (princ "\n当前视图为：西北等轴测")
    )                                        ;西北等轴测
    ((= kw "5")
     (if (not (setq ang (getreal "请输入要绕X轴旋转的角度：<90.0>")))
       (setq ang 90.0)
     )
     (command "_UCS" "_X" ang)
    )                                        ;绕X轴旋转
    ((= kw "6")
     (if (not (setq ang (getreal "请输入要绕Y轴旋转的角度：<90.0>")))
       (setq ang 90.0)
     )
     (command "_UCS" "_Y" ang)
    )                                        ;绕Y轴旋转
    ((= kw "7")
     (if (not (setq ang (getreal "请输入要绕Z轴旋转的角度：<90.0>")))
       (setq ang 90.0)
     )
     (command "_UCS" "_Z" ang)
    )                                        ;绕Z轴旋转
    ((= kw "O")
     (command "_view" "top")
     (command "_UCS" "_W")
     (princ "\n★提示：设置后的视图为：俯视、坐标系为：世界坐标系！\n")))(princ))
;;;想继续看吗？

lucas_3333

香田里浪人 发表于 2015-9-1 20:18
;;;*****切换视图 程序开始*****
(defun c:qhst ()
  (setvar "cmdecho" 0)

我晕 ,感觉这个代码一点实用价值都没有,
再说, 也达不到楼主的要求!