select語言，lisp語言cond和if套用_AutoCAD LISP 循環選擇語句cond

(defun c:test()

(initget "A0 A1 A2 A3 A4")

select語言？(setq size (getkword "請輸入圖紙大小A0，A1，A2，A3，A4:"))

(if (= size nil) (setq size "A3"))

(setq size (strcase size))

cond值，(cond? ((= size "A0") (setq p2 '(1189 841)))

((= size "A1") (setq p2 '(841 594)))

((= size "A2") (setq p2 '(594 420)))

if。((= size "A3") (setq p2 '(420 297)))

((= size "A4") (setq p2 '(297 210)))

(t???????????? (setq p2 '(420 297)))

)

(setq p1 '(0 0))

(command "rectang" p1 p2)

(command "zoom" "A")

(prin1)

)