%k5(CADr(car&kw2));;取得y坐标 %k6(CADr&kw2);;取得内容 %k(-%k2%k5);;y高度比较 n(+n...
推荐使用“魔法表格（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)) ;;取得...
捣鼓了一个lisp函数，将CAD中文字导出到excel文件，然后还可以将该文件导入CAD。但是一直提示相关错误，请...
4.将CAD文字导入Excel表格 (defun c:Q2() (setq ffn (getfiled "写出文件" "" "xls" 1)) (princ "\n选取文字...") (setq ss (ssget)) (setq ff (open ffn "w")) (setq i 0) (repeat (sslength ss) (setq ssn (ssname ss i)) ...
你好，我以前也遇到过这个问题，但是最后没有找到你说的那种方法，我最后也是用了一个lisp，但步骤是直接在CAD里测量所有的线，最后结果会写在一起，复制到excel中选择粘贴就是你要的效果了，比较麻烦，但总归还是解决了连续测线的长度的问题，也只是当时用用，所以后来我就没有再研究了，lisp的代码我...
取得文字内容 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...
利用excel数据，插入块，cad 返回这个错误: no function definition: MSXL-GET-RANGE 是啥问题，帮看看 ...
快速属性录入预览属性属性导出CAD插件定制CAD二次开发CAD实用插件、Lisp、VXL、C/C++,C#,快速绘图快速画图 1200 0 04:38 App 3个注意事项批量生成视口+自动布置图框+指北针+缩略图+图纸编号CAD插件定制CAD二次开发CAD实用插件、Lisp、VXL、C/C++,C#,快速绘图快速画图 514 0 05:00 App 3【发布+图纸集】批量...
(setq excel (vlax-get-or-create-object "excel.application")vg vlax-get-property ws (vg excel ...