cad中lisp怎样用

加载应用程序---加载你的lisp文件

同时，有用的lisp程序可以设置为自动加载：

加载应用程序---启动组---添加你的lisp文件

这样，新打开的cad窗口都会加载这些lisp

！

AutoCAD的二次开发主要涉及以下内容：（1）编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件，以及一些DCL文件。（2）建立符合自己要求的菜单文件，一般可在AutoCAD原菜单文件内添加自己的内容，对于AutoCAD2000版本还可增加部分菜单文件，然后经交互方式加入到系统中去。（3）在系统的ACADLSP或类似文件中加入某些内容以便进行各种初始化 *** 作，如在启动时立即装入一些文件等。（4）通过系统对话框设置某些路径。这些 *** 作在程序开发成功后向其它AutoCAD系统上安装应用，特别是需要大批安装时，需要进行很多文件检索、内容增删、子目录创建、文件拷贝、系统设置等繁琐工作，如能令上述工作全部自动进行，使整个二次开发程序在无人干预的情况下嵌入系统，将大大提高工作效率。

AutoCAD荣登全球绘图软件的龙头宝座，主要是因为它具有开放的体系结构。它允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求。AutoCAD第一版于1982年11月由AutoDESK公司推出，目前大家广泛使用的是AutoCAD2000或2002，最新版本是AutoCAD2004，其二次开发语言及工具也在不断地涌现

1AutoLISP

AutoLISP的全名是LISTProcessingLanguage，她出现于1985年推出的AutoCADR218中，是一种嵌入在AutoCAD内部的编程语言，是LISP原版的一个子集，她一直是低版本AutoCAD的首选编程语言。它是一种表处理语言，是被解释执行的，任何一个语句键入后就能马上执行，它对于交互式的程序开发非常方便。其缺点是继承了LISP语言的编程规则而导致繁多的括号。

3ADS

ADS的全名是AutoCADDevelopmentSystem，它是AutoCAD的C语言开发系统，ADS本质上是一组可以用C语言编写AutoCAD应用程序的头文件和目标库，它直接利用用户熟悉的各种流行的C语言编译器，将应用程序编译成可执行的文件在AutoCAD环境下运行，这种可以在AutoCAD环境中直接运行的可执行文件叫做ADS应用程序。ADS由于其速度快，又采用结构化的编程体系，因而很适合于高强度的数据处理，如二次开发的机械设计CAD、工程分析CAD、建筑结构CAD、土木工程CAD、化学工程CAD、电气工程CAD等。

4ObjectARX

