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

somezy

  ~% R" y6 S; U/ L7 h2 A
) @( a" [" u4 J我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.
4 J+ }* U' l, F8 q- A' @我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？
2 m3 \0 Y" g9 `8 f& X

1. ;绘制沿圆周移动的多边形
   
2. ;basepoint 基准圆心
   9 G" Y/ p4 W6 ~+ c4 u- ?
3. ;baseradius 基准圆半径
   1 _/ w3 q2 O' s) A& H: K
4. ;cenpoint 多边形内切圆圆心
   
5. ;pointx 多边形内切圆圆心x坐标
   
6. ;pointy 多边形内切圆圆心y坐标
   # S' ]9 r  H. C6 N
7. ;plgnum 多边形边数
   
8. ;plgradius 多边形内切圆半径
   ; R4 @5 ]0 S0 V3 k# b) L! p3 _& j
9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)
   $ d" C( v2 X6 v; [& W
10.   (setq plgnum (getint "请输入绘制的正多边形边数："))
    
11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))
    * s6 l0 X- L& v  V0 _: K
12.   (setq basepoint (list 0 0))
    
13.   (setq baseradius 4)
    
14.   (command "circle" basepoint baseradius)
    
15.   (setq pointx -4.0 step 0.2)
    " n( j0 \+ [# D# X! B/ X2 t' s+ W
16.   (while (< pointx 4.0)
    
17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
    4 N+ ^4 R, H4 R# W2 K) ]
18.     (setq cenpoint (list pointx pointy))
    . b7 X4 g) k1 V6 [7 u9 q$ a5 k; q+ b2 K
19.     (command "polygon" plgnum cenpoint "i" plgradius)
    - Q  @% I/ I' U2 e6 ~
20.     (setq pointx (+ pointx step))
    - t$ g- v$ c2 r' d  ]# I
21.   )
    . o4 {# J) _8 w# J( `' S
22.   (prompt "draw polygon over!")
    
23. )
    4 x% b5 {& o! _; A" m; A

复制代码

运行输入多边形边数：5
: _3 x1 v2 h  _7 `运行输入多边形内切圆半径：2

效果图如下：
7 O) u* q9 v$ a6 p7 H

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

somezy

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

woaishuijia

关掉"对象捕捉"