|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
, w) q2 s& N" \8 e6 W/ Y
) @; _7 e$ @) ?7 Z0 d% v0 g我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.
9 s7 K' ~* k7 o2 \" c+ K2 h0 k我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？
4 ?( P. J2 L/ @: {- ;绘制沿圆周移动的多边形6 V9 q( v3 p* K* L
- ;basepoint 基准圆心1 H1 H8 `) a \
- ;baseradius 基准圆半径
( b- \3 v! z/ o4 F - ;cenpoint 多边形内切圆圆心
3 ~; C+ o1 O: |; F1 \4 g - ;pointx 多边形内切圆圆心x坐标3 `, ]% g2 m* j. R. P) `9 I
- ;pointy 多边形内切圆圆心y坐标 Y; M6 Z9 i- z4 r6 Y" d l+ ]
- ;plgnum 多边形边数1 N0 k$ l- ^, ], m S; B. b" H0 f
- ;plgradius 多边形内切圆半径1 {! {$ n/ D! M. S" n$ U, K; I
- (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)3 `9 J) s# F9 g7 V! ^) |
- (setq plgnum (getint "请输入绘制的正多边形边数："))0 K+ E4 |( Z3 A. R
- (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))( N0 }' }& L: h. g9 R
- (setq basepoint (list 0 0))2 I1 i( p9 M# f9 }4 O+ ^
- (setq baseradius 4)4 [% x+ m4 _* Y' L2 ?5 @
- (command "circle" basepoint baseradius)
( T; n& F) d) Y. Y1 ~( v - (setq pointx -4.0 step 0.2)
( M% ]. |0 ?: b. m - (while (< pointx 4.0)4 \, ^: Y4 o2 M$ x% {5 g
- (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx)))): G! @% }. N8 X8 a8 n v6 A/ |. P3 f
- (setq cenpoint (list pointx pointy))9 C5 X6 r: ]) h8 J' S: l, p
- (command "polygon" plgnum cenpoint "i" plgradius)
( V6 ?" d" e: X2 J0 z& k - (setq pointx (+ pointx step))
/ j7 X6 H, G2 C. v6 Z3 C7 I - )
! P7 ? F' y3 u0 L3 Z W - (prompt "draw polygon over!")
1 a d/ l, _' p ]" k [' d! }5 I$ d - ) Q1 V0 l& U, g* _
运行输入多边形边数：5
+ U5 u3 U, G! p& _/ L8 i- Y运行输入多边形内切圆半径：20 B; \1 S, S9 U) v5 Y5 h
) g: H( w% d. O! U+ ]5 B5 I
效果图如下：
' u* ^0 Z" ?. c
0 ?9 j: s$ v( Q8 Y/ U: k8 d1 M9 |+ c, P" ~2 D1 v
我希望的效果是沿着外面的圆周绘出N个五边形，这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。 |
|
发表于 2012-3-21 14:46:03
楼主
发表于 2012-3-22 13:22:16