您的位置:网站首页 > CAD教程 > CAD教程文章

CAD程序语言 LISP 傻瓜拼凑编程法

时间:2008-07-27 11:44:35 来源:
Auto Lisp 是Auto CAD 软件自带的一种程序语言,其编程软件已包含在Auto CAD 软件中,用’VLIDE命令即可打开进行编程。
  
  这种程序语言最方便之处是与Auto CAD完美结合,特别是在编程错误时不会导致CAD系统崩溃。学习Auto Lisp不需具备编程基础、不需会英语、不需记忆和背诵单词之类的程序函数代码,只需要会中文输入和知道想编什么样的程序,就可从现有的各类典型程序代码库中,用照葫芦画瓢的方式,加以替换和修改;用复制和粘贴的方法进行拼凑编程,这样就凑成了一个新的程序,这和滚雪球是一样,钢构CAD中的程序都是这样拼凑滚出来的。
  
  
  
  
  
以下文字是一个画圆的示范程序源代码,可将其选中复制粘贴到编程序界面中,点击加载活动编辑窗口后,在CAD命令行输入AAA即可运行该程序。
  
  
  
  ;|
  
  一个画圆的示范程序:
  
  以下黑颜色的字母可任意设定,与程序本身无关,只起个临时代号的作用
  
  以下蓝颜色的文字为程序自身的标准函数,可复制粘贴调用,不能更改也无需记忆
  
  以下粉红色的文字为中程序界面中显示的中文内容,可根据需要书写设置
  
  本个字体颜色的文字,是为便于以后理解程序而加在源代码之后的注释,其本身不参与程序运行,但有详细的注释,能为以后编写类似程序提供快速上手的作用。
  
  |;
  
  (defun C:AAA(); AAA 为自定义的程序命令名称 可随意定
  
  (SETQ R1 678);SETQ 为赋值函数,此处为将数据 678 赋予 R1 此处 678 数值可随意设定
  
  (SETQ ZR1 (rtos R1)); rtos 为将数据转换为字符 ,再赋值给 ZR1
  
  (setq p1 (getpoint "n 请点取圆中心点:")) 用光标在屏幕上指定任意一个点 赋值给 P1
  
  (command "CIRCLE" P1 R1);用画圆命令 CIRCLE 画以 P1 为圆心, R1 为半径的圆
  
  (SETQ VZ (STRCAT "你 设 置 的 圆 半 径 为 " ZR1 STRCAT 将各种文字组合成一个新的文字,并赋值给 VZ
  
  
  
   "
  
  
  
  程 序 原 来 这 么 简 单 呀 ! " ) )
  
  (alert VZ);在屏幕上显示文字 VZ 的内容
  
  );全部程序完