[詢問]請教lisp拉進cad結果跳出引數太多的錯誤，該如何修改呢?

目前使用了一個快速標註面積(坪、m2)的lsp檔，但是拉進Cad的時候發生引數太多的錯誤，想請各位高手幫我看該如何修改呢?
另外想問，該如何設計成以指令方式使用呢，不然每次使用都要用拉的很麻煩...
程式碼如下:
(defun autoarea2 ()

(setvar blipmode 0)
(setvar cmdecho 0)

(setq oa (getvar aperture))
(setq op (getvar pickbox))

(setvar aperture 4)
(setvar pickbox 6)

(setq cont 1)

(while (= cont 1)
(prompt n請點選一個聚合線)
(command area o pause)
(prin1)
(progn
(setq area-m ( (getvar area) 10000))
(setq area-str (rtos area-m 2 2))
(setq areap ( area-m 0.3025))
(setq area-pout (strcat area-str ㎡( (rtos areap 2 2) 坪)))
(setq en (entsel n請點選一個文字))

(if (null en)
(progn
(princ)
(prompt 謝謝你 Thanks you )
(setvar aperture oa)
(setvar pickbox op)
(exit)(prin1)
)
)
(setq endata (entget (car en)))
(setq old (assoc 1 endata))
(setq new (cons 1 area-pout))
(setq endata1 (subst new old endata))
(entmod endata1)
(prin1)
)
)
)
(prin1)
(prompt 自動替換文字成為面積之程式 Designed by Kalag Aug. 23 2001 )
(princ)
(autoarea2)

你這個程式許多語法沒有完成
可以設定每次開Cad 就把lisp載入方便使用不用每次拉