;---선과 선에 대한 중심선

(defun c:CCL ()
  (defun *error* (msg)(princ "error: ")(princ msg)
            (setvar "osmode" os) (setvar "clayer" cla)(princ) )  

(setq os (getvar "osmode") 
       cla (getvar "clayer"))
(setvar "osmode" 50) ; 32 int, 2 mid, 16 qua,
(setq lmid1(getpoint "n > 1st Line mid point: "))
(setvar "osmode" 176) ;32 int, 128 per, 16 qua,
(setq lmid2(getpoint lmid1 "n > 2nd Line mid point: "))
(setvar "osmode" 0)
(setq an (angle lmid1 lmid2)
          ds (distance lmid1 lmid2)
          hds (/ ds 2))
(setq p1  (polar lmid1 an (* ds 1.05)))
(setq p2 (polar lmid2 (+ an pi) (* ds 1.05)))
(command "layer" "s" "22" "")
(command "line" p1 p2 "")
(setvar "osmode" os)
(setvar "clayer" cla)