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

《cad 三维 立体 图 自动生成 二维 三视图 插件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、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_dia

2、log5)")(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));;;;;-----------------------------------------

3、---------------;;;函数：CF1;;;--------------------------------------------------------;;;编制日期:2009.03.27;;;修改日期:2011.07.28;;;编制者:曾敏辉;;;说明:本函数将复制并旋转对象为右视;;;--------------------------------------------------------(DEFUNsanshm_CF1(/enentgrpoldortpt1pt2ss)(PRINC"复制并旋转对象为右视")(setvar"cmdec

4、ho"0)(setqoldort(getvar"orthomode"))(princ"请选择主视图对象:")(SETQENTGRP(SSGET))(princ"请选择主视图的基准点:")(setvar"orthomode"1)(SETQpt1(GETPOINT))(princ"请选择右视图的基准点(按左键接受并绘制右视图):")(SETQpt2(GETPOINT))(setqen(entlast))(COMMAND"copy"ENTGRP""pt1pause)(setqss(lt:ss-entnexten))(princ"正在绘制右视图....

5、..")(command"rotate3d"ss"""Y"pt2"-90");;;绘制右视图(princ"绘制右视图完毕!")(princ));;;--------------------------------------------------------;;;函数：CF2;;;--------------------------------------------------------;;;编制日期:2009.03.27;;;修改日期:2011.07.28;;;编制者:曾敏辉;;;说明:本函数将复制并旋转对象为仰视;;;--------------

6、------------------------------------------(DEFUNsanshm_CF2(/enentgrpoldortpt1pt2ss)(setvar"cmdecho"0)(PRINC"复制并旋转对象为仰视")(setqoldort(getvar"orthomode"))(princ"请选择主视图对象:")(SETQENTGRP(SSGET))(princ"请选择主视图的基准点:")(setvar"orthomode"1)(SETQpt1(GETPOINT))(princ"请选择仰视图的基准点(按左键接受并绘制仰视

7、图):")(SETQpt2(GETPOINT))(setqen(entlast))(COMMAND"copy"ENTGRP""pt1pause)(setqss(lt:ss-entnexten))(princ"正在绘制仰视图......")(command"rotate3d"ss"""X"pt2"-90");;;绘制仰视图(princ"绘制仰视图完毕!")(princ));;;函数：CF3;;;--------------------------------------------------------;;;编制日期:2009.03.27;;;修改日期

8、:2011.07.28;;;编制者:曾