LISP绘制草地_AutoLISP绘制花型四

(defun c:test()

(setvar "cmdecho" 0)

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(setq cen (getpoint "\n中心点："))

(setq srr (getvar "circlerad"))

(setq str_rr (strcat "\n圆半径:"))

(setq rr (getdist cen str_rr))

(if (null rr) (setq rr srr))

(command "circle" cen rr)

(setq nn (getint "\n输入偶数多边形<6>:"))

(if (null nn) (setq nn 6))

(if (= (rem nn 2) 0)

(progn

(setq ang1 (/ pi (/ nn 2)))

(setq ang2 (- (/ pi (/ nn 2))))

(setq pt1 (polar cen ang1 rr))

(setq pt2 (polar cen ang2 rr))

(if (= nn 4)

(progn

(setq pt1 (polar cen (/ pi 4) rr))

(setq pt2 (polar cen (- (/ pi 4)) rr))

)

)

(command "arc" pt1 cen pt2)

(command "array" (entlast) "" "p" cen nn "" "")

)

(alert "错误，请输入偶数……")

)

(setvar "osmode" os)

(prin1)

)