查看完整内容
(defun drawRegPolygon (n side layer @optional cx cy)
(let (pi R startAngle pts i theta x y cv layerList denom angleStep)
(if (or (null n) (lessp n 3))
(error "drawRegPolygon: n must be >= 3")
)
(if (or (null side) (lessp side 0.0000001))
(error "drawRegPolygon: side must be > 0")
)
(setq pi (acos -1.0))
(if (null cx) (setq cx 0.0))
(if (n ...