lisp 练习取得对象属性

原创 已于 2022-06-18 22:45:38 修改 · 7k 阅读 · 7 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#lisp #linq #wpf

于 2019-06-07 01:19:04 首次发布
本文介绍了使用AutoCAD Lisp进行基础图形操作的方法，包括选择对象、获取对象数据和属性。通过entsel、car、cdr和entget等函数，可以实现对AutoCAD中图形对象的选择和属性读取。

函数entsel、car、cdr、entget

(defun c:tt ()
  (setq en1 (entsel))
)

返回 对象名称 选点坐标

(car en1)

返回列表的第一个元素

(cadr en1)

返回列表的第二个元素

 (setq en1 (entsel))

(defun c:tt ()
  (setq en1(entsel))
  (setq en1_data(entget (car en1)))
)

返回圆的联合属性列表

(defun c:tt ()
  (setq en1(entsel))
  (setq en1_data(entget (car en1)))
  (setq oldr(assoc 40 en1_data))
)

返回对应群码40为索引值子列表

python核心编程之开门见山，带你了解Python后的大背景
1、测试博主技术知识分享 2、pos行业知识技术分享 3、java后端技术知识分享 4、嵌入式技术知识分享 5、运维部署相关知识分享
12-02 1523
Python 是一门优雅而健壮的编程语言，它继承了传统编译语言的强大性和通用性，同时也 借鉴了简单脚本和解释语言的易用性。它可以帮你完成工作，而且一段时间以后，你还能看明 白自己写的这段代码。你会对自己如此快地学会它和它强大的功能感到十分的惊讶，更不用提 你已经完成的工作了!只有你想不到，没有 Python 做不到。
AutoLisp从入门到放弃（六）
qq_43462920的博客
06-14 7589
查看、修改图元的属性信息
【Visual Lisp】Visual Lisp属性与方法
weixin_68992719的博客
05-17 1844
Visual Lisp属性的获取、赋值和方法的执行有多种形式。然而对于初学者来讲一次性就要所有掌握显然是没有必要的，有时候每种方法都是通用的功能都同样咱们就没有必要把全部方法都记住。咱们只须要掌握经常使用的通用性最强的便可。这里方法和属性只用下面几种方式，对于方法名和属性名统一用双引号 “” ，且第一个字母大写，避免混乱。
AutoLISP查询圆的相关属性
weixin_34362991的博客
04-10 612
AutoLISP查询圆的相关属性，包括圆心坐标、半径、周长和面积四个信息，代码如下。 (defun c:ccleppt ()     (setq ss (car (entsel "\n请选择要查询的圆：")))     (setq ssob (vlax-ename->vla-object ss))     (setq center (vlax-get ss...
cad批量页码lisp_源代码:批量改页码(加前缀)及提取属性块
weixin_39574869的博客
12-21 2794
本帖最后由 LLXXZZ 于 2011-9-4 14:58 编辑在这个网页中http://bbs.mjtd.com/thread-64566-1-1.html有哥们确实向我要了源码,可能有些兄弟确实想看代码.现在给贴出来.代码一般.没什么大不了的.但也着实让不少同仁受益.页码的排序的功能写的不好,有优化的空间,懒得改了.哥们儿根据自己的需要自己改.[code="lisp];提取属性块标记TagSt...
lisp提取多点assoc_如何用lisp程序提取选择的属性块中的length属性，并加合，最后给出结果...
weixin_33316599的博客
01-27 1389
满意答案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 ...
lisp代码爆炸图块，保留图块的属性文字
最新发布
VB973490770的专栏
07-23 547
【代码】lisp代码爆炸图块，保留图块的属性文字。
吴永进lisp_AutoLISP$DCL基础篇
weixin_39976575的博客
12-21 1463
内容概要二位AutoCAD高手震撼年度精心巨作最震撼的AutoCAD专业工程师必修宝典一贯原则 篇篇精彩，句句重点二位高手 力求完美， 漂亮出击三个坚持 丰富专业、详实完整、不拖泥带水四项最多 范例最多、技巧最多、用心最多、回想最多五大目标 新的上路->循序渐进，熟悉Autolisp&DCL程序设计资深老手->充分掌握，自我希望成为真正的AutoCAD制图的创造者高手练功-&g...
lisp+dcl+紧密_AUTOLISP@DCL基础篇(全)
weixin_39621060的博客
12-21 1179
二位AutoCAD高手震撼年度精心巨作最震撼的AutoCAD专业工程师必修宝典一贯原则 篇篇精彩，句句重点二位高手 力求完美， 漂亮出击三个坚持 丰富专业、详实完整、不拖泥带水四项最多 范例最多、技巧最多、用心最多、回想最多五大目标 新的上路->循序渐进，熟悉Autolisp&DCL程序设计资深老手->充分掌握，自我希望成为真正的AutoCAD制图的创造者高手练功->如虎...
「MoreThanJava」Day 4：面向对象基础
我没有三颗心脏的博客
08-04 445
「MoreThanJava」 宣扬的是 「学习，不止 CODE」，本系列 Java 基础教程是自己在结合各方面的知识之后，对 Java 基础的一个总回顾，旨在 「帮助新朋友快速高质量的学习」。 当然 不论新老朋友 我相信您都可以 从中获益。如果觉得 「不错」 的朋友，欢迎 「关注 + 留言 + 分享」，文末有完整的获取链接，您的支持是我前进的最大的动力！ Part 1. 面向对象设计概述 面向对象程序设计 (Object-Oriented Programming, OOP) 是当今主流的程序设计范型..
让属性块的属性文字“复位”的lsp.LSP
05-18
cad 属性文字 还原 (defun c:initatt () (while (setq ss (ssget '((0 . "insert")))) (setq n (sslength ss)) (repeat n (gxl-blk-att2init (ssname ss (setq n (1- n)))) ) ) (princ) )
CAD批量块属性提取工具免费安装版
08-02
CAD批量块属性提取是一款简洁好用的小工具该软件可以批量从AutoCAD文件中提取块属性值到Excel文件，方便你快速制图，是专业的CAD辅助软件，有需要的赶紧下载吧。 软件特色 双击列表中的文件可以用AutoCAD程序打开。  添加AutoCAD程序已打开的文件到列表中。  添加文件夹和其子文件夹中的文件到列表。  支持文件拖拽功能。  从AutoCAD文件中的属性块获取标记和提示等
块属性修改
05-30
块属性修改的LISP文件快捷命令test
利用AutoLISP实现CAD图形属性修改.pdf
08-04
利用AutoLISP实现CAD图形属性修改.pdf
提取CAD中多段线及块属性的VBA源码
09-22
提取CAD中多段线及块属性的VBA源码，可直接引用，用于提取文本等，很实用的
学习软件_电脑学习_OpenDCL免费下载.zip
07-16
4. **宏和脚本**：OpenDCL可以与AutoLISP或Visual LISP结合使用，通过编写宏或脚本来执行更复杂的任务。熟悉AutoCAD的脚本环境对于开发更强大的解决方案至关重要。 5. **调试和测试**：学习如何使用OpenDCL的内置...
Lisp 写属性块方法：netmake 代替command,
lidy891的博客
03-25 758
Lisp 写属性块方法：netmake 代替command,提高编辑速度。
AutoLISP查询椭圆的相关属性
weixin_33744141的博客
04-11 429
AutoLISP查询椭圆的相关属性，包括椭圆的中心、长轴、短轴、周长和面积，代码如下。 (defun c:elppt    ()     (setq ss (car (entsel "\n请选择所要查询的椭圆：")))     (setq ssob (vlax-ename->vla-object ss))     (setq center (vlax-ge...
AutoLISP查询圆弧的相关属性
weixin_34319999的博客
04-11 678
AutoLISP查询圆弧的相关属性，得到圆心、半径、长度和面积，代码如下。 (defun c:arcppt ()     (setq ss (car (entsel "\n请选择所要查询的圆弧：")))     (setq ssob (vlax-ename->vla-object ss))     (Setq center (Vlax-Get sso...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值