基于ACAD平台的给排水制图程序毕业论文(2)

软件包之上，功效更加明显。

4 程序举例

　　 限于篇幅，这里仅列其中之一以供同行们参考。
　　 ；本程序对PLKINE，BLOCK，TEXT等图元分别进
　　 ；行旋转与平移处理，达到平面图形的透视效
　　 ；果。程序对LINE，DIM，SOLID等图元进行删
　　 ；除。
　　 （defun c:xx(/xxy k1 k2 k3 stn)
　　 (setq ss(ssget)ang(/pi4);选择需要进行旋转与平移处理的对象（实体）
　　 （setqy (cadr(nth1 (entsel″\\\\n 选择水平线″））））
　　 ；Y用户选择的旋转基准线
　　 （setq e(ssnamess 0)n0)
　　 （setq k1(list″a″)k2(list″b″)k3(list″c″))
　　 ；初始化k1k2k3放置实
　　 ；体名的列表，并设“a”“b”“c”为结束标记
　　 （while e
　　 ；while 语句开始，对所选项实体进行旋分类处理
　　 （setq st(cdr(assoc 0(entget e))))
　　 (if (=st″LWPOL YLINE″)(setq k2 (cons e k2))
　　；if 语句开始