(prompt"\n 所选不是直线")

　　)

　　(t (prompt"\n两条直线已经选择完毕")

　　　(setq m nil)；；；退出循环

　　)

　 )

　)

；；；取得第一直线两端点的坐标

　(setq pt1 (cdr (assoc 10 e )) pt2 (cdr (assoc 11 e )))

　(setq e (entget (car cl1)))；；取得第二条直线的实体数据

；；；取得第二直线两端点的坐标

　(setq pt3 (cdr (assoc 10 e )) pt4 (cdr (assoc 11 e )))

；；调整端点

　(if (inters pt1 pt3 pt2 pt4 t)

　　 (setq pt pt1

　　　　　pt1 pt2

　　　　 pt2 pt

　　)

　)

；；；计算两端中点坐标

　(setq pt1 (mid pt1 pt3 ))

　(setq pt2 (mid pt2 pt4 ))

　(setq a (angle pt1 pt2))；计算中心线的倾角

　(setq pt2 (polar pt2 a 2.5))；；计算中心线的第一个端点

　(setq pt1 (polar pt1 (＋pi a ) 2.5))

　(command"layer""SET"5"")；；设置中心线层

　(command "line" pt1 pt2 "")；；画出中心线

)

(princ "\nC:GSL has loaded")

(Princ "\n for symmetry line")

(princ)

　　第二个程序适用于阶梯轴，阶梯孔等各种情况。使用方法是：用LOAD命令装入GLS1.LSP，运行C:GSL1，依据屏幕提示，分别选择两边的端点，自动绘制出中心线。

GSL1.LSP

(defun mid(pt1 pt2 )

　　(setq pt (mapcar '+ pt1 pt2 ))

　　(setq pt (mapcar '/ pt '(2 2 2)))

)

(defun c:gsl1(/ p1 p1 p3 p4 a )

　；；保存环境变量

　(setq os (getvar "osmode"))

　(setq cm (getvar "cmdecho"))

　；；设置环境变量

　(setvar "osmode" 33)

　(setvar "cmdecho" 0)