QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2394|回复: 2
收起左侧

[已答复] 关于沿着一个圆周画多边形的问题

[复制链接]
发表于 2012-3-21 14:46:03 | 显示全部楼层 |阅读模式 来自: 中国福建泉州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
. ^+ C1 l4 O9 G+ S; c) t- c+ t- x5 t. T# ^1 I. a) M
我想绘制一个沿着圆周移动的多边形,自己写了个lsp,但是运行就是没有出现效果.
9 J6 U3 y5 x& U& D我写的lsp代码如下,运行结果如图所示,请问哪里出问题了?
# H; m# R0 E% D( u% k) p  c6 e
  1. ;绘制沿圆周移动的多边形
    ) e, E) x  j$ I9 R
  2. ;basepoint 基准圆心
    9 s% ]/ f( m* w# I. |) _1 }
  3. ;baseradius 基准圆半径
    - n! M8 n8 S: V% F
  4. ;cenpoint 多边形内切圆圆心
    ; k7 \. C9 e- I" M" v& x7 @4 w$ I
  5. ;pointx 多边形内切圆圆心x坐标
    3 m2 e6 w% i( d' [. `/ n: }# c
  6. ;pointy 多边形内切圆圆心y坐标) \  s6 E* ]0 @& j+ f  }; y5 s
  7. ;plgnum 多边形边数% w2 N1 f' o6 S' x0 a+ p( Y
  8. ;plgradius 多边形内切圆半径. @2 t# q/ I! Q5 s4 \4 D- w
  9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)
    & `  E2 l) z' y9 m/ \- A% E
  10.   (setq plgnum (getint "请输入绘制的正多边形边数:"))
    . I! a. @3 t/ o5 e2 n4 l" H
  11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径:"))
    ; D' f5 w( }, X
  12.   (setq basepoint (list 0 0))
    % t3 [& i' V# m/ g9 s$ |: D% S
  13.   (setq baseradius 4). s& R! ]3 G( ~: L
  14.   (command "circle" basepoint baseradius)% }6 \5 R; `- f% K" l
  15.   (setq pointx -4.0 step 0.2)& m! x  ~: Y8 K" D! e
  16.   (while (< pointx 4.0)1 }% {5 Q# O2 i: v/ z
  17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))2 Q& N1 U9 H) \5 U) V) ~# b& t
  18.     (setq cenpoint (list pointx pointy))
      z7 v, t# l0 _! A1 @3 [( x5 z
  19.     (command "polygon" plgnum cenpoint "i" plgradius)  z" i8 m5 V, q5 c1 X
  20.     (setq pointx (+ pointx step))0 G/ p4 ^  Z3 _7 K/ M3 f! ?
  21.   )
    8 H  H. J& a+ F) q+ w
  22.   (prompt "draw polygon over!")1 c  x# l+ ?; O5 L" |9 \
  23. )
    2 _  G9 t6 M& J
复制代码

6 N9 h; ~' `' T0 R运行输入多边形边数:50 v1 E+ M- B% Z0 w6 s# p! ]& z
运行输入多边形内切圆半径:2
5 k$ ?$ h% s0 e* l; z) s1 x% }3 ^1 i4 ?
效果图如下:! Z, ]" k# ~0 k5 `; f1 F' ~, b" q
d462853510497b9b91ef397b.jpg
+ h3 x2 ]) N2 S- ?% Z" @% J3 x" f* V. d$ ~0 M6 S3 W
我希望的效果是沿着外面的圆周绘出N个五边形,这个圆周就是这N个五边形内切圆的圆心的轨迹。请各位达人予以指点。
 楼主| 发表于 2012-3-21 19:35:03 | 显示全部楼层 来自: 中国福建泉州
怎么没有人给个解释呢?自己顶一下!
发表于 2012-3-22 13:22:16 | 显示全部楼层 来自: 中国辽宁
关掉"对象捕捉"
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表