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

somezy · 发表于 2012-3-21 14:46:03

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑

我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.
我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？

;绘制沿圆周移动的多边形* V- R* F2 ~9 z4 z0 S- W+ c+ F
;basepoint 基准圆心* ]* Y1 ]$ _/ m
;baseradius 基准圆半径
2 F0 d9 u) r% A& c% P9 ]9 f
;cenpoint 多边形内切圆圆心- h: @* F: x+ O" ?, J
;pointx 多边形内切圆圆心x坐标
. j5 ~7 S8 F7 H/ K
;pointy 多边形内切圆圆心y坐标7 q k: N5 d4 H3 s: l" t7 K( o
;plgnum 多边形边数8 f1 i( O" H! }' n5 Z2 }/ {% o
;plgradius 多边形内切圆半径% T- {5 |) W" G) e
(defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)/ j; X/ g% s8 P* F
(setq plgnum (getint "请输入绘制的正多边形边数："))
d; s2 ~4 ]- w5 P$ W8 F
(setq plgradius (getint "请输入绘制的正多边形内切圆半径："))
& g9 r# i5 C9 S2 I- F
(setq basepoint (list 0 0))4 J! Z& u- h# z! N3 B+ _( D! m
(setq baseradius 4)
' m+ a$ H9 x6 Y& \1 v
(command "circle" basepoint baseradius)
# b2 S6 A: m' I2 p' r& m
(setq pointx -4.0 step 0.2)( j" P, y/ E. O4 M" z/ n/ L' n. ?
(while (< pointx 4.0)3 M7 p- d7 T6 K4 e( F
(setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx)))); I k* v" d( R* o4 { a
(setq cenpoint (list pointx pointy))% ]8 k- s0 A* k% |( T$ F
(command "polygon" plgnum cenpoint "i" plgradius)8 r7 A1 ~1 E3 o7 Z( @6 v6 a
(setq pointx (+ pointx step))
) R8 C2 }5 g2 @2 o9 z3 O
)( r6 r; R- A/ y* [7 Q
(prompt "draw polygon over!")
* x4 j) _! _, q& Q8 S
)
6 ~* Q( C: C4 s- N* J4 y

复制代码

运行输入多边形边数：5
运行输入多边形内切圆半径：2

效果图如下：

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

somezy · 发表于 2012-3-21 19:35:03

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

woaishuijia · 发表于 2012-3-22 13:22:16

关掉"对象捕捉"

		自动登录	找回密码
密码			注册

通知