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

somezy

& a( i" A& u4 y2 N, t; H  O) A6 I) i

1. (defun c:drawcircletg ()
   6 X8 t2 M. O  @* K
2. (setq BasePoint (getpoint "请输入基准点坐标："))
   " A/ [# y( H6 @
3. (setq CircleNum (getreal "请输入欲相切的小圆数量："))
   1 `# W9 ~6 _0 A* ^) G' ~! E
4. (setq SmallCircleRad (getreal "请输入校园的半径："))
   
5. ;;;计算小圆半径对应正切轨迹大圆圆心角的弧度值
   6 t0 L! }: X3 ~0 |! W
6. (setq ang1 (/ (* pi 2) (* CircleNum 2)))
   
7. ;;;计算小圆圆心到大圆圆心的长度,即大圆的半径
   5 J; _+ x! _6 L( o; [) V6 M4 E
8. (setq BigCircleRad (/ SmallCircleRad (sin ang1)))
   1 [+ d7 W" T( q8 I/ x4 I) Y
9. ;;;计算小圆半径与大圆半径之间夹角的弧度值
   9 l3 T7 ^+ B+ Y. N& x
10. (setq ang2 (- (/ pi 2) ang1))
    
11. ;;;计算大圆圆心的坐标
    
12. (setq BigCirclePoint (polar BasePoint ang2 BigCircleRad))
    . j; r  G# F* u  Q! Q8 w7 k# p
13. ;;;画出第一个小圆
    7 V: R: p' d1 |; v# _
14. (command "circle" BasePoint SmallCircleRad)
    1 z4 I# V* ^: _, \
15. ;;;绘制环形相切圆
    
16. (command "array" (entlast) "" "p" BigCirclePoint CircleNum 360 "Y"
    , w4 L/ n: \& ^, L
17. (print)
    : D% h/ a$ L  I0 e
18. )

复制代码

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

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

woaishuijia

* B; B$ d7 h. w* _( e
/ U8 x4 E; O+ T2 P  E0 H+ Y一.第2,3,4,16行缺右括号,可能是你编辑帖子时发现表情符号,于是删除了.以后再有类似情况可以在引号和右括号之间插入一个半角空格.
% E, T% C0 W* P3 b6 G4 F$ s二.第3行

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

复制代码

应为

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

复制代码

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

bbszifeiwang

用命令画啊！

somezy

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