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))函數(shù)：CF1;;;編制日期：2009.03.27;;;修改日期：2011.07.28;;;編制者：曾敏輝;;;說明：本函數(shù)將復制并旋轉對象為右視復制并旋轉對象為右;;;(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;;;函數(shù)：;;;;;;編制日期:2009.03.27;;;修改日期：2011.07.28;;;編制者：曾敏輝;;;說明：本函數(shù)將復制并旋轉對象為仰視;;;(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));;;函數(shù)：CF3;;;;;;編制日期:2009.03.27;;;修改日期：2011.07.28;;;編制者：曾敏輝;;;說明：本函數(shù)將復制并旋轉對象為左視;;;(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));;;;;;函數(shù):CF4;;;;;;編制日期:2009.03.27;;;修改日期：2011.07.28;;;編制者：曾敏輝;;;說明：本函數(shù)將復制并旋轉對象為俯視;;;(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));;;;;;函數(shù):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之后產(chǎn)生的圖元的選擇集;;［參數(shù)］en----圖元名;;［返回］選擇集;;［測試］1.(setqen(entlast));;執(zhí)行創(chuàng)建圖元的命令，如LINE,BOUNDARY;;(setqss(lt:ss-entnexten));;2.(setqss(lt:ss-entnext(car(entsel))))(defunlt:ss