推荐使用“魔法表格（MagicTable）”——AutoCAD直线文字表格提取到Excel软件。> 支持多种类型的实体组成的CAD表格转换，如：直线（Line），多段线（PLine），单行文字（DBText），多行文字（MText）。> 多种转换方式可选，例如依据直线和文字的转换或者仅依据文字转换。> 多种输出方式可选，例如
"TEXT,MTEXT")));选择文字 (if (/= &kw nil);;如果有选择了文字 (progn (setq L (sslength &kw) ff (open "d://文字到TXT.xls" "w");建立表格 );; (repeat L (setq &kw1 (entget (ssname &kw n)) %k1 (cdr (assoc 10 &kw1)) ;;取得文字坐标 %k2 (cdr (assoc 1 &kw1)) ;;取得...
%k5(CADr(car&kw2));;取得y坐标 %k6(CADr&kw2);;取得内容 %k(-%k2%k5);;y高度比较 n(+n...
(setq y1 (cadr p1)) (setq z1 (caddr p1)) (setq pp1 (list x1 y1 z1)) (repeat (- (/ (length p1) 3) 1) ;;循环,寻找最后一个控制点 (setq p1 (cdddr p1)) (setq x2 (car p1)) (setq y2 (cadr p1)) (setq z2 (caddr p1)) ) (setq pp2 (list x2 y2 z2)) ) ) (...
你好，我以前也遇到过这个问题，但是最后没有找到你说的那种方法，我最后也是用了一个lisp，但步骤是直接在CAD里测量所有的线，最后结果会写在一起，复制到excel中选择粘贴就是你要的效果了，比较麻烦，但总归还是解决了连续测线的长度的问题，也只是当时用用，所以后来我就没有再研究了，lisp的代码我...
捣鼓了一个lisp函数，将CAD中文字导出到excel文件，然后还可以将该文件导入CAD。但是一直提示相关错误，请...
取得文字内容 ss (cons (list %k1 %k2) ss);;加入选择集 n (+ n 1) ) ) (setq ss (vl-sort ss (function (lambda (x y)(< (car (car x)) (car (car y)));;X排序 (setq ss (vl-sort ss (function (lambda (x y)(> (cadr (car x)) (cadr (car...
cad上有多处文字，我想把这些文字分别导出到一个固定的excel模板的指定的单元格内，比如东至、西至、南...
将指定单元格的数据替换成"LISP语句中的数据变量采用特殊符号";S4,LISP语言里面特殊符号全部变成数据后,通过VBA命令,将所有单元格的LISP命令输出成一个后缀为.lsp的文件;S5,将后缀为.lsp文件导入CAD软件;S6,CAD软件自动执行LISP语言命令,实现自动画图;本发明结合了两个常用软件EXCEL与CAD,提高了设计效率与准确率,对...
1、在EXCEL中如何使它象WORD一样的自动定时保存文件？点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。然后进行设置即可。2、用Excel做多页的表格时，怎样像Word的表格...