AutoLisp获取对象长度和面积函数

最新推荐文章于 2024-04-01 14:42:52 发布
最新推荐文章于 2024-04-01 14:42:52 发布
阅读量3.4k 收藏 4
点赞数
分类专栏： AutoCAD
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/weixin_42585641/article/details/101475200
版权
(vlax-get (vlax-ename->vla-object (car (entsel))) 'Area)；获取矩形面积
(vlax-get (vlax-ename->vla-object (car (entsel))) 'Length);获取矩形长度

 

除了这，还有

(vlax-curve-getArea ent);取得面积
(vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent));取得长度

这些是不是所有的CAD版本都支持呢？？

Autolisp中获取表长度，获取\修改表元素
qyh666的博客
10-27 4836
length函数获取表长度(length '("M20" "M24" "M30"))获取第i个元素(nth i list)修改第i个元素 这里要求对象是点表。点表的形式：((1. 12) (2. 32) (8. 77))定义点表的方法：(setq c (cons 1 12)) (setq clist '((cons 1 12) (cons 8 7))获取点表中某一元素，然后替换：(setq old
cad面积累计lisp怎么用_使用AutoLISP获取或设置AutoCAD全局比例因子 | 坐倚北风
weixin_42512509的博客
12-30 1262
在使用AutoLISP进行AutoCAD的二次开发时经常需要获取或设置图纸的全局比例因子。例如，在进行尺寸标注或使用MTEXT、DTEXT命令时需要设置字体的大小，此时字体的大小需要根据图纸的绘图比例进行缩放，为了获取图纸的缩放比例就需要获取全局比例因子。存储全局比例因子的AutoCAD系统变量为DIMSCALE ，可使用getvar命令获取AutoCAD系统变量的值：(setq mscale (...
CAD lisp 自动计算面积
11-01
CAD lisp 自动计算面积CAD lisp 自动计算面积CAD lisp 自动计算面积CAD lisp 自动计算面积
autolisp批量统计多段线的长度总和
04-14
autocad多个多段线的长度只能单个的li命令查看然后自己累加，这个程序支持批量选择，然后自动累加。
autolisp统计各种线的长度和
ayh423的专栏
02-01 676
【代码】autolisp统计各种线的长度和。
AutoLISP自动计算封闭区域面积
weixin_33973600的博客
03-29 1871
AutoLISP自动计算封闭区域面积，代码如下。 (defun c:test()   (setvar "cmdecho" 0)   (setq pt (getpoint "\n选取点："))   (while pt     (setvar  "cecolor" "1")     (command "bpoly" pt "")
lisp调用qleader端点_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
weixin_39586353的博客
12-22 2163
本帖最后由 自贡黄明儒 于 2013-11-11 12:57 编辑;;各位，把你们收藏都拿出秀一秀呀，放在箱底会生霉的;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 2012.9.20;;有人说,抄一个人的叫偷,抄多个人的叫做研究,如果这种说话真的成立的话,那么我是在进行研究;;1 [功能] 检查加载vlisp扩展;;2常数(lisp编辑器在输出局部变量时,带*的会排...
AutoCAD Lisp程序100例.rar
08-12
例如，你可以编写程序来读取、修改或分析图形中的对象属性，如长度、角度、颜色等，或者进行几何计算，如距离、面积和体积的测量。 6. 图形交互：Lisp可以实现与用户交互，通过对话框获取输入或显示结果。这在创建...
AutoLISP编程教程：深入学习与实践
AutoLISP具有大量的内置函数和命令，用于访问和修改AutoCAD中的对象和属性。例如，创建和编辑线条、圆、多边形和其他几何形状；查询对象的属性（如长度、面积、颜色等）；以及创建用户自定义的命令和对话框。 5. ...
统计周长，lisp
最新发布
gahzlly的博客
04-01 558
(setq ss (car (entsel "请选择要查询的图元：")))(Setq ZC (Vlax-Get ssob 'Length));
CAD lisp 计算总长度的程序
11-01
CAD lisp 计算总长度的程序CAD lisp 计算总长度的程序CAD lisp 计算总长度的程序CAD lisp 计算总长度的程序
dda.rar_cad dda有什么用_cad中的dda用途_lisp_封闭面积_房屋多义线
09-19
在这个上下文中，"dda.LSP"可能是一个LISP程序或函数，实现了自动标注面积和周长的功能。用户只需加载这个LISP文件到CAD环境中，就可以调用其中的命令来处理多义线对象。 在LISP程序中，可能包含了以下步骤： 1. **...
lisp沿线段方向标注多一线长度_求多段线图形的面积 长度标注 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
weixin_39948210的博客
12-21 678
;;; 框选封闭区域面积到excel by:langjs;;; ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝(defun c:qq (/ d ent f i lst m2 obj pt ss txt x y)(setq TextHeight (getdist "\n输入标注文字高度:"))(defun maketext (txt pt) ; 生成文字子函数(entmake (...
AutoLISP查询直线的相关属性
weixin_34277853的博客
04-11 926
AutoLISP查询直线的相关属性，得到直线的起点、终点、长度和角度，代码如下。 (defun c:lppt ()     (setq ss (car (entsel "\n请选择所要查询的直线：")))     (setq ssob (vlax-ename->vla-object ss))     (Setq len (Vlax-Get ssob 'Le...
cad边长提取lisp_cad.net 像lisp一样获取ldata
weixin_39556590的博客
01-12 273
[DllImport("accore.dll", CallingConvention =CallingConvention.Cdecl)]static externIntPtr acdbEntGet(AdsName objName);[DllImport("accore.dll", CallingConvention =CallingConvention.Cdecl)]static externI...
AutoLisp 获取对象最大外形
u014202847的博客
06-07 519
源地址：http://huojibk.com/2021/11/1057.html。《伙计百科》版权所有。
lisp 图元 天正 自定义_如何得到所选图元的最大外形? - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
weixin_39781594的博客
01-12 980
[code="lisp];得到最大外形 by weltion(defun c:getboundary(/ ACADAPP ACADDOC ACADSPC BDOBJ BLENT BLNAME BLOBJ DST HENT HOBJ HPT LENT LPT MAXAREA MAXOBJ OBJ OBJA OSMODE PT0 PT1 PT2 PT3 PT4 SLTSET UPT);加载vlisp函...
Lisp 操作 Excel 三例
热门推荐
yxp 的博客
07-04 1万+
一、LISP导出数据到新建Excel工作表 如果当前 Windows 系统已经打开了 Excel 程序，则导出数据较快，否则将自动创建 Excel 对象进程，处于隐藏模式。为简便起见，本函数未检测当前系统是否安装 Excel 程序。如果已经打开了包含若干工作表的工作簿文件，则本函数将会在激活的工作表后插入一个空白工作表，用来导出 lisp 数据，而不会覆盖已有工作表，导致原数据丢失。
cad 执行 autolisp 出现错误：错误: no function definition: VLAX-ENAME-＞VLA-OBJECT
瞬Future
11-15 1万+
cad执行autolisp出现错误： 错误: no function definition: VLAX-ENAME->VLA-OBJECT 解决办法： 首先执行 (vl-load-com) 然后再执行之前的lisp即可。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值