AutoLisp演练(二)

一、自动绘制出多个等半径圆相切
  1.输入基准点baspt
  2.输入小圆半径rad
  3. 输入欲相切的圆的数量num
  4.自动绘制出多个等半径圆相切
  5. 涉及到相关变量设定为baspt、rad、num、midpt、cenpt、kk、ang1、ang2

 二、程序代码实现

三、测试及效果

               

      测试一

             

四、程序优化与注意事项

  1. setq ang1 / * pi 2* num 2可直接写为setq ang1 / pi num

  2.  (setq kk (/ rad (sin ang1))) 利用三角关系可以推算

  3.  因为ang1+ang2=pi/2 所以setq ang2 - / pi 2ang1

        或setq ang2 -* pi 0.5ang1

 4. Array命令后的七个自变量必须配合正常执行的顺序输入必须严谨而不能打乱顺序如下图

所以用command函数调用Array命令

  需要注意以下书写

  ① command函数调用AutoCAD命令一定要加双引号如“circle” “array”

  ② 复选项一定要加双引号如“L” “P” “Y”

  ③  用默认值务必要加上连续两个双引号如“”

  ④ entlast是Autolisp标准函数可抓取画面中最后完成的对象是很好用的技巧