autolisp统计各种线的长度和

于 2024-02-01 01:34:32 发布
阅读量598 收藏
点赞数 1
文章标签： windows linux 运维
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/ayh423/article/details/135964963
版权
该文章展示了如何使用Lisp编程语言中的函数如defunc、Alength和命令长度en来计算图形对象（如线、弧等）的总长度，通过循环和变量操作实现

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

(defun c:Alength()
    (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))
      (command "lengthen" ss "")
      (setq dd (getvar "perimeter"))
      (setq ll (+ dd ll))
      (setq i (1+ i))
  )
  (princ "所选线条总长为：")
  (princ ll)
  (princ)
)

安安0317
关注
AutoLisp函数
Junan的天堂
01-05 9843
AutoLisp函数一、数学运算功能函数    1．l（十  数值 数值…）返回：累计实数或整数数值    1．2（一  数值 数值…）返回：差值    1．3（*  数值 数值…）返回：所有数值乘积    1．4（/  数值 数值…）返回：第一个数值除以第二个以后数值的商    1．5（l十 数值）返回：数值十l    l. 6（1— 数值）返回：数值一l    l．
autolisp批量统计多段线的长度总和
04-14
autocad多个多段线的长度只能单个的li命令查看然后自己累加，这个程序支持批量选择，然后自动累加。
开发一个爆款 VS Code 插件这么简单！
腾讯技术工程
11-05 2737
本文作者：cheeqi，腾讯 PCG 开发工程师。这是一篇干货满满的介绍 vscode 插件开发的文章，先收藏在观看效果更佳。vscode 提供了哪些开放能力？从 vsc...
计算多条线段总长的lisp程序_CAD二次开发-lisp篇(1)统计长度
weixin_39761422的博客
12-06 2608
好久之前就想开个专栏好好记录自己这四五年在cad二次开发过程中的一些心得体会啦，一直忙于考证，现在闲下来慢慢持续更新。市面上由很多关于a/vlisp的入门教材了，我这里直接实战。以市面上插件中最常见的一个统计线段长度为例：(defun count_length (/ ss n obj ss sumlen avelen len lenlst) (setq ss (ssget (list '(0 ...
统计线段长度.lsp
06-13
可以快速统计全部线长，方便快捷的插件，避免了重复操作及统计工作的复杂性，大幅度的节省工作时间，且统计数据可靠，不需要担心遗漏等问题。
cad统计多线段总长度插件lsp
03-24
转载： cad插件，用于一次性统计多线段总长度，方便实用
AutoLISP自动标注圆，弧，直线，多段线长度
weixin_34198453的博客
03-29 2088
AutoLISP自动标注圆，弧，直线，多段线长度，代码如下。 (defun c:test()   (setvar "cmdecho" 0)   (setq en (entsel "\n选取圆、线、弧、多义线计算长度："))   (while en     (setq en (car en))     (command "lengthen" e...
收集和整理的lisp源码.rar_autolisp_lisp源码_meatgcl_togetherrqr_绘制多线
09-25
标题中的“收集和整理的lisp源码.rar”表明这是一份包含AutoLISP语言编程的源代码集合，主要用于AutoCAD软件的扩展功能。AutoLISP是为AutoCAD设计的一种专用编程语言，它基于LISP语言，使得用户可以编写自定义程序来...
CAD统计线长LISP
03-18
统计CAD线长的LISP，快捷键LL。使用方法：CAD中工具-加载LISP-添加始终信任；框选线条，在命令栏输入快捷键LL，即可显示所框选的线段的总长度。
统计长度_lispcad统计长度_
10-03
LISP程序需要检查这些对象的类型，确保只有具有长度属性的图元（如线和圆弧）才被计算在内。 3. **长度获取**：对于每一种图元类型，都有对应的函数来获取其长度。例如，`len`函数可以获取直线的长度，而`pdist`...
CAD计算线段长度的LISP程序
10-08
可以计算图面中所有线段的长度！ ;;;----------------------------------------------------- ;;;程序名：ll.LSP ;;;功 能：计算线段和多义线的长度 ;;;-----------------------------------------------------
CAD统计线长插件LISP程序
10-11
挺好用的线长统计工具
计算总长插件
11-03
由于在Cad中没有连续测量线段长度的命令，多数人都是利用查询直 线命令，将线段一段一段的测量再通过计算器相加，很是麻烦，现介 绍两种更为简单实用的多线段测量方法。
AutoLISP从入门到精通初级教程(新手必备）
08-31
《AutoLISP从入门到精通初级教程》新手学习AutoCAD二次开发必备材料
AutoLisp获取对象长度和面积函数
泥鳅也是鱼的博客
09-26 3369
(vlax-get (vlax-ename->vla-object (car (entsel))) 'Area)；获取矩形面积 (vlax-get (vlax-ename->vla-object (car (entsel))) 'Length);获取矩形长度 除了这，还有 (vlax-curve-getArea ent);取得面积 (vlax-curve-getDis...
Autolisp：利用AuoCAD之Lisp编程案例之自动智能绘制枫叶玫瑰
热门推荐
头部AI社区如有邀博主AI主题演讲请私信—心比天高，仗剑走天涯，保持热爱，奔赴向梦想！低调，专注，谦虚，自律，反思，成长，还算比较正能量的博主，公益免费传播…内心特别想在AI界做出一些可以推进历史进程影响力的技术(兴趣使然，有点小情怀，也有点使命感呀
06-02 1万+
Autolisp：利用AuoCAD之Lisp编程案例之自动智能绘制枫叶玫瑰 目录 输出结果 实现代码 输出结果 实现代码 ;风玫瑰程序: GXFMG.LSP 1989.1. (defun dbh(a) (* pi (/ a 180.0)) ) (defun C:FMG( ) (setq pt (getpoint "风...
AutoLISP连续计算长度
weixin_34279184的博客
05-24 360
AutoLISP指定路径，计算长度，代码如下。 (defun c:test (/ pt pts dis p1)     (while (setq pt (getpoint "\n端点: "))     (if (not p1)         (setq p1 pt)     )     (setq pts (cons pt pts)) ...
天正多条线段长度lisp下载_如何快速计算cad中多条多段线的总长
weixin_30814157的博客
01-12 3479
用插件计算。很多插件都有计算长度功能，比如【天正】【超越工具集】等。autolisp代码如下：e69da5e887aa62616964757a686964616f31333361326361(defunc:TE(/&k1&kw1&ss1cd1ix)(setvar"cmdecho"0)(setvar"blipmode"0)(if(nullvlax...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值