리습 오류 문의

리습 뭉쳐있는것중 두개만 떼어 왔는데요

오류 잘못된 인수 유형: number: nil이라고 뜨네요

어느 부분때문에 그런지 알수있을까요?

—————————————————————————–

(defun c:123()

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

        (graphscr)

   (prompt “<SeungbaeCAP for PipingPLAN>”)

        (setq p1 (getpoint “n교차 점 지정 :”))

        (setq p2 (getpoint p1 “n절단 라인의 방향 지정 :”))                                                                           

        (setq ang1 (angle p1 p2))

        (setq ang2 (angle p2 p1))

        (setq p2 (polar p1 ang1 (* w2 1.2)))

        (setq p3 (polar p1 ang2 (* w2 1.2)))

        (setq fc (polar p1 ang1 1.0))

        (setq f1 (polar fc (+ ang1 (dtr 90)) 1.0))

        (setq f2 (polar fc (+ ang1 (dtr -90)) 1.0))

                (command “break” “f” “none” f1 “none” f2 “” “none”p2 “none” p3)

);;defun close

————————————————————————————-

(defun c:456()

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

        (graphscr)

   (prompt “<SeungbaeCAP for PipingPLAN>”)

        (setq p1 (getpoint “n첫번째 교차 점 지정 :”)

              p2 (getpoint p1 “n두번째 교차 점 지정 :”)

       ;;       p3 (getpoint p1 “n절단 라인의 방향 지정 :”)

              ang1 (angle p1 p2)

      ;;        ang2 (angle p1 p3)

              p1a (polar p1 ang1 -1.0)

              p2a (polar p2 ang1 1.0)

              p1b (polar p1 (+ ang1 (dtr -90)) 1.0)

              p2b (polar p2 (+ ang1 (dtr -90)) 1.0)

              p4 (polar p1a (+ ang1 (dtr -90)) (* w2 1.2))

              p5 (polar p1a (+ ang1 (dtr 90)) (* w2 1.2))

              p6 (polar p2a (+ ang1 (dtr -90))(* w2 1.2))

              p7 (polar p2a (+ ang1 (dtr 90)) (* w2 1.2))

        );setq close

          (command “pline” “none” p4 “none” p5 “none” p7 “none” p6 “c”)

          (command “trim” “l” “” “f” “none” (polar p1b ang1 -2) “none” (polar p2b ang1 2) “” “”)

          (command “erase” “p” “”)

);;defun close