CAD2007怎么把3D状态切换成2D状态?

CAD的立体,3D转2D，2种方法：
一种输出SAT格式，然后到PRO/E里面或者UG里面转；
第二种，在CAD里面直接转，下面3个是我编的LISP程序，创建个LISP程序，把下面3个程序放到里面去；在CAD里面加载，然后进入布局，把布局里面的原始框格删除；
下面就是把立体转2D的部分：
　　1，命令输入D3；在屏幕上选择一点，鼠标中键上下缩放到一定的大小，回车，
　　在立体的左上角和右下角各点一下，命名视图1；回车
　　2，命令输入O（字母）；选择第一个视图的左边中点；在左边选择一个中心（左视图中心）；回车
　　在立体的左上角和右下角各点一下，命名视图2；回车
　　3，命令输入O（字母）；选择第一个视图的下边中点；在下边选择一个中心（俯视图中心）；回车
　　在立体的左上角和右下角各点一下，命名视图3；回车
　　4，命令输入O（字母）；选择第一个视图的左边中点；在左视图的左边再选择一个中心（轴测视图中心）；回车
　　在立体的左上角和右下角各点一下，命名视图4；回车；回车；
　　5，命令输入d2；选择第1个视图，左视图，俯视图，回车（完成立体转平面），
　　6，双击轴测视图，然后命令输入D4，选择立体，（完成轴测视图的建立）;
（1）创建三视图
　　(defun
　　c:d3()
　　(setvar"cmdecho"0)
　　(command "solview" "ucs" ""
　　"")
　　(setvar"cmdecho"1)
　　(princ)
　　)
　 （2）将三视图从立体转成平面
　　(defun
　　c:d2()
　　(setvar"cmdecho"0)
　　(command
　　"soldraw")
　　(setvar"cmdecho"1)
　　(princ)
　　)
　　（3）将立体转成轴测图,平面的立体图
　　(defun
　　c:d4()
　　(setvar"cmdecho"0)
　　(setq a (ssget))
　　(command "solprof" a "" "y"
　　"y" "n")
　　(setvar"cmdecho"1)
　　(princ)
　　)

命令行输入：SHADEMODE----------------------2
即可

工作空间 工具条打开，可以自由选择 SHA ,

工作空间 工具条打开，可以自由选择