快速生成冲头挂台，提升设计工作效率！！！！！！！((defun c:GT(/ selec1 selec2 point1 point2 object1 object2 pp1 pp2 dist1 dist2
　　　　　　　inter INTERX INTERY POINT1X POINT1Y ptrim pextend P1 p2 p3 p4 p5　)
　　　(start00)
　(setvar "osmode" 0)
　　　(setq n 1)
　　　(while (< n 2)
　　　(print)
　　　(setq selec1 (entsel ":")　)
　　　(if (= selec1 nil) (princ "!") (progn (setq n 3) (princ "1 found")))
　　　);while)