cad边长提取lisp_用lisp怎么提取cad中文字-内容-*通用符匹配（值 :设定）生成excel文件...
(defun C:WZ ( / n ss &kw L ff %k %k1 %k2 %k3 %k4 %k5 %k6);批量选择文字到记事本
(setvar "cmdecho" 0) ;;关闭变量
(setvar "blipmode" 0);;关闭控制点
(vl-load-com) ;;加载vlax扩展函数
(setq n 0 ss '()) ;;取得一个空表
(princ "\n请选择文字")
(setq &kw (ssget '((0 . "TEXT,MTEXT") (1 . "*K*"))));选择文字，文字内容有字母K
(if (/= &kw nil);;如果有选择了文字
(progn
(setq L (sslength &kw)
ff (open "d://文字到表格.xls" "w");建立文本;W会把文本里面的内容清除
);;建立的文本在D盘就可以看到
(repeat L
(setq &kw1 (entget (ssname &kw n))
%k1 (cdr (assoc 10 &kw1)) ;;取得文字坐标
%k2 (cdr (assoc 1 &kw1)) ;;取得文字内容
ss (cons (list %k1 %k2) ss);;加入选择集
n (+ n 1)
)
)
(setq ss (vl-sort ss (function (lambda (x y)(
(setq ss (vl-sort ss (function (lambda (x y)(> (cadr (car x)) (cadr (car y)))))));;Y排序
(setq &kw1 (nth 0 ss)
%k1 (car (car &kw1));;取得第一个文字X坐标
%k2 (cadr (car &kw1));;取得Y坐标
%k3 (cadr &kw1);;取得文字内容
n 1
)
(repeat (- L 1)
(setq &kw2 (nth n ss);;取得第二个文字
%k4 (car (car &kw2));;取得X坐标
%k5 (cadr (car &kw2));;取得Y坐标
%k6 (cadr &kw2);;取得内容
%k (- %k2 %k5);;Y高度比较
n (+ n 1)
)
(if (> %k 20)
(progn
(princ %k3 ff);用princ写入的话，就是这个格式
(princ "\n" ff);这个格式就换行
(setq %k1 %k4 %k2 %k5 %k3 %k6)
)
)
(if (and (<= %k 20) (
(progn
(princ %k3 ff)
(princ "\t" ff);这个格式就是在同一行下一个内容
(setq %k1 %k4 %k2 %k5 %k3 %k6)
)
)
(if (and (<= %k 20) (> %k1 %k4))
(progn
(princ %k6 ff)
(princ "\t" ff)
)
)
)
(princ %k3 ff)
(close ff);;关闭文本(结束后必须关闭)
)
)
(prin1);;结束
)
(prompt "\n《C:WZ》文字写入表格")
(prin1)
;以上复制记事本以(.lsp)为后缀命名。这个程序就是一个写入表格的示范
cad边长提取lisp_用lisp怎么提取cad中文字-内容-*通用符匹配（值 :设定）生成excel文件...相关推荐
- 腾讯云文字识别API提取表格数据并生成Excel文件
腾讯云文字识别API提取表格数据并生成Excel文件 本文主要介绍了利用腾讯云表格文字识别API提取图片表格数据并生成Excel文件.主要涉及的知识点有:腾讯云API的调用.json文件的处理以及Ex ...
- cad引出线段lisp_利用lisp给CAD直线取整？
回答: 1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL () (setvar "cmdecho" 1) (setq en (ssg ...
- 【文字识别】腾讯云API：提取表格数据并生成Excel文件
一.使用工具及python包介绍 腾讯云API 国内大型互联网公司都提供云服务,如阿里.百度.腾讯等.本文选择腾讯云服务,是因为提供的API说明比较详细,看一遍就能用.更良心的是,提供了在线测试的功能 ...
- 办公自动化：轻松提取PDF页面数据，并生成Excel文件（代码实战）
发现网上有专门做文档格式转换的网站,不过是要充会员才可以.今天来做一篇PDF转换成Excel文档的代码实战,希望大佬喜欢,哈哈,话不多说,马上进入实战环节. [阅读全文] 首先,我们一如既往的介绍一下 ...
- stream 提取某字段_java8从list集合中取出某一属性的值的集合案例
List orderNoList=list.stream().map(Order::getOrderNo).collect(Collectors.toList()); https://blog.csd ...
- 批量提取多个excel文件指定单元格内容，并汇总到一个新excel文件里
#-*- coding:utf-8 -*- import os import openpyxl import pandas as pd from pandas.core.frame import Da ...
- 请用VBA编一个能将auto CAD中文字信息按所处位置填入Excel表格的程序
你可以使用 Visual Basic for Applications (VBA) 来编写一个程序,以将 AutoCAD 中的文字信息按其在图纸上的位置填入 Excel 表格. 下面是一个简单的示例代 ...
- cad高程如何提取到cass软件_从CAD平面图中提取坐标生成数据表
功能:在CAD中提取点的三维坐标(提取当前坐标系中坐标)直接生成Excel表,并在CAD图中生成坐标数据表,加了标点号和输出的选项. 如何安装: 1,在CAD平面图中→工具→宏→加载工程→加载下载 ...
- python cad 提取高程点_CAD地形图如何提取出高程点文件？
步骤一:在CAD中,打开地形文件,一般很多图形会成块了,所以我们按惯例对图形进行[X]炸开和[PU]格式清理. 步骤二:进入"数据提取"对话框,如下图所示,单击[下一步]进入下一对 ...
- 如何从CAD中提取点坐标自动生成excel表格？
这里,除了BIM,就是建筑相关干货.工具.教程分享,小鱼当的建筑BIM日志 没错,最近在疯狂测量点位及处理数据的我又来啦 今天要分享的是如何在cad里提取若干点,将点位坐标数据自动生成表格,更关键的要 ...
最新文章
- 管理员信息管理之更新管理员数据
- phpstorm 点击方法跳转 后 返回 原来的位置
- java和c++的区别大吗_安徽成人高考和自考区别大吗?为什么推荐选成人高考?
- 【Python合集】全面掌握Python基础知识，建议收藏
- h5外卖源码php_校园食堂外卖APP走红 更多APP定制开发上一品威客网
- 【AI视野·今日Robot 机器人论文速览 第九期】Thu, 17 Jun 2021
- java实现n选m组合数_求组合数m_n
- tomcat web服务器优化
- SQL Server 数据库性能优化（转载）
- mysql安装配置jdbc_JDBC环境配置
- 有u盘图标但是在我的电脑里面看不到u盘结局办法—devmgmt.msc
- 现在, Delphi 的多线程已经非常易用了!
- SpringMVC(三)——响应
- 车载电脑（car pc）
- Jmeter 参数化中文乱码问题
- Matlab GUI编程技巧（一）：如何使gui编的界面一运行就居中
- ricequant量化的基础是什么？
- 《编程之禅》Geoffrey James
- 互联网摸鱼日报（2022-11-24）
- 数据库开发及ADO.NET(6)——新增 - Inert into Table(col,col2...)values(data1,data2...)