关于沿着一个圆周画多边形的问题

somezy

4 |# R# R: y1 Z% b$ q* b: }8 ?) b我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.
) V3 Y3 a* d; U8 Y6 d) Q我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？
  C% y7 e# I% v3 ]8 {

1. ;绘制沿圆周移动的多边形
   2 f# V4 ~& E! `/ z
2. ;basepoint 基准圆心
   ) X( i4 r& R8 W7 }" U
3. ;baseradius 基准圆半径
   
4. ;cenpoint 多边形内切圆圆心
   5 g# h3 T: n; y( z2 O
5. ;pointx 多边形内切圆圆心x坐标
   
6. ;pointy 多边形内切圆圆心y坐标
   
7. ;plgnum 多边形边数
   
8. ;plgradius 多边形内切圆半径
   
9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)
   
10.   (setq plgnum (getint "请输入绘制的正多边形边数："))
    ' x1 b( X; r( Z- M) W. w
11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))
    ) r% S$ Y. E5 d& @# B# p- ^
12.   (setq basepoint (list 0 0))
    + W3 v8 }: ?- h7 P3 X! m$ W
13.   (setq baseradius 4)
    % L6 r# f" L* _$ A( ^
14.   (command "circle" basepoint baseradius)
    $ Z6 g- _9 }( P( h
15.   (setq pointx -4.0 step 0.2)
    6 Y) o. Q2 S$ _+ g3 B" b
16.   (while (< pointx 4.0)
    
17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
    7 [4 h) T! ]8 z' ?% Z! l
18.     (setq cenpoint (list pointx pointy))
    0 K3 ~" I" U- f/ Q
19.     (command "polygon" plgnum cenpoint "i" plgradius)
    ; o% y0 y  Z" ]8 @1 i
20.     (setq pointx (+ pointx step))
    " l4 F1 n: ^$ e+ b
21.   )
    
22.   (prompt "draw polygon over!")
    
23. )
    

复制代码

( ?1 [9 \% ?( s) p6 \运行输入多边形边数：5
6 `7 u- a5 ~6 b- [/ f+ i) @1 B运行输入多边形内切圆半径：2

效果图如下：
  }9 l1 k! x9 @2 k3 }

我希望的效果是沿着外面的圆周绘出N个五边形，这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。

somezy

怎么没有人给个解释呢？自己顶一下！

woaishuijia

关掉"对象捕捉"