第二个程序适用于阶梯轴，阶梯孔等各种情况。使用方法是：用LOAD命令装入GLS1.LSP，运行C:GSL1依据屏幕提示，分别选择两边的端点，自动绘制出中心线。 
　　GSL1.LSP 
　　(defunmid(pt1pt2) 
　　(setqpt(mapcar’+pt1pt2)) 
　　(setqpt(mapcar’/pt’(222)))) 
　　(defunc:gsl1(/p1p1p3p4a) 
　　；；保存环境变量 
　　(setqos(getvar"osmode")) 
　　(setqcm(getvar"cmdecho")) 
　　；；设置环境变量 
　　(setvar"osmode"33) 
　　(setvar"cmdecho"0) 
　　；；依次读取两条直线的端点 
　　(initget1) 
　　(setqp1(getpoint"/n选择第一条直线的第一个点")) 
　　(initget1) 
　　(setqp2(getpoint"/n选择第一条直线的第二个点")) 
　　(initget1) 
　　(setqp3(getpoint"/n选择第二条直线的第一个点")) 
　　(initget1) 
　　(setqp4(getpoint"/n选择第二条直线的第二个点")) 
　　；；；；恢复环境变量 
　　(setvar"osmode"os) 
　　(setqp1(midp1p3)) 
　　(setqp2(midp2p4)) 
　　(setqa(anglep1p2)) 
　　(setqp2(polarp2a2.5)) 
　　(setqp1(polarp1(+pia)2.5)) 
　　(command"layer""set"5"") 
　　(command"line"p1p2"")) 
　　(princ"/nC:GSL1hasloaded") 
　　(Princ"/nforsymmetryline") 
　　(princ)