
(defun c:tt()
(setvar "OSMODE" 0)
  (setq pa (getpoint "\n 指定一个插入点:"))
  (setq r (getdist "\n 输入长度:"))
  (setq pb (polar pa (/ pi (- 0 3)) r))
  (setq pc (polar pa 0 r))
  (setq pd (polar pa 0 (/ r 2)))
  (setq pe (polar pd 0 (* r 0.7)))
  (setq dd (distance pc pd))
  (setq dd1 (* dd (sin (/ pi 6))))
  (setq p1 (polar pd (/ pi (- 0 6)) dd1))
  (setq p2 (polar p1 pi r))
  (setq p3 (polar p2 0 (* r 2.5)))
  (setq p4 (polar p3 (* pi 0.75) (/ r 4)))
  (setq p5 (polar p3 (* pi 1.25) (/ r 4)))
  (setvar "osmode" 0)
  (command "color" 3)
  (command "pline" p1 p2 p3 p4 p3 p5 "")
  (command "color" 1)
  (command "pline" pa pb pc "a" "a" 180 pd "a" 180 pa "")
  (command "copy" (entlast) "" pd pe "")
  (setvar "osmode" 1)
  (command "zoom" "E")
 )