cad lisp地形拼合_CAD程序语言 LISP 傻瓜拼凑编程法 _ 一堂课

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 的内容

);全部程序完