请问有把CADR14文件转成WORD文件的工具吗？急需，！！！

请问有把CADR14文件转成WORD文件的工具吗？急需，感谢！！

发布于2004-01-13 12:04:13

我来答

全部回答（2 ）

huadong88
笨，明天和你说，今天没时间了，下班了
- 7cb85ff4374d256ea8c6.rar
  文件大小 1.4 MB
2004-01-13 16:40:13 来自 PC 评论举报
nuance

(defun c:cttt(/ ff file ss ss2 i ii n name y y0 name-end str)
(setq ff (getfiled "save txt as" "e:/cadtext" "txt" 1))
(setq file (open ff "w"))
(setq ss(ssget ((0 . "TEXT"))))

(setq i 0)
(setq y0 nil)
(setq n (sslength ss))
(setq ss2 (ssadd))
(repeat n ;1
(repeat n ;2
(setq name (ssname ss i))
(setq y (cadr (cdr (assoc 10 (entget name)))))
(if (> y y0)
(progn (setq y0 y)
(setq name-end name)
);progn
);if
(setq i (+ 1 i))
);repeat2
(setq i 0)
(ssdel name-end ss)
(ssadd name-end ss2)
(setq y0 nil)
(setq n (- n 1))
);repeat

(setq ii 0)
(repeat (sslength ss2)
(setq str (cdr (assoc 1 (entget (ssname ss2 ii)))))
(write-line str file)
(setq ii (+ 1 ii))
)

(close file)
(princ "\ncomplete! File is ")(princ ff)(princ)
);defun

2004-01-13 12:37:13 来自 PC 评论举报