visual lisp写一个小程序 ，就在cad读取矩形尺寸并写入表格，先谢谢 了

推荐使用“魔法表格（MagicTable）”——AutoCAD直线文字表格提取到Excel软件。

> 支持多种类型的实体组成的CAD表格转换，如：直线（Line），多段线（PLine），单行文字（DBText），多行文字（MText）。

> 多种转换方式可选，例如依据直线和文字的转换或者仅依据文字转换。

> 多种输出方式可选，例如可以将转换后的表格输出到Excel或者输出到系统剪切板。

> 支持一个单元格内有多行文本的转换。

> 支持单元格合并。

> 可以设置Excel单元格格式。

> 允许有一定的误差。

软件下载：>

使用方法：>

没有具体的说明和要求，不好帮你写程序，不过你可以参考下我回答另一个人的问题的，和你的类似的。

(defun c:res ( / fi1 fir fiw tex jus num )

(if (setq fi1 (getfiled "请选择文件" "c:\\" "txt" 2) txo "811-S101" txn "811-S102")

(progn

(vl-file-copy fi1 "c:\\temtxt")

(setq fir (open "c:\\temtxt" "r") fiw (open fi1 "w") num 0)

(while (setq tex (read-line fir))

(while (setq jus (vl-string-search txo tex))

(setq tex (vl-string-subst txn txo tex) num (+ num 1))

)

(write-line tex fiw)

)

(close fir) (close fiw) (vl-file-delete "c:\\temtxt")

(alert (strcat "已成功替换了 " (itoa num) " 个字符串!"))

)

)

)

这里，是将txt文本中的 811-S101 字符串改成 811-S102 的程序，你说的可能是修改CAD图档中的文字的文本，如果你补充下要求的话，我帮你改下这个程序就可以了。

以上就是关于visual lisp写一个小程序 ，就在cad读取矩形尺寸并写入表格，先谢谢 了全部的内容，包括:visual lisp写一个小程序 ，就在cad读取矩形尺寸并写入表格，先谢谢 了、可以帮我用LISP语言编CAD要用的密码程序，听说这可以让别人打开CAD，只看到内容，不可以修改。先表示感谢、兄长，，能给我点LISP的小程序么。例如对几种文字内容修改成另一个编码下的文字，我的邮箱[email protected]等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！