QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
2 _1 R+ K2 T/ V$ w8 I# b. o+ G8 i, F
+ D% A. h5 m( z1 a( B我想绘制一个沿着圆周移动的多边形,自己写了个lsp,但是运行就是没有出现效果.5 `3 T8 c' b' g( b5 L# l; V( q
我写的lsp代码如下,运行结果如图所示,请问哪里出问题了?5 z5 P% p$ T8 @  E, N
  1. ;绘制沿圆周移动的多边形
    3 r& Q9 }* Z7 ?- M9 t) T6 t, \
  2. ;basepoint 基准圆心6 R0 B7 Y; r  W3 ~" k, D
  3. ;baseradius 基准圆半径
    ! J5 u' R! Y# U. R& o, p) t9 ]
  4. ;cenpoint 多边形内切圆圆心# I' _; N: Y& l4 Q: ~0 D
  5. ;pointx 多边形内切圆圆心x坐标
    : Q, n  ~+ |# Q* V, C9 u5 ^/ t: J
  6. ;pointy 多边形内切圆圆心y坐标
    " o8 Q  L3 S: b2 ^6 `* E& ]
  7. ;plgnum 多边形边数: P$ ~+ L3 L3 x2 ?* z4 e
  8. ;plgradius 多边形内切圆半径+ w3 \/ u+ i6 ?- e, L! M1 P
  9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)
    2 o3 d5 j8 w, f% o- m  Z4 Z; f4 K
  10.   (setq plgnum (getint "请输入绘制的正多边形边数:"))
    + b4 Y' e- h7 c  [$ J; `
  11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径:"))- |4 r: @& r- P0 b
  12.   (setq basepoint (list 0 0)); X' T2 z5 A3 q5 D$ A
  13.   (setq baseradius 4)
    7 b" z4 ^! V- Y
  14.   (command "circle" basepoint baseradius). D. [7 y: B) d1 K7 c
  15.   (setq pointx -4.0 step 0.2)
    ' F% v' E8 y( R) \
  16.   (while (< pointx 4.0)
    " U# X) U% t4 a7 D
  17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
    ( u# ?, N+ W: X- [' \% L* g( w
  18.     (setq cenpoint (list pointx pointy))7 ]! |5 V8 X5 P7 o
  19.     (command "polygon" plgnum cenpoint "i" plgradius). H' C  W0 |5 x. [4 J; T: f% Z
  20.     (setq pointx (+ pointx step))  y2 S7 M$ I& k& }6 T
  21.   )9 T4 U/ X2 }) @5 [+ U* l: O
  22.   (prompt "draw polygon over!")
    * _9 }* e1 @% }) e
  23. )& d' L, S! D7 M# N
复制代码
& k: k& L9 L( Y. D. R& R' ^
运行输入多边形边数:5
+ J+ h7 Z$ G( ]1 b( L运行输入多边形内切圆半径:29 U. N3 s5 e+ l. ], v

9 P* h, h) o* D, u) L效果图如下:. t! S3 S( s5 U( A  e% ~. s# m
d462853510497b9b91ef397b.jpg
( H) D* X6 L0 }1 s7 |$ d: ]  w
/ b) Y. Y: A9 g6 D6 @$ u我希望的效果是沿着外面的圆周绘出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 )

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