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

somezy

我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.
: C% X; S9 o# S我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？
! F- M4 H- G- N. f; M

1. ;绘制沿圆周移动的多边形
   1 e/ x, P3 R/ a; v3 N7 X3 t7 F
2. ;basepoint 基准圆心
   9 [* C* K! k' a" y4 n0 q/ ]" @
3. ;baseradius 基准圆半径
   / F% e1 Q- b7 T- h; Q
4. ;cenpoint 多边形内切圆圆心
   
5. ;pointx 多边形内切圆圆心x坐标
   
6. ;pointy 多边形内切圆圆心y坐标
   
7. ;plgnum 多边形边数
   5 q% Z8 W$ P( b8 h+ [; O
8. ;plgradius 多边形内切圆半径
   
9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)
   : `& \$ s. s! _. a
10.   (setq plgnum (getint "请输入绘制的正多边形边数："))
    
11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))
    ! s8 b% q4 w7 V) N& u
12.   (setq basepoint (list 0 0))
    
13.   (setq baseradius 4)
    
14.   (command "circle" basepoint baseradius)
    $ m1 U  L8 k6 O/ H# \, t8 i7 u/ [
15.   (setq pointx -4.0 step 0.2)
    & E- a) h# e( }8 v8 B' D6 \$ R3 `
16.   (while (< pointx 4.0)
    
17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
    . _1 N0 h5 G4 l/ H3 x0 d
18.     (setq cenpoint (list pointx pointy))
    0 |: G6 D! Y& N' M1 ]$ A
19.     (command "polygon" plgnum cenpoint "i" plgradius)
    
20.     (setq pointx (+ pointx step))
    8 M( m  ]3 W) c- B6 x
21.   )
    
22.   (prompt "draw polygon over!")
    
23. )
    . c. }2 b: }9 P( }

复制代码

运行输入多边形边数：5
5 u3 {, ?# W4 [. r' l/ n2 `运行输入多边形内切圆半径：2

效果图如下：
2 \. g( C" p! r- E" \; V

/ t4 C, f) x2 w# q6 \我希望的效果是沿着外面的圆周绘出N个五边形，这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。

somezy

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

woaishuijia

关掉"对象捕捉"