QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
8 M& L6 B& b3 Y" s) |( N% _% h) l, l8 \" Q; W1 s% O
我想绘制一个沿着圆周移动的多边形,自己写了个lsp,但是运行就是没有出现效果.
+ A; x, i. z& E& L; ~我写的lsp代码如下,运行结果如图所示,请问哪里出问题了?% B$ N9 t" y; Z: @+ S4 ^) [0 ]
  1. ;绘制沿圆周移动的多边形; O& f: @" X7 k* g: f: ^, Y
  2. ;basepoint 基准圆心
    5 @. r' i2 }2 t" U2 m
  3. ;baseradius 基准圆半径4 ?0 T" b: F- u& f4 @6 s2 o9 `
  4. ;cenpoint 多边形内切圆圆心
    , x; C6 T! r- `6 I
  5. ;pointx 多边形内切圆圆心x坐标
    : }" U9 |6 |8 j4 q6 }, E! T; m, h
  6. ;pointy 多边形内切圆圆心y坐标
    ) x- k7 c% q1 K/ R& I, l
  7. ;plgnum 多边形边数
    : a; l3 E5 C  I, a( q0 D8 {# N0 i
  8. ;plgradius 多边形内切圆半径
    2 n: c& d  [) p1 `0 Y  R6 x3 l
  9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius). }: d" N3 g+ [4 d* N; s1 S
  10.   (setq plgnum (getint "请输入绘制的正多边形边数:"))
    6 ~9 ]% O+ h' V0 p
  11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径:"))* Q# H1 D% M+ H+ y# g
  12.   (setq basepoint (list 0 0))9 H. y5 Q, @" W
  13.   (setq baseradius 4)4 }% ^- a# \% z$ |. a
  14.   (command "circle" basepoint baseradius)
    5 C- C  O2 @( x
  15.   (setq pointx -4.0 step 0.2)
    0 o" q6 ?% j% H! V: L2 X
  16.   (while (< pointx 4.0)2 s/ v  Z, x2 [# ~0 X8 c/ s
  17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))0 N% i: m  x, G8 I) _$ a
  18.     (setq cenpoint (list pointx pointy))
    0 L2 H/ @7 a5 k, s, _. H, w$ t
  19.     (command "polygon" plgnum cenpoint "i" plgradius)# e4 y0 T3 O' M2 m/ O. z
  20.     (setq pointx (+ pointx step))
    1 `. \: l  S2 a2 s+ X! m# l
  21.   )" C4 |6 v8 k% s1 |$ a
  22.   (prompt "draw polygon over!")3 i" h7 Q& T# r
  23. )
    & Z$ J) J9 n' G* b: l
复制代码

  y2 K% G; h7 |- t9 T. Z) Q运行输入多边形边数:53 M  G8 L9 W2 d
运行输入多边形内切圆半径:2$ R" a# a% v7 ~* z
( {- Z* |9 o. d+ j7 K* Q. V' \
效果图如下:- ?7 e/ z: g  K2 w- `
d462853510497b9b91ef397b.jpg - }! ~' {3 \* d, F$ r! }

+ s8 k4 r; S" _+ 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 )

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