"转移"绘图到 "俯视"

laihuarong · 发表于 2015-8-31 19:39

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

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

edata · 发表于 2015-9-1 00:56

_rotate3d 命令

lucas_3333 · 发表于 2015-9-1 01:07

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

E大，还没休息啊
平时也是复制粘贴，貌似用_rotate3d 一次转不到位吧，还不如复制粘贴来的快

要是能使坐标保持不变，这样或许会好一点，不早了，晚安！

laihuarong · 发表于 2015-9-1 08:30

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

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

laihuarong · 发表于 2015-9-1 08:31

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

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

edata · 发表于 2015-9-1 14:39

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

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

laihuarong · 发表于 2015-9-1 19:15

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

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

香田里浪人 · 发表于 2015-9-1 20:18

;;;*****切换视图程序开始*****
(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:25

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

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

账号		自动登录	找回密码
密码			注册

[已解答] "转移"绘图到 "俯视"

本帖子中包含更多资源