QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑 5 I( D; b0 e8 g" D8 Y9 I) X3 S
- N, n- |3 @7 j8 a, v4 J) U
我想绘制一个沿着圆周移动的多边形,自己写了个lsp,但是运行就是没有出现效果.9 _/ T3 K8 J" J, q, _  E* k
我写的lsp代码如下,运行结果如图所示,请问哪里出问题了?  Y: ^# w' q, Y4 [7 o' w( Q' A
  1. ;绘制沿圆周移动的多边形
    * F4 U& n* M7 {" x+ A: ^
  2. ;basepoint 基准圆心1 M) ?  c; Z, `' K8 P
  3. ;baseradius 基准圆半径
    " b; Q) l: T8 t" j4 P4 V# Q
  4. ;cenpoint 多边形内切圆圆心
    . i# W% u* W/ [8 Z( G
  5. ;pointx 多边形内切圆圆心x坐标
    0 [! Z# p5 ~6 p+ W9 W
  6. ;pointy 多边形内切圆圆心y坐标; F  _' [  ~7 g0 @# e( v" ^9 k
  7. ;plgnum 多边形边数, W' x( \. y3 \% H$ g; s  `5 `6 z8 t
  8. ;plgradius 多边形内切圆半径) `7 U' v2 M$ e9 M7 u
  9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)) j2 g: i  R% A+ x2 o
  10.   (setq plgnum (getint "请输入绘制的正多边形边数:"))
    " C+ P0 Q: X7 J6 e' ]8 D0 M# _
  11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径:"))
    4 ^/ ^0 f4 ~5 v8 {" m4 z! |
  12.   (setq basepoint (list 0 0))
    # t9 T" m3 a$ Q0 F7 ^% t; a2 p
  13.   (setq baseradius 4)
    : I* k& Y$ q" D2 a- k9 r8 w' Y
  14.   (command "circle" basepoint baseradius)
    ( l  S0 _2 \$ m
  15.   (setq pointx -4.0 step 0.2)9 P/ C) i; _. G, l& H
  16.   (while (< pointx 4.0)  b4 _/ k8 v1 T/ P# w; c
  17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))
    . B1 N' J2 V) Q; ]1 h
  18.     (setq cenpoint (list pointx pointy))
    0 |& x! f) B0 C4 `! y# `* N" e/ C
  19.     (command "polygon" plgnum cenpoint "i" plgradius)
    1 N1 M9 e# u( u" E9 y) [, j0 D
  20.     (setq pointx (+ pointx step))
    6 P, L1 ~0 u3 M; D$ x
  21.   )
    9 F1 s' _, j. a3 d' y! s6 l. `
  22.   (prompt "draw polygon over!")! }1 A- W& H: u& o# O: w/ G
  23. )' {, ~0 c% G  e( U4 p, a
复制代码

: B; }9 ?! p2 w1 r3 J运行输入多边形边数:5
$ G2 Y: v+ ]1 m1 G2 U运行输入多边形内切圆半径:2
( ~* h$ G( A- C4 d! e& U8 s4 H% j+ k. U! n! M! S
效果图如下:
- j0 H+ l. |* g1 h- Z2 o d462853510497b9b91ef397b.jpg
& N- }1 o4 l* P5 x& P1 d3 G
. h8 x/ K( R/ ^' y! [2 n1 t+ K我希望的效果是沿着外面的圆周绘出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 )

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