문제점을 못찾겠습니다

(defun dtr (a) (* pi (/ a 180.0)))

(defun c:DLINE ()

(setq p1 (getpoint “n PICK START POINT OF LINE :”))
(setq p2 (getpoint p1 “n PICK END POINT OF LINE :”))
(setq ang (angle p1 p2))

(setq linep1 (polar p1 (+ ang (dtr 90)) (/ 10 2.0)))
(setq linep2 (polar p2 (+ ang (dtr 90)) (/ 10 2.0)))
(setq linep3 (polar p1 (+ ang (dtr 270)) (/ 10 2.0)))
(setq linep4 (polar p2 (+ ang (dtr 270)) (/ 10 2.0)))

(command “line” linep1 linep2 “”)
(command “line” linep3 linep4 “”)

(princ)
)
;; 리습 초보입니다
;;더블 라인을 그리는 리습을 만들고 있는데요 머가 문제인지
;;p1 p2부분에 두개의 라인만 그려집니다 어디가 문제인가요?