在CAD中求出多条线段的线段总和

在cad中有时会遇到对多条线段一下求和，不用li命令一条一条相加

采用加载LISP命令进行，加载xdqh.lsp，输入命令LENON；

以下为xdqh.lsp的源代码：

;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C:LENOF (/ CURVE TLEN SS N SUMLEN) (vl-load-com)
(setq SUMLEN 0)(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) (setq N 0)
(repeat (sslength SS) (setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam CURVE
(vlax-curve-getendparam CURVE) ) )
(setq SUMLEN (+ SUMLEN TLEN))(setq N (1+ N)) )
(print (strcat "总长度: " (rtos SUMLEN 2 5)))(princ))

　　加载lisp方法：https://wenku.baidu.com/view/548a553583c4bb4cf7ecd12e.html；

参考文献：https://wenku.baidu.com/view/b969b72d7375a417866f8f5a.html

转载于:https://www.cnblogs.com/kmliangl/p/9494060.html

在CAD中求出多条线段的线段总和相关推荐

c编程：求出4#215;4矩阵中最大和最小元素值及其所在行下标和列下标，求出两条主对角线元素之和。...
//求出4×4矩阵中最大和最小元素值及其所在行下标和列下标,求出两条主对角线元素之和 #include <stdio.h> int main() {int sum=0;int max,mi ...
c语言学习-在一个三行三列的矩阵中求出数值最大的元素及其行／列下标并打印输出
在一个三行三列的矩阵中求出数值最大的元素及其行/列下标并打印输出程序流程图: 代码: #include<stdio.h> void main() {int a[3][3]; int i= ...
乡村田园风的美食账号为何能在强者如云的美食号中走出一条路？
美食一直都是抖音最容易吸粉的账号类型,参与的主播众多生存环境也相当激烈,所以出现了探店.大胃王等精准化的账号类型.(更多精彩干货请关注共众号:萤火宠) 众所周知的原因,"大胃王"& ...
R语言ggplot2可视化、在一张图中画出两条曲线（two lines in same ggplot2 graph）、使用pdf函数将ggplot2可视化图像保存到指定目录的pdf格式文件中
R语言ggplot2可视化.在一张图中画出两条曲线(two lines in same ggplot2 graph).使用pdf函数将ggplot2可视化图像保存到指定目录的pdf格式文件中目录
Matlab 散点拟合曲率,有数据点，希望得到一条拟合曲线，再求出这条曲线的曲率，求助！...
该楼层疑似违规已被系统折叠隐藏此楼查看此楼得到X,Y的数据点后,我尝试用origin7.5的analysis-fit sigmoidal功能拟合出曲线,由于方程太复杂,用公式计算很困难,我想用or ...
闪送，为何能从顺丰中杀出一条血路？
2015 年,当我们以为电商领域尘埃落定之时,拼多多从阿里.京东杀出一条血路,做出了拼团电商的千亿美金公司.而在快递配送领域,同样有这么一家公司--就在我们认为「高端有顺丰,低端有四通一达」的时候,它 ...
C语言十个数中求出平均值
思路: 1.输入10个数,使用循环,存储数字可以使用数值. 2.求10个数的和并算出平均值. 3.输出结果得使用库函数,包含头文件(#include <stdio.h>). 写代码: 1. ...
python获取信号频率和周期_从FFT中求出信号的周期
我有一个周期信号,我想找出周期. 由于存在边界效应,我首先去掉边界,通过观察第一个和最后一个极小值保持N个周期.在然后,计算FFT.在代码:import numpy as np from matp ...
G={1,2,3,4,6,8,9,12,18,24}，为整除关系,作出偏序集G，的哈斯图,令 A={2,3,4,6},在G，中求出A的上界,最大元,极大元,极小元。...
首先,我们需要将集合 G 建立成一个偏序集.这意味着,对于任意两个数 x 和 y,如果 x 为 y 的约数,那么我们就应将 x < y. 在这个偏序集中,我们可以将每个数看作一个点,如果一个数 ...
ecshop的商品列表输出中多出一条空记录
这个是ECSHOP的一个BUG, 在模板中显示商品列表的位置,加一句{if $goods}判断商品存在才显示: {foreach from=$goods_list item=goods} {if $g ...

在CAD中求出多条线段的线段总和

在CAD中求出多条线段的线段总和相关推荐

最新文章

热门文章