AutoLISP绘制花型四

weixin_34163553

于 2011-03-28 17:32:00 发布

阅读量237

点赞数

本文介绍了一段使用AutoLISP编程语言绘制类似荷花形状图案的代码。该图案通过定义中心点、圆的半径及多边形边数来创建，并通过一系列计算实现了荷花形状的绘制。

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圆半径<" (rtos srr 2) ">:"))
(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)
)