cad三维立体图自动生成二维三视图插件

cad三维立体图自动生成二维三视图插件(DEFUNc:sa()(setqdcl_id(load_dialog"sanshi"))(new_dialog"sanshi"dcl_id)(action_tile"sansh_cf1""(done_dialog1)")(action_tile"sansh_cf2"(done_dialog2)")(action_tile"sansh_cf3""(done_dialog3)")(action_tile"sansh_cf4""(done_dialog4)”)(action_tile"sansh_zds""(done_dialog5)")(setqsansh_done_id(start_dialog))(if(>sansh_done_id0)(progn(cond((=1sansh_done_id)(sanshm_cf1))((=2sansh_done_id)(sanshm_cf2))((=3sansh_done_id)(sanshm_cf3))((=4sansh_done_id)(sanshm_cf4))((=5sansh_done_id)(sanshm_zds)))))(princ))函数：CF1;;;编制日期：2009.03.27;;;修改日期：2011.07.28;;;编制者：曾敏辉;;;说明：本函数将复制并旋转对象为右视复制并旋转对象为右;;;(DEFUN复制并旋转对象为右sanshm_CF1(/enentgrpoldortpt1pt2ss)(PRINC"\n视”)(setvar"cmdecho"0)(setqoldort(getvar"orthomode"))(princ"\n请选择主视图对象:")(SETQENTGRP(SSGET))(princ"\n请选择主视图的基准点:")(setvar"orthomode"1)(SETQpt1(GETPOINT))(princ"\n请选择右视图的基准点(按左键接受并绘制右视图):")(SETQpt2(GETPOINT))(setqen(entlast))(COMMAND"copy"ENTGRP""pt1pause)(setqss(lt:ss-entnexten))(princ"\n正在绘制右视图")(command"rotate3d"ss"""Y"pt2"-90");;;绘制右视图(princ"\n绘制右视图完毕!")(princ))CF2;;;函数：;;;;;;编制日期:2009.03.27;;;修改日期：2011.07.28;;;编制者：曾敏辉;;;说明：本函数将复制并旋转对象为仰视;;;(DEFUNsanshm_CF2(/enentgrpoldortpt1pt2ss)(setvar"cmdecho"0)(PRINC"\n复制并旋转对象为仰视")(setqoldort(getvar"orthomode"))（princ"\n请选择主视图对象:"）(SETQENTGRP(SSGET))(princ"\n请选择主视图的基准点:")(setvar"orthomode"1)(SETQpt1(GETPOINT))(princ"\n请选择仰视图的基准点(按左键接受并绘制仰视图):")(SETQpt2(GETPOINT))(setqen(entlast))(COMMAND"copy"ENTGRP""pt1pause)(setqss(lt:ss-entnexten))(princ"\n正在绘制仰视图")(command"rotate3d"ss"""X"pt2"-90");;;绘制仰视图(princ"\n绘制仰视图完毕!")(princ));;;函数：CF3;;;;;;编制日期:2009.03.27;;;修改日期：2011.07.28;;;编制者：曾敏辉;;;说明：本函数将复制并旋转对象为左视;;;(DEFUNsanshm_CF3(/enentgrpoldortpt1pt2ss)(setvar"cmdecho"0)(PRINC"\n复制并旋转对象为左视")(setqoldort(getvar"orthomode"))(princ"\n请选择主视图对象:")(SETQENTGRP(SSGET))(princ"\n请选择主视图的基准点:")(setvar"orthomode"1)(SETQpt1(GETPOINT))(princ"\n请选择左视图的基准点(按左键接受并绘制左视图片)(SETQpt2(GETPOINT))(setqen(entlast))(COMMAND"copy"ENTGRP""pt1pause)(setqss(lt:ss-entnexten))(princ"\n正在绘制左视图")(command"rotate3d"ss"""Y"pt2"90");;;绘制左视图(princ"\n绘制左视图完毕!")(princ));;;;;;函数:CF4;;;;;;编制日期:2009.03.27;;;修改日期：2011.07.28;;;编制者：曾敏辉;;;说明：本函数将复制并旋转对象为俯视;;;(DEFUNsanshm_CF4(/enentgrpoldortpt1pt2ss)(setvar"cmdecho"0)(PRINC"\n复制并旋转对象为俯视")(setqoldort(getvar"orthomode"))(princ"\n请选择主视图对象:")(SETQENTGRP(SSGET))(princ"\n请选择主视图的基准点：”)(setvar"orthomode"1)(SETQpt1(GETPOINT))(princ"\n请选择俯视图的基准点(按左键接受并绘制俯视图):")(SETQpt2(GETPOINT))(setqen(entlast))(COMMAND"copy"ENTGRP""pt1pause)(setqss(lt:ss-entnexten))(princ"\n正在绘制俯视图")(command"rotate3d"ss"""X"pt2"90");;;绘制俯视图(princ"\n绘制俯视图完毕!")(princ));;;;;;函数:ZDS;;;;;;编制日期:2008.11.20;;;修改日期:2010.04.29修改实体颜色为0层和hidden层;;;修改日期:2011.07.28增加程序运行前的备注和功能;;;编制者：曾敏辉说明：将已绘制好的三维图自动投影生成三视图(defunsanshm_zds(/lold_layss1ss2ss3ss4ssgl)(SETVAR"CMDECHO"0)(princ"\n请选择生成投影图的组合(它将删除所选择的3D实体，请注意保存3D实体):“)(setqssg1(ssget));;生成布局选项(command"layout""s""")(princ"\n投影图正在生成中，请稍候")(command"mspace")(command"_solprof"ssg1"""Y""Y""N")(princ"\n投影图已生成")(command"model")(command"erase"ssg1"")(COMMAND"EXPLODE"l)(setqss1(ssget"X"'((8."PH-*"))))(COMMAND"EXPLODE"SS1)(setqss2(ssget"X"'((8."PH-*"))))(setqss3(ssget"X"'((8."PV-*"))))(COMMAND"EXPLODE"SS3)(setqss4(ssget"X"'((8."PV-*"))))(setqold_lay(getvar"clayer"))(if(=(tblobjname"LAYER""hidden")nil)(progn(command"layer""m""hidden""c""bluel""dashed)(setvar"clayer"old_lay)(command"CHANGE"ss2"""P""LA""hidden""")(command"CHANGE"ss4"""P""LA""0""");;;(command"CHANGE"ss2"""P""LA""hidden""");;;(commandCHANGE"ss4"""P""LA""0""");;;(command"_.purge""_all""*""n");;;(command"_.qsave")(princ));;;_结束defun;;;;?(lt:ss-entnexten);;［功能］获取在图元en之后产生的图元的选择集;;［参数］en----图元名;;［返回］选择集;;［测试］1.(setqen(entlast));;执行创建图元的命令，如LINE,BOUNDARY;;(setqss(lt:ss-entnexten));;2.(setqss(lt:ss-entnext(car(entsel))))(defunlt:ss