cad怎么编写一个lisp插件，统计长度并输出在屏幕上

好课推荐：

1.CAD课程（机械/室内/建筑/全屋定制）: 点击查看

2.机械课程（CAD/UG/SW/Creo/Inventor等）: 点击查看

3.建筑课程（天正系列/SU/revit）: 点击查看

4.室内课程（CAD/SU/3dmax/酷家乐等）: 点击查看

5.平面课程（photoshop/coreldraw）: 点击查看

想要统计对象的长度，cad本身就能查询统计，但要输出到图纸中，cad本身还不具备这样的功能，需要借助第三方平台和插件。

此处介绍用lisp怎么自制这样的插件。

之前介绍过lisp的学习逻辑，本身其实就是你要解决什么，采用命令在lisp中体现出来即可。

在lisp函数中distance是测量两点之间距离的函数。因此可以通过此函数来测对象长度。

1. ( defun c : ch ()

3.   ( setq a ( getpoint " 测距第一点" ))

5.   ( setq b ( getpoint " 测距第二点" ))

7.   ( setq c ( distance a b ))   ;测量两点间距

9.   ( setq ch ( rtos c 2 0 ))   ;定义距离数值为十进制数，且无小数点

11.   ( setq ch1 ( strcat "长度：" ch "mm" )) ;输出长度

13.   ( setq ch2 ( getpoint " 屏幕单击插入点" )) ;屏幕中指定插入点

15.   ( entmake ( list ’(0 . "text") ;建立文字图元属性列表，文字，插入点，内容，字高

17.          (cons 10 ch2)

19.          (cons 11 ch2)

21.          (cons 1 ch1)

23.          ’ ( 40 . 350 )

25.          )

27.   )

29.   ( prin1 )

31. )

这个代码的意义顺下来就是：

定义快捷键名称ch。

屏幕中单击直线第一点。

屏幕中单击直线第二点。

计算两点间距。

定义间距为10进制表示，且无小数点。其中2代表十进制，0代表精度。

输出内容：长度：xxmm。

提示在屏幕中指定插入点。

插入的内容是文字对象，定义文字插入第一点第二点。定义文字内容，定义文字的高度。

结束。

运行用动图演示，直观观看。

此处代码直接在cad的lisp编辑中进行编辑的，所以直接运行的。常规操作，加载lsp插件即可，命令行输入lsp插件中定义的函数名。即可调用。

当你能一点点看懂lisp时，你就能用它实现一些小功能，逐渐添加新功能。日积月累。

（完）

CAD自学网终身会员招募 ： 点击了解详情

站长推荐 ：全套 机械 、 建筑 、 室内 、 全屋定制 、 电气设计 、 平面设计 系统学习课程， 需要点我查看

↓↓点击卡片关注 CAD自学网 ↓↓