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

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

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

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

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

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

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

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

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

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

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

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

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

(DEFUN C:TT ( / ss ff ss1 en pt x y)

 (setvar "cmdecho" 0)

 (setvar "blipmode" 0)

 (setvar "dimzin" 0)

 (vl-load-com)加载vlax扩展函数

 (setq ss (ssget '((0 . "point"))) n 0)请选择点

 (if (/= ss nil)

  (progn

   (setq ff (open "d://文字到TXT.txt" "w") ss1 '())在D盘建立记事本《文字到TXT》这里可以查看内容

   (repeat (sslength ss)循环选择

    (setq en (ssname ss n) n (+ n 1)提取图元

          pt (cdr (assoc 10 (entget en)))取得点坐标

          ss1 (cons pt ss1)加入表

    )

   )

   (setq ss1 (vl-sort ss1 (function (lambda (x y)(< (car x) (car y))))))X排序从左到右

   (setq ss1 (vl-sort ss1 (function (lambda (x y)(> (cadr x) (cadr y))))))Y排序从上到下

   (foreach en ss1函数遍历表，将其中每一个元素依次赋给变量，并对每一个表达式求值

    (setq x (rtos (car en) 2 5))

    (setq y (rtos (cadr en)2 5))取得Y坐标精确到小数点后5位

    (princ x ff)

    (princ "," ff)

    (princ y ff)

    (princ "\n" ff)

   )

   (close ff)

  )

 )

 (princ)

)

这个TT命令修改了一下，可以对点坐标排序，保存到D盘《文字到TXT》记事本里面；实际上坐标需要X=；Y=这个标记的，这个标记表示大地坐标；大地坐标X=cad里面的y坐标，同样的Y=cad里面的x坐标，所以不能够随便修改文字格式。

其实很简单的，不用三楼那么麻烦的。

(defun c:pt()

(setvar "cmdecho" 0)

(while (setq pt1 (getpoint "\n请指定点位置:"))

(setq point_x (rtos (car pt1) 2 2))

(setq point_y (rtos (cadr pt1) 2 2))

(setq point_z (rtos (caddr pt1) 2 2))

(command "_text" pt1 "" "" (strcat "(" point_x "," point_y "," point_z ")"))

)

(princ)

)

效果如图所示

---