[LISP]请教如何将CAD中的文字保存到TXT文本中？

jiang82040

请教如何将CAD中的文字保存到TXT文本中，我用了write-line,写不进去，说是consp参数错误，请各位大哥帮忙看看： ;;;将CAD中文字保存在TXT文本中
(defun c:writetxt(/ fle f index num ent ss1 str)
(setvar "cmdecho" 0)
(setq fle (findfile "txt.txt"))
(if (not fle)
(setq fle (getfiled "请选择要保存文件" "txt1" "txt;*" 0))
)
(setq f(open fle "w"))
(princ "\n输入你要存入的文本:")
(setq ss1 (ssget (list (cons 0 "text"))))
(setq index 0)
(setq num (sslength ss1))
(repeat num
(setq ent (ssname ss1 index))
(setq str (cadr (assoc 1 (entget ent))))
(setq str (strcat "(" str ")"))
(write-line str f)
(setq index (1+ index))
)
(close f)
(setvar "cmdecho" 1)
(princ)
)

f5612140

(setq str (cdr (assoc 1 (entget ent))))

jiang82040

可以了，谢谢，非常感谢谢f5612140朋友！！

jiang82040

可是只对text对象有效，请问要想对Mtext有效的话，如何做？

alin

Change (setq ss1 (ssget (list (cons 0 "text")))) to


                                                                                                         (setq ss1 (ssget (list (cons 0 "mtext"))))


Hopefully your Mtexts haven't got too much format code.