|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
3 k: ^; Q! \: D
0 `" B8 e w9 o$ d* [我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.# w6 E k: c! g0 I9 Q2 E
我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？
4 d# g R$ t5 }, Q- ;绘制沿圆周移动的多边形
0 P1 |4 x) f! d2 g7 K - ;basepoint 基准圆心
9 Y8 \0 D& H3 n7 ? - ;baseradius 基准圆半径
; d3 V/ h# h2 Y6 o7 F& ~' f - ;cenpoint 多边形内切圆圆心
& u' j9 p6 K; y - ;pointx 多边形内切圆圆心x坐标
$ d2 ~- e. m7 n/ D9 Z4 z* k8 ~+ ] - ;pointy 多边形内切圆圆心y坐标, p9 b( ]9 b) ?. a; K3 ^% E
- ;plgnum 多边形边数
% J7 D4 }6 r* q8 @* R, u0 I' U - ;plgradius 多边形内切圆半径
5 ]: R F5 E j. C/ @, m+ E+ x) Z - (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)8 _& `) j5 R' p% X
- (setq plgnum (getint "请输入绘制的正多边形边数："))
, @: W r; c6 A4 i) Y% J. d& H - (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))4 i- {3 ^: R- v
- (setq basepoint (list 0 0))
; |, a0 Q, z1 \ - (setq baseradius 4)( j3 ~% L5 o9 N" A$ ~
- (command "circle" basepoint baseradius)
4 S% [! j7 E! c; P3 H - (setq pointx -4.0 step 0.2)5 G0 J& ~. K- R( s: J) R
- (while (< pointx 4.0)( k1 \ Z& J+ t# ~$ Z; R
- (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
4 w: K1 {2 ?5 g" S) ^( \ - (setq cenpoint (list pointx pointy))0 E5 I) l8 K4 k! t
- (command "polygon" plgnum cenpoint "i" plgradius)
g2 f" |+ i/ W - (setq pointx (+ pointx step))) D2 h& i% Z3 A3 ]5 V) k* J2 _
- )
2 {, e ]0 q% x+ s& A, n) i5 c$ i/ h - (prompt "draw polygon over!"); i4 P4 p' K0 j9 w k
- )
$ c$ `9 b- {( I- S$ h2 R
运行输入多边形边数：53 o8 T* p" K4 Z8 ^+ O- U/ }% q
运行输入多边形内切圆半径：2
5 [ r( K8 M& b4 Z9 {- ?- y' K/ P
0 W1 J$ ?3 X' A# R9 B, z; A1 z效果图如下：
" _/ b9 p4 b, P d% \. n( n
9 r9 f! x* B3 y
* m1 \+ j" y# s4 R3 m& U
我希望的效果是沿着外面的圆周绘出N个五边形，这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。 |
|
发表于 2012-3-21 14:46:03
楼主
发表于 2012-3-22 13:22:16