QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 woaishuijia 于 2012-3-22 06:54 编辑
3 n4 \# t' v2 v- V6 x9 n
' f  |2 s" e, C- s6 X我想绘制一个沿着圆周移动的多边形,自己写了个lsp,但是运行就是没有出现效果.5 P2 Q6 }3 a7 c% L0 @/ y" {& l2 p
我写的lsp代码如下,运行结果如图所示,请问哪里出问题了?( R  _2 d, i! X; M, L% {4 y
  1. ;绘制沿圆周移动的多边形& \7 U4 P6 Y* Q; d
  2. ;basepoint 基准圆心2 r3 u8 l2 g# n1 }2 Z6 i
  3. ;baseradius 基准圆半径
    ) {" _0 }; S) X5 O7 e
  4. ;cenpoint 多边形内切圆圆心- H- U6 Y2 n' {6 S. X6 y" @
  5. ;pointx 多边形内切圆圆心x坐标6 |0 M* ?$ X  F4 ?# G  `" W
  6. ;pointy 多边形内切圆圆心y坐标$ N) O0 D, W" b9 X
  7. ;plgnum 多边形边数
    8 ?/ _/ {4 Z. ]. I5 K! ?% h7 ~
  8. ;plgradius 多边形内切圆半径
    4 V, K) y$ `+ N9 K
  9. (defun c:movetocircle (/ basepoint baseradius cenpoint pointx pointy plgnum plgradius)
    * J, I" b7 \9 {& k3 M7 j
  10.   (setq plgnum (getint "请输入绘制的正多边形边数:"))/ y; ^4 o1 d) l2 a) a0 e: S& K8 X
  11.   (setq plgradius (getint "请输入绘制的正多边形内切圆半径:"))
    2 J* _* `# k& [4 [7 t
  12.   (setq basepoint (list 0 0))4 N( H3 d4 r, ?9 f! ]  F" k) L
  13.   (setq baseradius 4)
    3 E& q0 D" Z- t" `
  14.   (command "circle" basepoint baseradius)% V" l* c. T, m( @0 L& N1 s/ I
  15.   (setq pointx -4.0 step 0.2)  k( o4 Q! b  F; O# l1 S$ W5 h
  16.   (while (< pointx 4.0)
    1 Z; w! H5 r7 S( Z- M- q" ~
  17.     (setq pointy (sqrt (- (* baseradius baseradius) (* pointx pointx))))" o$ U0 u6 I, I( m
  18.     (setq cenpoint (list pointx pointy))( K: r; e6 z+ V. |& T; V
  19.     (command "polygon" plgnum cenpoint "i" plgradius)
    / I0 _/ X! W9 r( N8 u
  20.     (setq pointx (+ pointx step))5 i& K. z1 w. u0 @1 M/ Z& A/ p
  21.   )
    7 U% S1 c" I% w& c
  22.   (prompt "draw polygon over!")
    6 t; q, o8 g/ S7 v  G. T
  23. )' j8 E' P% F& f( k- y  p# w. ~2 O1 Q1 v
复制代码
6 p$ L* L4 m8 R
运行输入多边形边数:5
; g6 C/ o; ~: x! L) G- x9 w' i运行输入多边形内切圆半径:2
8 A0 [, j& A% Y- C' c4 T) z( J! x
. L5 X9 @5 w& y; Q1 t% V  f, a; V效果图如下:
7 j2 r+ p! P$ ~8 }; t$ O4 P1 p d462853510497b9b91ef397b.jpg
) T5 N! {! ]0 I: k4 J
6 g: E  h; Q" k, p; C/ E5 }我希望的效果是沿着外面的圆周绘出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 )

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