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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由炫翔于 2013-5-8 11:24 编辑

大家好，谁能给我个这样的程序：我想按框选的文本内容，逐行写入到指定保存的记事本中。以下是我的代码，请高手看看是哪里出错了！

cz78873559 · 发表于 2013-5-8 10:55:49

;写入内容到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)) ;取得元体资料列表
(write-line ss ff)
  )
)
(setvar "cmdecho" os)
(close ff)
(princ)
)

Lisphk · 发表于 2013-5-8 11:06:58

初看一下

(while (ssget (list '(0 . "*TEXT")))

这个地方应该是 (setq ss (ssget (list '(0 . "*TEXT")))

Lisphk · 发表于 2013-5-8 11:08:22

(write-line ss ff)====这个地方也不对啊，要求是字符串写到文件的。

cz78873559 · 发表于 2013-5-8 11:12:05

谢谢！应该怎么改呢？

守仁格竹GM · 发表于 2013-5-8 11:13:01

;写入内容到txt中
(defun c:xr()
  (setvar "cmdecho" 0)
  (setq filetxt (getfiled "文件保存为" "" "txt" 1))
  (setq file (open filetxt "w"))
  (setq ss '())
  (setq ss (ssget  (list '(0 . "*TEXT"))))
  (setq k (sslength ss))
  (repeat k
(setq en (ssname ss (1- k)))
(setq en_data (cdr (assoc 1 (entget en))))
(write-line en_data file)
(setq k (1- k))
  )
  (close file)
  (princ)
)

cz78873559 · 发表于 2013-5-8 11:15:15

守仁格竹GM 您好！加载后提示我语法错误。

守仁格竹GM · 发表于 2013-5-8 11:17:43

是不是你标点符号有问题

cz78873559 · 发表于 2013-5-8 11:19:43

我检查过，似乎没问题样

守仁格竹GM · 发表于 2013-5-8 11:21:38

上传附件了再试一下

ll_j · 发表于 2013-5-8 11:22:10

如果仅仅使用的话，可以到我的网络U盘去下载一个wr.lsp，对单行文本有效，较早以前的程序。
另外，前一阵子为明经网友写了一个单行文字合并的程序，如果你是学习编程，可以参考。

cz78873559 · 发表于 2013-5-8 11:22:13

非常感谢您！按你的代码，问题已经解决！

cz78873559 · 发表于 2013-5-8 11:28:41

非常感谢各位分享源码！很受用的~

MUYIY · 发表于 2022-6-15 17:19:43

学习谢谢，厉害

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

[已解决] 怎样读取图中选择的文本，并按行写入到指定的TXT中？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

评分

评分

评分