CAD中怎么lisp统计多段线(cad如何统计多段线长度)优质

扫码添加渲大师小管家，免费领取渲染插件、素材、模型、教程合集大礼包！

CAD是目前比较受欢迎的工程制图建模软件。在使用软件进行画图时。常会用到多段线。例如一些墙线。窗户我们都是使用多段线来绘制的。那么CAD中怎么lisp统计多段线？小渲来告诉大家一个超简单的方法。

工具/软件

硬件型号：华为笔记本电脑MateBook 14s

系统版本：Windows7

所需软件：CAD2014

方法/步骤

第1步

打开cad软件。点击工具---autolisp-autolisp编辑器

第2步

打开autolisp编辑器。点击文件新建一个窗口。

第3步

将如下代码粘贴到新建的窗口

(defun c:tj(/ ss tlen obj k l)

(setvar "cmdecho" 0)

(if (setq ss (ssget))

(progn

(vl-load-com)

(setq l (sslength ss) k 0 tlen 0 )

(repeat l

(setq ename (ssname ss k))

(setq obj (vlax-ename->vla-object ename))

(if (= (cdr (assoc 0 (entget ename))) "MLINE")

(setq tlen (+ tlen (ml-length ename)))

(setq tlen (+ tlen (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))

)

(setq k (1+ k))

)

(princ (strcat "\n共选择 " (itoa l) " 个对象 | 总长度: " (rtos tlen 2 0)))

;(command "text" (getpoint "\n选取文字插入点") "" "" (rtos tlen 2 3))

(alert (strcat "\n共选择 " (itoa l) " 个对象 | \n总长度: " (rtos tlen 2 0)))

)

(princ "\n未选择对象")

)

(setvar "cmdecho" 1)

(prin1)

)

第4步

输入完成之后点击加载命令。下图问加载无误之后的截面。

第5步

加载完成后返回到在cad窗口中。输入“tj”命令按照提示操作。提示选择需要统计的对象。

第6步

选择屏幕中的两条线段。图中已经标注每条直线为5000mm为了验证程序计算的结果。

第7步

选择完成之后按回车或者空格键。命令窗口显示计算结果为：“共选择 2 条线段. 线段总长: 10000.000毫米”和图中标注的两条线段长度之和一致。计算无误。

以上关于“CAD中怎么lisp统计多段线(cad如何统计多段线长度)”的内容小渲今天就介绍到这里。希望这篇文章能够帮助到小伙伴们解决问题。如果觉得教程不详细的话。可以在本站搜索相关的教程学习哦！

以上是由资深渲染大师 小渲 整理编辑的，如果觉得对你有帮助，可以收藏或分享给身边的人