利用excel数据，插入块，cad 返回这个错误: no function definition: MSXL-GET-RANGE 是啥问题，帮看看 ...
但步骤是直接在CAD里测量所有的线，最后结果会写在一起，复制到excel中选择粘贴就是你要的效果了，比较麻烦，但总归还是解决了连续测线的长度的问题，也只是当时用用，所以后来我就没有再研究了，lisp的代码我放在下面，
(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语句中的数据变量采用特殊符号";S4,LISP语言里面特殊符号全部变成数据后,通过VBA命令,将所有单元格的LISP命令输出成一个后缀为.lsp的文件;S5,将后缀为.lsp文件导入CAD软件;S6,CAD软件自动执行LISP语言命令,实现自动画图;本发明结合了两个常用软件EXCEL与CAD,提高了设计效率与准确率,对...
(function (lambda () (CAD-excel-ping-pu xlapp))) ) ) ) (zx:debug "$jz>excel$ -12") (if app-release? ;如果传入了释放excel对象 (mapcar (function (lambda (x) (vl-catch-all-apply (function (lambda () (vlax-release-object x) ) ) ) ) ) (list xlcells...
本人lisp初学者,上次看网上的程序有lisp读取CAD中的数据到excel中,想问一下如果不依赖CAD中数据的坐标值人为的控制哪条数据换行哪条数据不换行,例如在点选数据时按某个键盘上的按键实现换行操作,或者类似的操作,能否实现?望大神指教。 展开 laodade幸福 采纳率:43% 等级:7 已帮助:61人 私信TA向TA提问 1个回答...
%k3(CADr&kw1);;取得文字内容 n1 )(repeat(-l1)(setq&kw2(nthnss);;取得第二个文字 %k4(car...
推荐使用“魔法表格（MagicTable）”——AutoCAD直线文字表格提取到Excel软件。> 支持多种类型的实体组成的CAD表格转换，如：直线（Line），多段线（PLine），单行文字（DBText），多行文字（MText）。> 多种转换方式可选，例如依据直线和文字的转换或者仅依据文字转换。> 多种输出方式可选，例如可以将转换...
1 CAD面积工具箱 2 cad面积标注 3 cad长度统计 4 cad统计块数量并列表 5 CAD中文字统计数量并输出到excel 6 cad统计区域面积并且列表 7 cad求编号、提取周长、面积输入EXL表 8 cad计算封闭路线的面积并注计在其形心 9 CAD公式计算 10 cad框选封闭矩形面积到excel计算...
(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 "...