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

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

(DEFUNc:sa()(DEFUNc:sa()(DEFUNc:sa()(DEFUNc:sa()(DEFUNc:sa()(DEFUNc:sa()(DEFUNc:sa()

(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;;;(DEFUN

复制并旋转对象为右

视视视视视

请选择主视图对象请选择主视图对象

(SETQENTGRP(SSGET))

;;;(DEFUN

sanshm_CF4(/enentgrpoldortpt1pt2ss)sanshm_CF4(/enentgrpoldortpt1pt2ss)sanshm_CF4(/enentgrpoldortpt1pt2ss)

复制并旋转对象为俯视复制并旋转对象为俯视复制并旋转对象为俯视复制并旋转对象为俯视

请选择主视图对象请选择主视图对象

(SETQENTGRP(SSGET))(SETQENTGRP(SSGET))

请选择主视图的基准点请选择主视图的基准点

(SETQpt1(GETPOINT))(SETQpt1(GETPOINT))

请选择俯视图的基准点(按左键接受并绘制俯视图按左键接受并绘制俯视图

(GETPOINT))

(setqen(entlast))(setqen(entlast))(setqen(entlast))

正在绘制俯视图正在绘制俯视图正在绘制俯视图

绘制俯视图

绘制俯视图完毕绘制俯视图完毕

(princ)

)

;;;;;;函

数:ZDS

;;;;;;编

制日期:2008.11.20

;;;修改日期:2010.04.29修改实体颜色为0层和hidden层;;;修改日

期:2011.07.28增加程序运行前的备注和功能;;;编制者:曾敏辉

;;;说明:将已绘制好的三维图自动投影生成三视图;;;

(defunsanshm_zds(/lold_lay(defunsanshm_zds(/lold_lay(defunsanshm_zds(/lold_lay

请选择生成投影图的组合(它将删除所选择的3D实体，请注意保

存3D实

体体

(setqssg1(ssget));;