如何在中望CAD中加载LISP程序

1、首先请加载lisp程序，加载方法如下：

在菜单栏选择 工具——加载应用程序——添加，选择lisp程序然后加载，然后选择添加到启动组。(其他lisp使加载方式相同)

2、然后是添加自定义栏以及图标，方法如下（以坐标标注为例，其余 *** 作相同）：

在软件右上方空白区右键选择自定义——工具栏——新建——（修改名称）确定（以下 *** 作均是在不关闭自定义前提下的 *** 作）。

此时在左侧图层工具栏下面会出现一个空白工具栏，

然后在命令里面，随便找一个图标（例如新建、打开等等以下以新建为例）拖放入新建的空白工具栏里，右键点击拖放在空白工具栏里的图标，选修改。

在d出对话框里有名称、命令、说明三项可以修改。

其中将命令“^C^C_new” 修改为“^C^C_zbbz”，将名称修改为“坐标标注”，然后确定。再次右键点击此图标，选择编辑按钮图像，工具一栏最后一个命令图标Import From File。

选择坐标标注所对应的图标打开然后确定。

3、在使用了自定义工具栏后可能需要将这些工具栏导出给其他同事使用，这是就需要将工具栏导出，导出和导入方法如下：

导出:在自定义完工具栏后，选择工具——自定义——工具栏然后导出，在选项框里将刚才自定义的勾选，其他象不选择，否则会出现重复，然后确定，选择XML工具条文件（xml）格式保存。

导入：加载工具栏文件：选择工具——自定义——工具栏，选择导入，文件类型选择XML工具条文件（xml），选择然后打开。

方法/步骤

创建一个cad，新建一个工程，如下图所示。

在lisp编辑器中编写一下程序，程序的作用为计算线段总长度，并选择另存为位置，保存文件lsp文件。

使用cad加载lsp文件，选择lsp文件位置。

在命令栏点击l，用cad绘制几条线段，如下图所示。

在命令栏输入ll，选择所有线段，则在图下计算并显示出了所有线段的总长度，如下图所示。

用lisp的代码为(defun c:LL ()

(setvar "cmdecho" 1)

(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))

(setq i 0)

(setq ll 0)

(repeat (sslength en)

(setq ss (ssname en i))

(setq endata (entget ss))

(command "lengthen" ss "")

(setq dd (getvar "perimeter"))

(setq ll (+ dd ll))

(setq i (1+ i))

)

(princ "所选线条总长为：")(princ ll)(princ)

)

---