使用lis打印文本文件

john_ · 发表于 2022-7-6 14:32:47

谁能告诉我如何使用lisp打印简单的文本文件？

我不是说把acad文本打印到文件中
我特别希望添加一个按钮，我的工具栏，当按下它会打印一个特定的文本文件。（.txt）

谢谢

The Buzzard · 发表于 2022-7-6 14:37:52

嗨，约翰，

欢迎来到论坛。

让版主将您的帖子移动到

AutoLISP、VBA、CUI和自定义

你可以在那里轻松回答Lisp问题。

john_ · 发表于 2022-7-6 14:41:22

嗨，谢谢
如何让版主移动它？

The Buzzard · 发表于 2022-7-6 14:42:33

您可以向任何版主发送私人消息。
他们不希望你重复你的信息。
或者我可以帮你联系一位主持人。
我会帮你联系一个。

The Buzzard · 发表于 2022-7-6 14:48:27

厕所，

我给你发了条短信，请稍等。

john_ · 发表于 2022-7-6 14:51:31

谢谢你，先生

Commandobill · 发表于 2022-7-6 14:52:12

我相信如果它是word文档而不是您的基本文档，那么会更容易。txt文件。我可能错了。

Se7en · 发表于 2022-7-6 14:56:25

以下是两种快速方法，用于从文本文件中读取和显示命令行中的文本。

copy


( (lambda ( f / )
  (defun pars (s f)
    ;; Adopted from: ElpanovEvgeniy
    (if s
      (cons s (pars (read-line f) f)) 
      (close f))  )
  (princ "\n\n")
  (mapcar '(lambda (x) (write-line x)) (pars (read-line f) f))
  (princ)
  )
 (open "C:\\MyFile.txt" "R")
)

copy

( (lambda ( f / line )
 (princ "\n\n")
  (while (setq line (read-line f))
    (write-line line))
    (princ) )
 (open "C:\\MyFile.txt" "R")
)

Lee Mac · 发表于 2022-7-6 15:00:28

我喜欢“pars”功能——我在沼泽地见过几次——埃尔帕诺夫是个天才

但至于OP的问题——我不确定他是想打印到命令行、文件还是实际使用LISP打印一张纸。。。

Se7en · 发表于 2022-7-6 15:02:28

`PAR是非常简单的递归。我剪切并粘贴代码和一行（mapcar’（lambda（x）（write line…）比键入while语句方法更容易。真正的天才在于如何使用两种不同的方法而不是代码本身来组织代码。

对于你的家庭作业，请告诉我“pars”是什么类型或程序~

我不确定，所以我选择了简单的路线。

[编程交流] 使用lis打印文本文件

发表回复

精选推荐