|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
2 O8 i% u5 u, c7 R( L
. L! E( j4 x" ~# F我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.5 k9 l* K" i# c' G% ~% n4 X
我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？, d* L0 u% m# A* E5 W* H
- ;绘制沿圆周移动的多边形
8 k, r' Y2 u* b- m% @- w - ;basepoint 基准圆心
O5 c. P9 ]6 P4 w! ?- z - ;baseradius 基准圆半径
+ q' B& F8 _8 {' |4 B& L9 ~( G& u g - ;cenpoint 多边形内切圆圆心) r6 F* D, ]( R6 n3 C
- ;pointx 多边形内切圆圆心x坐标
4 z- J$ m' C& D9 |6 p3 R5 e - ;pointy 多边形内切圆圆心y坐标. G( x6 m* }4 y9 @5 G M
- ;plgnum 多边形边数
# [0 s, h+ P! H( m1 a8 N - ;plgradius 多边形内切圆半径, F6 _$ C5 R7 `. O0 W
- (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)" d% [+ `0 F& y
- (setq plgnum (getint "请输入绘制的正多边形边数："))
. D; w" \) o( u0 l+ d7 G - (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))& N n; e* K; Y2 D! C
- (setq basepoint (list 0 0))
. H4 r% N$ _: _4 { - (setq baseradius 4)
M' f8 T1 h9 j. F4 x3 A - (command "circle" basepoint baseradius)
! w4 t4 P! u& R) j# ~* L1 \ - (setq pointx -4.0 step 0.2)
; ? x8 l' C' ?$ W - (while (< pointx 4.0)
9 A7 t9 z$ X" Y; x/ ]$ r1 K - (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
, K: S: l: `* W - (setq cenpoint (list pointx pointy))" r3 B% s1 p& m, E4 V0 Y! w7 n- Q: U
- (command "polygon" plgnum cenpoint "i" plgradius)
7 G, Z- v! L# f' e - (setq pointx (+ pointx step))
7 K4 [" l; g1 u2 X - )
' A8 s5 Z. M5 q9 X. e - (prompt "draw polygon over!")
) R) M4 Y$ E9 v/ ? - )( I# F) }/ |7 L% f8 E& u
' Y; f8 X5 r6 [( o( A3 n3 i运行输入多边形边数：5
" J( A1 X' u) g5 f6 v运行输入多边形内切圆半径：2* [' X+ r% G; [1 a1 _3 U* Q/ d
* M9 t, j, d' ^( M. ~
效果图如下：
' j# i2 a7 D$ p+ Q. @! ]
9 f) F; u! y C1 i+ W1 d$ N
2 M0 C2 D$ p: B我希望的效果是沿着外面的圆周绘出N个五边形，这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。 |
|
发表于 2012-3-21 14:46:03
楼主
发表于 2012-3-22 13:22:16