菜鸟求助问题——关于画多个等半径圆相切的问题

somezy · 发表于 2012-4-15 14:52:39

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

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

x

本帖最后由 somezy 于 2012-4-15 17:39 编辑

(defun c:drawcircletg (), Y' I- R& u+ Y4 S- s) r6 J$ u6 K
(setq BasePoint (getpoint "请输入基准点坐标："))
! [0 ?! m) [$ r S. F
(setq CircleNum (getreal "请输入欲相切的小圆数量："))1 t+ X: W3 r) K4 W/ W- T
(setq SmallCircleRad (getreal "请输入校园的半径："))
$ [: U7 t/ @, T$ Q
;;;计算小圆半径对应正切轨迹大圆圆心角的弧度值4 q9 U9 o5 A5 ]
(setq ang1 (/ (* pi 2) (* CircleNum 2)))
5 e3 ], X2 D5 p; B- X4 H
;;;计算小圆圆心到大圆圆心的长度,即大圆的半径
: h4 b/ s6 E0 S& H' f3 m* y( t
(setq BigCircleRad (/ SmallCircleRad (sin ang1)))
9 H3 @% _& ?$ K# S( v
;;;计算小圆半径与大圆半径之间夹角的弧度值
9 N( p" y! g$ a
(setq ang2 (- (/ pi 2) ang1))
" K* u3 m/ J, [; ]4 a6 K( x
;;;计算大圆圆心的坐标
- m7 o5 `! y' p! U) J, a
(setq BigCirclePoint (polar BasePoint ang2 BigCircleRad))
" {. F# l* ~- M: q" j" a1 x$ `
;;;画出第一个小圆
0 \7 R+ P& j: t
(command "circle" BasePoint SmallCircleRad)) B% B$ H# m: _, @' c
;;;绘制环形相切圆' h; e; h6 v P) H) a
(command "array" (entlast) "" "p" BigCirclePoint CircleNum 360 "Y"
( g5 K9 L2 _% x% F
(print)/ p) `/ J$ d$ V* Q9 {
)

复制代码

请高手指点一下，我是想画多个等半径圆相切，问题是每次执行到(command "array" (entlast) "" "p" BigCirclePoint CircleNum 360 "Y")这一句，程序就报错不执行下去了，报错结果如下：
选择对象: 找到 1 个
选择对象: 输入阵列类型 [矩形(R)/环形(P)] <P>: p
指定阵列的中心点或 [基点(B)]:
输入阵列中项目的数目: 6.000000000000000
需要 1 和 32767 之间的整数.

从报错结果看似乎是说我没有指定阵列的中心点，但是我单步执行(setq BigCirclePoint (polar BasePoint ang2 BigCircleRad))这一句是可以获取坐标的，究竟我的问题出现在什么地方？请高手指点一下，谢谢！
我想实现的效果如下图：
效果图.jpg

woaishuijia · 发表于 2012-4-15 16:21:42

本帖最后由 woaishuijia 于 2012-4-15 16:24 编辑

一.第2,3,4,16行缺右括号,可能是你编辑帖子时发现表情符号,于是删除了.以后再有类似情况可以在引号和右括号之间插入一个半角空格.
二.第3行

(setq CircleNum (getreal "请输入欲相切的小圆数量：" )

复制代码

应为

(setq CircleNum (getint "请输入欲相切的小圆数量：" )

复制代码

错误提示已经告诉你了,阵列数量必需是1~32767之间的整数,而你使用的是getreal函数,得到的是实数,数据类型不匹配.应该使用getint函数.

bbszifeiwang · 发表于 2012-4-15 17:04:38

用命令画啊！

somezy · 发表于 2012-4-15 17:37:54

感谢woaishuijia的指点，将getreal改为getint后图形可以正常显示了！

		自动登录	找回密码
密码			注册

通知

[已解决] 菜鸟求助问题——关于画多个等半径圆相切的问题

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

浏览过的版块