烦请斑竹及各位

sunlizhi

斑竹及各位好：


                                         如何把CAD中文字拷入到Windows剪贴板？


                                         急盼！谢谢！

精灵王

用ddedit编辑，选择文字，然后ctrl+c就可以了

精灵王

(defun c:txtout (/ fln f a n index el e txt)
(setq fln (getstring "\n输出文件名:"))
(setq fln (strcat fln ".txt"))
(setq f (open fln "w"))
(setq a (ssget))
(setq n (sslength a))
(setq index 0)
(repeat n
(setq el (entget ( ssname a index)))
(setq index ( + index 1))
(setq e (assoc 0 el))
(if (= "TEXT" (cdr e))
(progn
(setq txt (cdr (assoc 1 el)))
(write-line txt f)
)
)
)
(close f)
) 可以输出文件到文件中