ObjectARX是一种崭新的开发AutoCAD应用程序的工具，她以C++为编程语言，采用先进的面向对象的编程原理，提供可与AutoCAD直接交互的开发环境，能使用户方便快捷地开发出高效简洁的AutoCAD应用程序。ObjectARX并没有包含在AutoCAD中，可在AutoDESK公司网站中去下载，其最新版本是ObjectARXforAutoCAD2000，它能够对AutoCAD的所有事务进行完整的、先进的、面向对象的设计与开发，并且开发的应用程序速度更快、集成度更高、稳定性更强。ObjectARX从本质上讲，是一种特定的C++编程环境，她包括一组动态链接库（DLL），这些库与AutoCAD在同一地址空间运行并能直接利用AutoCAD核心数据结构和代码，库中包含一组通用工具，使得二次开发者可以充分利用AutoCAD的开放结构，直接访问AutoCAD数据库结构、图形系统以及CAD几何造型核心，以便能在运行期间实时扩展AutoCAD的功能，创建能全面享受AutoCAD固有命令的新命令。ObjectARX的核心是两组关键的API，即AcDb(AutoCAD数据库)和AcEd(AutoCAD编译器)，另外还有其它的一些重要库组件，如AcRX(AutoCAD实时扩展)、AcGi(AutoCAD图形接口)、AcGe(AutoCAD几何库)、ADSRX(AutoCAD开发系统实时扩展）。ObjectARX还可以按需要加载应用程序；使用ObjectARX进行应用开发还可以在同一水平上与Windows系统集成，并与其它Windows应用程序实现交互 *** 作。

5VisualLISP

VisualLISP已经被完整地集成到AutoCAD2000中，她为开发者提供了崭新的、增强的集成开发环境，一改过去在AutoCAD中内嵌AtuoLISP运行引擎的机制，这样开发者可以直接使用AutoCAD中的对象和反应器，进行更底层的开发。其特点为自身是AutoCAD2000中默认的代码编辑工具；用它开发AutoLISP程序的时间被大大地缩短，原始代码能被保密，以防盗版和被更改；能帮助大家使用ActiveX对象及其事件；使用了流行的有色代码编辑器和完善的调试工具，使大家很容易创建和分析LISP程序的运行情况。在VisualLISP中新增了一些函数：如基于AutoLISP的ActiveX/COM自动化 *** 作接口；用于执行基于AutoCAD内部事件的LISP程序的对象反应器；新增了能够对 *** 作系统文件进行 *** 作的函数。

6VBA

VBA即Mcrosoftoffice中的VisualBasicforApplications，它被集成到AutoCAD2000中。VBA为开发者提供了一种新的选择，也为用户访问AutoCAD2000中丰富的技术框架打开一条新的通道。VBA和AutoCAD2000中强大的ActiveX自动化对象模型的结合，代表了一种新型的定制AutoCAD的模式构架。通过VBA，我们可以 *** 作AutoCAD，控制ActiveX和其它一些应用程序，使之相互之间发生互易活动。

(defun C:HuaHU ( / #k1 #k2 #os1 #os2 &k1 &k2 &kw1 &kw2 @p1 @p2 ang1 ang2 p1 p2 p3 p5 tc1)

 (setvar "cmdecho" 0)

 (setvar "blipmode" 0)

 (setvar "dimzin" 0)

 (setq #os1 (getvar "osmode"));取得捕捉设置

 (setq #os2 (getvar "Clayer"));取得图层设置

 (princ "\n请选择要修改的直线")

 (setq &kw1 (ssget '((0  "LINE"))));框选直线

 (if (/= &kw1 nil);如果有选择了

  (progn;那么

   (setvar "osmode" 0);关闭捕捉

   (setq &k1 (ssname &kw1 0));取得一个对象

   (while &k1;循环选择

    (setq &kw1 (ssdel &k1 &kw1);

          #k1 (entget &k1);取得这个对象的属性列表

          @p1 (cdr (assoc 10 #k1));取得直线起点

          @p2 (cdr (assoc 11 #k1));取得直线端点

          TC1 (cdr (assoc 8 #k1));取得直线图层

          &kw2 (ssget "f" (list @p1 @p2) '((0  "LINE")));搜索另一条直线

    )

    (if (/= &kw2 nil);如果能够搜索到

     (progn;那么

      (setq &kw2 (ssadd &k1 &kw2)

            &kw2 (ssdel &k1 &kw2)

      );对对象进行分析

      (if (> (sslength &kw2) 0);如果搜索到了直线

       (progn

        (setvar "Clayer" TC1);改变图层为直线图层

        (setq &k2 (ssname &kw2 0));提取一个对象

        (setq #k2 (entget &k2);提取属性

              p1 (cdr (assoc 10 #k2));取得起点

              p2 (cdr (assoc 11 #k2));取得端点

              p5 (inters @p1 @p2 p1 p2);取得交点

        )

        (if (/= p5 nil);如果有交点

         (progn

          (entdel &k1);删除原来的直线

          (setq ang1 (angle p5 @p1);计算弧角度

                ang2 (+ ang1 ( pi 05));计算弧垂直角度

                p1 (polar p5 ang1 25);圆弧起点离交点25

                p2 (polar p5 ang1 -25);圆弧端点离交点25

                p3 (polar p5 ang2 -25);圆弧高度25

          )

          (command "line" @p1 p1 "");绘制起点与弧起点直线

          (command "Line" p2 @p2 "");绘制弧端点到端点直线

          (command "ARC" p1 p3 p2);绘制弧

         )

        )

       )

      )

     )

    )

    (setq &k1 (ssname &kw1 0));提取下一个对象

   );结束动作

   (setvar "osmode" #os1);还原捕捉设置

   (setvar "Clayer" #os2);还原图层设置

  )

 )

 (princ);沉默结束程序

);复制到记事本，以lsp为后缀命名，autoLISP加载了就可以使用,命令为HUAHU,自己修改命令

以上就是关于cad中lisp怎样用全部的内容，包括:cad中lisp怎样用、cadlisp二次开发实例、cad lisp程序 编写 当两条线交叉在一起 其中一个以半圆或者弧“跳过”另一条等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！