lisp提取多点assoc_如何用lisp程序提取选择的属性块中的length属性，并加合，最后给出结果...

最新推荐文章于 2022-06-14 22:21:10 发布
最新推荐文章于 2022-06-14 22:21:10 发布
阅读量1.2k 收藏 3
点赞数
文章标签： lisp提取多点assoc
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_33316599/article/details/113401651
版权
这是一个LISP程序，用于从指定的属性块中提取名为'length'的属性值，将这些值转换为数值并进行加总，最终输出结果。程序包括两个子函数，一个用于获取属性值列表，另一个对列表中的值进行求和操作。
摘要由CSDN通过智能技术生成

满意答案

dcebd7a0de6265b6ccae5ead692f1eab.png

sadagfasdad

推荐于 2016.01.11

(Defun C:T911 (/ lstText i sum textA tmp)

;;子函数：返回列表4102("52" "36" "48")

(Defun GetAttsFromBlk(/ lstSS ss i lstText en vn lstAttrs TagString)

(setq lstSS '((0 . "INSERT") (2 . "wdx_new_00")))

(setq ss (vl-catch-all-apply 'ssget (list lstSS)))

(cond ((or (null ss) (vl-catch-all-error-p ss)) (vl-exit-with-value 0)))

(setq i 0)

(setq lstText '())

(repeat (sslength ss)

(setq en (ssname ss i)

i (1+ i)

vn (vlax-ename->vla-object en)

lstAttrs (vlax-safeArray->list (vlax-variant-value (vla-getattributes vn)))

)

(foreach attr lstAttrs

(setq TagStr

最低0.47元/天 解锁文章
榴莲芝士五花
关注
  • 0
    点赞
  • 踩
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
lisp提取多点assoc_autolisp点对元素怎么提取
weixin_39837207的博客
12-21 1195
;这个程序将在屏幕上选取的多行文字中的数字字符转化成实数然后求和;(defunc:tsum()(setqtsum_col(ssget));取得选择集--选取多行文字(setqtsum_num(sslengthtsum_col));统计选择集中元...;这个程序将在屏幕上选取的多行文字中的数字字符转化成实数然后求和;(defun c: tsum()(setq tsum_col (ssget));取得...
cad批量页码lisp_源代码:批量改页码(加前缀)及提取属性块
weixin_39574869的博客
12-21 2518
本帖最后由 LLXXZZ 于 2011-9-4 14:58 编辑在这个网页中http://bbs.mjtd.com/thread-64566-1-1.html有哥们确实向我要了源码,可能有些兄弟确实想看代码.现在给贴出来.代码一般.没什么大不了的.但也着实让不少同仁受益.页码的排序的功能写的不好,有优化的空间,懒得改了.哥们儿根据自己的需要自己改.[code="lisp];提取属性块标记TagSt...
lisp提取多点assoc_lisp – 提取列表中的列表
weixin_40005330的博客
12-21 743
不仅有一种可能的解决方案,而且我将保持接近您的代码.由于这是家庭作业,我不会给你一个有效的答案,但我会尽量给你一些思考的东西,并给出详细的指示：尝试了解您的代码的作用以及您真正希望它执行的操作：(defun remove-all (a l)(cond ((null l) nil)((eql (car l) a) (delete a (cdr l)))(t (cons (car l) (delete...
lisp-关于mapcar、apply、assoc 列表操作
深未来技术
02-08 4004
0[2] (mapcar #'+ `(22 11 55) `(111 222 333)) (133 233 388) 0[2] (mapcar #'cdr `((22 11 55) (111 222 333))) ((11 55) (222 333)) 0[2] (apply #'append `((22 11 55) (111 222 333))) (22 11 55 ...
LISP中的基础知识
风达的专栏
06-11 1539
(quote x)返回x，我们简记为'x (atom x)当x是一个原子或者空表时返回原子t，否则返回空表()。在Lisp中我们习惯用原子t表示真，而用空表()表示假。 > (atom 'a) t > (atom '(a b c)) () > (atom '()) t (eq x y)当x和y的值相同或者同为空表时返回t，否则返回空表() > (eq 'a 'a)
AutoLisp函数大全\很全.doc
08-26
AutoLisp 函数大全是 Cad 软件中使用的编程语言，它提供了大量的内置函数，用于实现各种数学运算、逻辑判断、字符串处理、列表处理等功能。在本文档中，我们将对 AutoLisp 函数大全进行概述，包括数学运算功能函数、...
LISP函数大全分类手册
08-19
这些函数构成了AutoLISP编程的基础，理解和掌握它们能够帮助开发者编写出高效、灵活的LISP程序，处理各种计算、比较、转换和数据操作任务。通过深入学习和实践，可以进一步提升在CAD领域的编程技能。
lisp功能函数.pdf
10-09
在LISP中，函数是程序的基本组成部分，用于实现各种计算和逻辑操作。以下是对标题和描述中提到的一些LISP功能函数的详细解释： ### 一、数学运算功能函数 1. `(+ 数值 数值 ...)` - 这个函数用于执行加法操作，...
AutoLisp函数大全[借鉴].pdf
10-11
AutoLisp 函数大全 AutoLisp 函数大全是 AutoCAD 软件中的一种编程语言，用于自动完成重复的任务、自定义命令和工具栏按钮的功能。以下是 AutoLisp 函数大全的知识点总结： 数学运算功能函数 1. `l` 函数：返回...
块属性修改
05-30
块属性修改的LISP文件快捷命令test
autolisp函数大全.doc
08-19
.autolisp 函数大全 Autolisp 是一种基于 Lisp programming language 的脚本语言，常用于AutoCAD 等 CAD 软件中。下面是常用的 Autolisp 函数大全，包括数学运算、检验与逻辑运算、转换运算和列表处理功能函数。 ...
Common Lisp – assoc 函数的示例代码
weixin_30352191的博客
05-06 1215
1 ;;ASSOC function searches supplied list for cons cell that have item as car part. Return value is the cell with key-value pair which key matched testing conditions, otherwise NIL. Default compari...
结构大样lisp_Common Lisp 数据结构实现
weixin_39643336的博客
12-21 273
特殊符号宏：#类似于其他语言里面的反斜杠转义字符，该符号用于标记特殊意义的部分。#\ : 紧跟字符字符或者字符的名称，如 #\a#' : 紧跟函数名，如 #'equal = function EQUAL#b、#o、#x : 表示二进制、八进制、十六进制# : 紧跟的是一个向量 vector存储表示Lisp 中一个cons cell 表示一个有两个指针的内存区域。通常可以如下表示Cons cell图...
lisp 练习取得对象属性
转眼之间 一路有你
06-07 5277
函数entsel、car、cdr、entget (defun c:tt () (setq en1 (entsel)) ) 返回 对象名称 选点坐标 (car en1) 返回列表的第一个元素 (cadr en1) 返回列表的第二个元素 (setq en1 (entsel)) (defun c:tt () (setq en1(entsel)) (setq ......
lisp函数知识大全
u012938194的专栏
03-27 8567
AutoLISP提供了大量的预定义函数。若将函数名（大小写都可）作为表中的第一个元素函数变元（若有的话）作为表中后面的元素，就可以调用那个函数。本章按字母顺序列出AutoLISP所有基本函数。用户会发现其中许多函数都是标准函数，可在LISP程序设计语言中找到。还有一些函数是由 AutoCAD提供的且专用于交互图形环境。 1 FLATLAND 系统变量－－与老版本的兼容性     AutoL
AutoLisp从入门到放弃（六）
qq_43462920的博客
06-14 5568
查看、修改图元的属性信息
CAD块属性提取
热门推荐
Aerstiin的专栏
09-29 1万+
安排的任务早早的完成了上级又都出差了，别人的活也没发帮忙上班就只好写点小程序简化工作流程别看程序不大内容还挺多物料统计辅助程序： 程序介绍：1.       提取AutoCAD图像中的物料信息CADRead.exe 2.       数据库BOM.mdb 3.       写入标记块CADWrite.exe  使用方法：首先要配合AutoCA
xxxxdfgfdgfdgd
最新发布
07-14
xxxxdfgfdgfdgd
lisp 提取cad 块中所有属性
08-01
Lisp（LISt Processing）是一种编程语言，常被用于自动化CAD软件的开发与扩展。对于提取CAD块中的所有属性，可以使用Lisp编写程序来完成。 在CAD软件中，块（Block）是一种重要的元素，它可以将多个实体对象组合成一个整体，并赋予其唯一的标识符和属性。块可以包含属性，这些属性可以用于进一步描述和标识块。 要提取CAD块中的所有属性，可以按照以下步骤进行操作： 1. 在Lisp中，使用`(ssget)`函数选择所有的块对象，将其保存在一个选择集中。 2. 遍历选择集，使用`(entget)`函数逐个获取每个块对象的详细信息。 3. 对于每个块对象，使用`(entget)`函数获取其属性列表。 4. 遍历属性列表，使用`(cdr)`函数逐个提取每个属性的键值对。 5. 将提取到的属性信息进行处理和保存，可以输出到控制台或者写入文件中。 下面是一个简单的示例代码，用于在AutoCAD软件中提取CAD块中的所有属性： ```lisp (defun extract-block-attributes () (setq block-ss (ssget "X" '((0 . "INSERT")))) (setq block-count (sslength block-ss)) (setq attribute-list '()) (repeat block-count (setq block (ssname block-ss (setq i (1+ i)))) (setq attribute-ss (ssget "X" (list '(0 . "ATTRIB") (cons 2 (cdr (assoc 2 (entget block))))))) (setq attribute-count (sslength attribute-ss)) (setq j 0) (repeat attribute-count (setq attribute (ssname attribute-ss (setq j (1+ j)))) (setq attribute-data (entget attribute)) (setq attribute-list (append attribute-list (list attribute-data))) ) ) (setq attribute-count (length attribute-list)) (repeat attribute-count (setq attribute-data (nth (setq i (1+ i)) attribute-list)) (princ (cdr (assoc 2 attribute-data))) ; 输出属性名称 (princ ": ") (princ (cdr (assoc 1 attribute-data))) ; 输出属性值 (princ) ; 换行 ) ) ``` 上述代码通过`(ssget)`函数选择所有块对象，然后使用`(ssget)`函数再次选择对应的属性对象。通过遍历属性列表，再分别提取属性的键名和键值，并逐个输出。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值