|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
3 n4 \# t' v2 v- V6 x9 n
' f |2 s" e, C- s6 X我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.5 P2 Q6 }3 a7 c% L0 @/ y" {& l2 p
我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？( R _2 d, i! X; M, L% {4 y
- ;绘制沿圆周移动的多边形& \7 U4 P6 Y* Q; d
- ;basepoint 基准圆心2 r3 u8 l2 g# n1 }2 Z6 i
- ;baseradius 基准圆半径
) {" _0 }; S) X5 O7 e - ;cenpoint 多边形内切圆圆心- H- U6 Y2 n' {6 S. X6 y" @
- ;pointx 多边形内切圆圆心x坐标6 |0 M* ?$ X F4 ?# G `" W
- ;pointy 多边形内切圆圆心y坐标$ N) O0 D, W" b9 X
- ;plgnum 多边形边数
8 ?/ _/ {4 Z. ]. I5 K! ?% h7 ~ - ;plgradius 多边形内切圆半径
4 V, K) y$ `+ N9 K - (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)
* J, I" b7 \9 {& k3 M7 j - (setq plgnum (getint "请输入绘制的正多边形边数："))/ y; ^4 o1 d) l2 a) a0 e: S& K8 X
- (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))
2 J* _* `# k& [4 [7 t - (setq basepoint (list 0 0))4 N( H3 d4 r, ?9 f! ] F" k) L
- (setq baseradius 4)
3 E& q0 D" Z- t" ` - (command "circle" basepoint baseradius)% V" l* c. T, m( @0 L& N1 s/ I
- (setq pointx -4.0 step 0.2) k( o4 Q! b F; O# l1 S$ W5 h
- (while (< pointx 4.0)
1 Z; w! H5 r7 S( Z- M- q" ~ - (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))" o$ U0 u6 I, I( m
- (setq cenpoint (list pointx pointy))( K: r; e6 z+ V. |& T; V
- (command "polygon" plgnum cenpoint "i" plgradius)
/ I0 _/ X! W9 r( N8 u - (setq pointx (+ pointx step))5 i& K. z1 w. u0 @1 M/ Z& A/ p
- )
7 U% S1 c" I% w& c - (prompt "draw polygon over!")
6 t; q, o8 g/ S7 v G. T - )' j8 E' P% F& f( k- y p# w. ~2 O1 Q1 v
运行输入多边形边数：5
; g6 C/ o; ~: x! L) G- x9 w' i运行输入多边形内切圆半径：2
8 A0 [, j& A% Y- C' c4 T) z( J! x
. L5 X9 @5 w& y; Q1 t% V f, a; V效果图如下：
7 j2 r+ p! P$ ~8 }; t$ O4 P1 p
) T5 N! {! ]0 I: k4 J
6 g: E h; Q" k, p; C/ E5 }我希望的效果是沿着外面的圆周绘出N个五边形，这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。 |
|
发表于 2012-3-21 14:46:03
楼主
发表于 2012-3-22 13:22:16