2007年6月29日 星期五

LISP_畫建築車道

(defun c:c1 ()(prompt "\n**<基本半徑,500>**")(command "_.CIRCLE" "T" Pause Pause "500")(prin1))

(defun c:c2 ()(prompt "\n**<雙車道<1050>,內徑:550.外徑:1050,中間:275>**")(command "_.CIRCLE" "T" Pause Pause "1050")(prin1))

(defun c:c3 ()(prompt "\n**<單車道<850>,內徑:350.外徑:850,中間:250>**")(command "_.CIRCLE" "T" Pause Pause "850")(prin1))

(defun c:cct ()(prompt "\n**<相切、相切、半徑畫圓>**")(command "_.CIRCLE" "T" )(prin1))

沒有留言: