|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑 ! G5 B) S0 f3 C$ `* t# Z# S
, e* f. F( g+ V: h: ~' D
我想绘制一个沿着圆周移动的多边形，自己写了个lsp，但是运行就是没有出现效果.
- v/ o0 G+ c3 L" |% E我写的lsp代码如下，运行结果如图所示，请问哪里出问题了？) ]) {! n3 v% o* u4 `0 e
- ;绘制沿圆周移动的多边形# T" b; ^$ ] Q% p. Z. M, V
- ;basepoint 基准圆心/ o8 {: s3 B7 x8 w7 @" \
- ;baseradius 基准圆半径
9 F& M# i3 z$ @' z/ u - ;cenpoint 多边形内切圆圆心! ^1 F' O$ ^8 o2 N
- ;pointx 多边形内切圆圆心x坐标$ K& @' x; H$ D
- ;pointy 多边形内切圆圆心y坐标, h) I/ h7 T, ^, _5 p; ^
- ;plgnum 多边形边数( M3 C `* b0 T, G4 t9 [
- ;plgradius 多边形内切圆半径' G, M6 f! E8 C7 I
- (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)# e# u9 _3 z! H% _ @6 g7 s- |
- (setq plgnum (getint "请输入绘制的正多边形边数："))
1 ^" ?7 h1 |3 A4 F+ Y9 L8 O+ a2 D - (setq plgradius (getint "请输入绘制的正多边形内切圆半径："))- A7 T8 g$ Q& q4 s- N4 _, v
- (setq basepoint (list 0 0))
7 B' D, F, B; u$ ?- U4 ] - (setq baseradius 4)9 c0 n- D* A2 z! f3 Q
- (command "circle" basepoint baseradius)/ x( c% I5 q& |5 U
- (setq pointx -4.0 step 0.2)' c0 v/ a. O/ t; h
- (while (< pointx 4.0) {! n+ X5 O8 K) ]0 x( l! F' b* B
- (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx)))) s2 ?0 g2 h9 w- i/ O2 T; Q
- (setq cenpoint (list pointx pointy))9 s- [ J9 V4 e% ^ Q& l
- (command "polygon" plgnum cenpoint "i" plgradius)0 b% d& l* e7 W0 L q- v* m/ d
- (setq pointx (+ pointx step))4 n+ F% c3 r* o, P
- )# Y; a5 o' F# R5 q; ?" w/ K
- (prompt "draw polygon over!")
6 ]9 f6 w: c* }) L& z* W; s - )
' I- L' g4 U \! x* Z; S
0 v; d* E) A; v运行输入多边形边数：5
; z! \. o& d6 Z' O7 ^) J+ ]7 r运行输入多边形内切圆半径：2
; f( N2 A* b Q: U# t) w# m4 V5 y2 v; X) {. p# G( |
效果图如下：
, a, K0 E- V8 }
' l6 v# H0 T" _0 y: p
W' Y9 {# B7 G8 @/ Z1 [1 C/ p
我希望的效果是沿着外面的圆周绘出N个五边形，这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。 |
|
发表于 2012-3-21 14:46:03
楼主
发表于 2012-3-22 13:22:16