[問題]lisp語言錯誤請教

小弟最近在摸索lisp
參考許多大哥的lsp文件的寫法
也參考了下列的網頁教學
http://www.tpce.org.tw/tpce/ePaper/596-1.pdf
最近遇到下面的語言寫法，執行時一直出現損壞的引數類型
自己一直在找是哪裡有錯誤，但是已經找了兩天了
實在看不出錯誤在哪裡，這是一個給與半徑數值再給總長就能畫弧的lsp
請問大哥語法中到底哪裡錯了，會一直出現錯誤，請大家指教 謝謝

分隔線---------------------

(defun C:tes ( / ang1 l1 l2 pt1 r1)
(if (and
(setq R1 (getdist "\n請輸入圓弧半徑"))
(> R1 0)
(setq L1 (* 2 pi R1))
(setq pt1 (getpoint "\n請輸入圓弧圓心座標"))
(setq L2 (getdist (strcat "\n請輸入小於：" (rtos L1) "圓弧長度")))
(< L2 L1)
(> L2 0)
(setq ang1 (/ L2 R1))
)
(progn;;1
(entmake (list '(0 . "ARC") (cons 10 pt1) (cons 40 R1) (cons 50 0) (cons 51 ang1)))
);progn;1
)
(princ)
)

and 裡面只接受 T 跟 nil
setq 變數回傳的是變數值，全部拉到 if 外面去

仔細看 (if (and 這一行意義不明
後續的比較式也不知道在做什麼
一個if一個判定
如果判定後要多個動作的話用(progn 可以全部包起來

不急的話可以等我哪天心血來潮回來看再回答
不然就到FB鋼筋撿料 社團PO文
https://www.facebook.com/groups/824549631029702/?ref=bookmarks

感謝你的回覆，我了解了
我會再依您給的方向，仔細研究，謝謝

這是我拿來修改以後的，可以參考看看

代碼:

(defun C:tes (/ ang1 l1 l2 pt1 r1)
  (setq a T b T)
(while a
(setq r1 (getdist "\nr1"))
 (if (> r1 0)
  (setq a nil)
  (princ "\nr1<0")
 )
)
(setq l1 (* 2 pi r1))
(setq pt1 (getpoint "\nCenter"))
(while b
 (setq l2 (getdist "\nL2"))
 (if (and (< l2 l1) (> l2 0))
  (setq b nil)
  (princ "\nsomething wrong")
 )
)
(setq ang1 (/ l2 r1))
(entmake
  (list
    (cons 0 "ARC")
    (cons 10 pt1)
    (cons 40 r1)
    (cons 50 0)
    (cons 51 ang1)))
)



感謝 akioharuno 你的幫助
我自己用好久，到現在還是搞不好，能參考你的程序對我幫助很大，謝謝