QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
/ L' G+ n* K. F1 N1 [( J* s# W  r4 Z
我想绘制一个沿着圆周移动的多边形,自己写了个lsp,但是运行就是没有出现效果.
& x" x" g. x: T7 B我写的lsp代码如下,运行结果如图所示,请问哪里出问题了?
# Y! G7 _5 K" d: R
  1. ;绘制沿圆周移动的多边形
    9 ^: n1 V" `2 Y3 X; _5 X" S0 b5 L" E
  2. ;basepoint 基准圆心3 E& R. S8 M5 z  N0 I' f
  3. ;baseradius 基准圆半径7 X$ V5 Y. H3 N9 e9 l
  4. ;cenpoint 多边形内切圆圆心
    3 {' y' K) s$ ?3 [# u/ M- y% b2 n
  5. ;pointx 多边形内切圆圆心x坐标8 l5 H9 I/ h: Z) J  J+ K
  6. ;pointy 多边形内切圆圆心y坐标- S/ d+ Q! f/ a  r8 A
  7. ;plgnum 多边形边数. ^8 l3 p0 p* o
  8. ;plgradius 多边形内切圆半径- n- ?. l) ^; c
  9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)* ?' i4 {% ?( R3 R( i5 L/ y
  10.   (setq plgnum (getint "请输入绘制的正多边形边数:"))2 ?: \# H* x* ~5 r
  11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径:"))
    8 \5 @* \5 d" J: X" m7 b" T
  12.   (setq basepoint (list 0 0))9 H2 L2 f; o. B0 o. t  [
  13.   (setq baseradius 4)$ v0 n7 @) |! o# l* H
  14.   (command "circle" basepoint baseradius)
    ! v0 P/ ^/ n: b0 t% ~" J! s
  15.   (setq pointx -4.0 step 0.2)
    9 I) c2 Y0 W  }/ Q* y
  16.   (while (< pointx 4.0)1 R2 M% C1 S) W0 M, p& R
  17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
    ; U1 B4 S3 N& d$ ?) C: B7 g6 l
  18.     (setq cenpoint (list pointx pointy))" v/ ?6 B& n+ F( v0 M& V  i8 e# a
  19.     (command "polygon" plgnum cenpoint "i" plgradius)
    3 B0 b+ k8 E- _1 Z& T0 _  ~; D  F
  20.     (setq pointx (+ pointx step))
    5 V: X4 B8 b  j3 |. }0 T! z- B8 G
  21.   )* p, x# t3 h# l6 X3 w. W
  22.   (prompt "draw polygon over!")
    " @% Q6 H& `+ j6 h) `2 J6 `; |
  23. )8 v1 C1 k) Z5 `$ e, b: D. |
复制代码
3 N6 }% B2 }9 [& B& v( L" ]
运行输入多边形边数:5
: H" ]$ x+ S, E; G8 _运行输入多边形内切圆半径:2
' M: [) g8 P2 A3 i- p& P+ v
" W: w& J( |, T7 S# d6 f5 m效果图如下:5 J' J9 Q% k3 X5 W% b
d462853510497b9b91ef397b.jpg
) C/ D6 L$ U- ~6 x& g9 h; b" T1 Z+ `6 A& m7 x. e
我希望的效果是沿着外面的圆周绘出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 )

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