[已解決] 程式(inters nil)怎麼會錯誤

執行程式到inters 為什麼就抓不到值了
損壞的引數類型: 2D/3D 點: nil

為什麼會這樣...

(inters nil) 不是可以抓非真實線段的點嗎?
為什麼抓不到....

(defun c:dd ( )
(setq D (getint"\n請輸入大直徑"))
(setq d (getint"\n請輸入小直徑"))
(setq H (getint"\n請輸入高"))
(setq point (getpoint"\n插入點"))

(setq p14 (polar point (/ (* 3 pi )) (+ D 100 )))
(setq p23 (polar p14 (/ (* 3 pi )) H ))
(setq p1 (polar p14 pi (/ d 2 )))
(setq p4 (polar p14 0 (/ d 2 )))
(setq p3 (polar p23 0 (/ D 2 )))
(setq p2 (polar p23 pi (/ D 2 )))
(setq cen (inters p1 p2 p3 p4 nil))

------------------------------------------------
謝謝您的意見提供
這程式已經可以用了
程式改如下

(setq D1 (getint"\n請輸入大直徑: "))
(setq D2 (getint"\n請輸入小直徑: "))
(setq H (getint"\n請輸入高: "))
(setq point (getpoint"\n請插入點"))

(setq do (+ D1 100 ))
(setq p14 (polar point (* 1.5 pi) do))
(setq p23 (polar p14 (* 1.5 pi) H ))
(setq p1 (polar p14 pi (* D2 0.5 )))
(setq p4 (polar p14 0 (* D2 0.5 )))
(setq p3 (polar p23 0 (/ D1 2 )))
(setq p2 (polar p23 pi (/ D1 2 )))
(setq cen (inters p1 p2 p3 p4 nil))

你這程式有不少問題:
1.AutoCAD的變數是不分大小寫的, 所以D 和d 會是同一個值.
2.這兩行
(setq p14 (polar point (/ (* 3 pi )) (+ D 100 )))
(setq p23 (polar p14 (/ (* 3 pi )) H ))
的
(/ (* 3 pi ))
(/ (* 3 pi ))
錯誤.
3.請注意(/ D 2) 的傳回值

以上錯誤甚多, 請先修訂錯誤才能判斷 inters的值