操作流程:
选取图元
筛选出所有属性为TEXT(MTEXT)图元,即筛选出所有文字
新建txt文件,将文字写入文件,每个图元占用一行
(defun C:wf();定义函数,设置局部变量
(setvar "CMDECHO" 0) ;
(setq test T) ;test=T
(setq f (open "C:/Users/liguorong/Desktop/4#/图纸目录.txt" "w"))
操作流程:
选取图元
筛选出所有属性为TEXT(MTEXT)图元,即筛选出所有文字
新建txt文件,将文字写入文件,每个图元占用一行
(defun C:wf();定义函数,设置局部变量
(setvar "CMDECHO" 0) ;
(setq test T) ;test=T
(setq f (open "C:/Users/liguorong/Desktop/4#/图纸目录.txt" "w"))