8350 发表于 2012-8-28 07:27:35

请教图层批量转换问题

有很多cad文件都存在修改图层和字体问题，不知能批量修改处理不？

原cad中的图层名,字体样式，高度，宽度，修改后的图层名，字体样式，高度，宽度
          XX                     楷体          0.8   0.6            zj                        hz         1.0      0.8
          mph                   楷体          0.8   0.6         dh                      hz         1.0      0.8



请高手帮忙给个程序lisp

ZZXXQQ 发表于 2012-8-28 11:58:00

本帖最后由 ZZXXQQ 于 2012-9-1 11:08 编辑


(defun c:tt ()
(setvar "CMDECHO" 0)
(if (tblsearch "LAYER" "XX")
(command "_.RENAME" "LA" "XX" "zj")
)
(if (tblsearch "LAYER" "mph")
(command "_.RENAME" "LA" "mph" "dh")
)
(if (tblsearch "STYLE" "hz")
(setvar "TEXTSTYLE" "hz")
(command "_.STYLE" "hz" "romans,hztxt" "1.0" "0.8" "" "" "" "")
)
(setvar "CMDECHO" 1)
(princ)
)

669423907 发表于 2012-8-29 00:03:16

谢谢Z版分享。

8350 发表于 2012-8-31 19:18:03

哈哈，这个文件执行提示CMDEDHO变量错误，请问怎么处理。高手支援

yjr111 发表于 2012-8-31 20:04:14

第二行的(setvar "CMDEDHO" 0)改为(setvar "CMDECHO" 0)即可。。。忽然觉得有点晕~~~~~

成仔 发表于 2012-9-1 08:51:14

谢谢源码分享，学习中
！！

8350 发表于 2012-9-1 08:51:24

还是不行，
提示：命令: tt 未知命令“ERNAME”。按 F1 查看帮助。
未知命令“LA”。按 F1 查看帮助。
未知命令“户主名”。按 F1 查看帮助。
未知命令“ZJ”。按 F1 查看帮助。
图层 (名为“ZJ”) 已存在。
*无效*
; 错误: 函数被取消

Andyhon 发表于 2012-9-1 09:12:15

比对这两句,即知 提示：命令: tt 未知命令“ERNAME”。按 F1 查看帮助。
(command "_.ERNAME" "LA" "XX" "zj")
(command "_.RENAME" "LA" "mph" "dh")

8350 发表于 2012-9-4 06:46:19

那是什么情况咋？高手
页: [1]
查看完整版本: 请教图层批量转换问题