求助！怎样读取图中选择的文本，并按行写入到指定的TXT中？

cz78873559 · 发表于 2013-5-8 09:58:50

大家好，谁能给我个这样的程序：我想按框选的文本内容，逐行写入到指定保存的记事本中。

328302216 · 发表于 2013-5-8 10:01:55

这个应该不难吧，自己写写呗！

cz78873559 · 发表于 2013-5-8 10:03:12

我是菜鸟，找不到怎样写入的代码。请大虾们帮帮忙哈，非常感谢！

仲文玉 · 发表于 2013-5-8 10:05:13

搜索论坛，有你要的

cz78873559 · 发表于 2013-5-8 10:15:45

我还是没搜到
。。。

cz78873559 · 发表于 2013-5-8 10:33:24

麻烦大家给个提示嘛！

cz78873559 · 发表于 2013-5-8 10:36:19

;写入内容到txt中
(defun c:xr()
;(setvar "cmdecho" 0) ;指令执行过程不响应
  (setq file (getfiled "文件保存为" "" "txt" 1))
  (if (findfile file)
(setq ff (open file "a"))
(setq ff (open file "w"))
)
(setq n 0)
(while (ssget  (list '(0 . "*TEXT")))

(repeat (setq k (sslength ss))
  (setq en (ssname ss (setq k (1- k))))
(setq n(+ n 1))
(setq pn(rtos n 2 0))
(setq en_data (entget EN)) ;取得元体资料列表
;(setq sxyz (strcat pn",,"px ","  py  ","  pz))
(write-line sxyz ff)
  )
)
(close ff)
(prin1)
)

zyhandw · 发表于 2013-5-8 15:41:14

搜不到，不会吧？参考下这个：http://bbs.mjtd.com/thread-98163-1-1.html

账号		自动登录	找回密码
密码			注册

[基础] 求助！怎样读取图中选择的文本，并按行写入到指定的TXT中？