CAD块属性提取

最新推荐文章于 2023-12-14 21:21:12 发布
最新推荐文章于 2023-12-14 21:21:12 发布
阅读量1.4w 收藏 10
点赞数 1
文章标签： 数据库 excel 活动 delete access 化工
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Aerstiin/article/details/1806720
版权
安排的任务早早的完成了
上级又都出差了，别人的活也没发帮忙
上班就只好写点小程序简化工作流程
别看程序不大内容还挺多
物料统计辅助程序：
 
程序介绍：

1.       提取AutoCAD图像中的物料信息CADRead.exe

2.       数据库BOM.mdb

3.       写入标记块CADWrite.exe

 
使用方法：
首先要配合AutoCAD中块 ITEM_NUMBER_Metric
画图填写该块的时候需按照以上格式填写
最低0.47元/天 解锁文章
Aerstiin
关注
  • 1
    点赞
  • 踩
  • 10
    收藏
    觉得还不错? 一键收藏
  • 5
    评论
AutoCAD块属性提取
Aerstiin的专栏
05-20 1580
使用Visual studio c#为例 首先在项目资源窗口右键选Referece添加AutoCAD 2018 Type Library 添加后using AutoCAD using AutoCAD; 跟块相关的代码核心如下 AcadApplication acad = (AcadApplication)Marshal.GetActiveObject("AutoCAD.Application"); AcadDocument doc = acad.ActiveDocument; AcadMode
利用AutoLISP实现CAD图形属性修改.pdf
08-04
利用AutoLISP实现CAD图形属性修改.pdf
CAD批量块属性提取工具免费安装版
08-02
CAD批量块属性提取是一款简洁好用的小工具该软件可以批量从AutoCAD文件中提取块属性值到Excel文件，方便你快速制图，是专业的CAD辅助软件，有需要的赶紧下载吧。 软件特色 双击列表中的文件可以用AutoCAD程序打开。  添加AutoCAD程序已打开的文件到列表中。  添加文件夹和其子文件夹中的文件到列表。  支持文件拖拽功能。  从AutoCAD文件中的属性块获取标记和提示等
SmartSoft中用C#.Net实现AutoCAD块属性提取
05-11
SmartSoft中用C#.Net实现AutoCAD块属性提取
AutoCAD图块属性读取并写入Excel表格（VB源程序）
06-07
读取AutoCAD图形中的图块的属性信息，并自动写入Excel文件中，非常实用。特别适合于读取AutoCAD文件中的表格信息。
vba实现CAD块属性导出到excel中
最新发布
yongshiqq的博客
12-14 1507
运行程序钱需在vba ide中工具栏下引用选项中引用excel库方可运行。vba实现CAD与excel交互功能可提高工作效率，此例可供参考。
鹏宇成DWG块属性提取工具.zip
07-10
DWG块属性提取工具，由北京鹏宇成软件技术有限公司出品，是一款完全独立运行的，用于提取DWG格式内块属性的应用产品。 声明：运行此产品，无需安装AutoCAD。运行安装包内的安装程序，按照安装向导提示，直到完成...
块属性提取VBA示例.rar_VBA Coordinates(0)_VBA提取坐标_birthcw8_vba块属性_提取块属性
09-24
在这个“块属性提取VBA示例.rar”压缩包中，我们聚焦于如何利用VBA来提取AutoCAD中的块属性和块的位置坐标，并将这些数据导出到文本文件。 首先，"块属性"在AutoCAD中指的是定义在块定义中的可编辑参数，如文字、...
CAD文字批量提取至EXCEL
11-13
该插件可以将CAD中的文字批量提取并可分列保存到csv文件
AutoLisp入门教程
12-11
AutoLisp入门教程 lisp语言很好的入门教材 lisp语法定义比较全面
提取CAD中多段线及块属性的VBA源码
09-22
提取CAD中多段线及块属性的VBA源码，可直接引用，用于提取文本等，很实用的
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...
C#.Net实现AutoCAD块属性提取
android_12345的博客
07-02 464
https://blog.csdn.net/dengyiyu/article/details/2201175 本文主要给大家介绍一下SmartSoft中用C#.Net实现AutoCAD块属性提取的方法，并给出实例代码与大家共享。此类实现AutoCAD块属性提取功能，在VS.Net2003(2005)+AutoCAD2004(2007)下调试通过。 using System; ...
CAD批量提取数值lisp插件,批量提取cad坐标到txt的lisp源码
weixin_39977934的博客
03-18 793
(defun c:plzbsc()(princ "\n选择所需输出的点(point):")(setqss (ssget ));;选取坐标点(setq n (sslengthss ));计算坐标点数量(setqff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径(setqi 0)(repeat n(setqspt (ssnamessi ))(set...
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励遍图块中的实体_利用Auto LISP程序转换Auto CAD实体
weixin_39645308的博客
12-21 661
利用AutoLISP程序转换AutoCAD实体摘要:本文是详细介绍了怎样将高程属性块,转换成TEXT实体的过程,并提供了相应的通用AutoLISP程序。关键词:属性值提取AutoLISP程序实体转换1问题的提出和解决思路2007年10月,我院总图设计人员需要计算某钢铁新建项目的土方量。甲方提供地形图中的高程点,是以属性块的形式给出的。而总图设计人员计算土方量的软件,要求高程值是TEXT实体...
lisp提取多点assoc_如何用lisp程序提取选择的属性块中的length属性，并加合，最后给出结果...
weixin_33316599的博客
01-27 1212
满意答案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 提取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)`函数再次选择对应的属性对象。通过遍历属性列表，再分别提取属性的键名和键值，并逐个输出。

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

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

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值