帮助：导出并在记事本中查看结果

prodromosm · 发表于 2022-10-13 16:26:28

嗨，我使用此代码从一些关闭的折线中导出注释通知。Tis 代码以逗号形式显示结果。如果区域在某些限制之间，则从eatch 选项中选择代码，然后导出为结果，很少通知和 3 次计算。我更容易在记事本中而不是在命令行中阅读它们。是否可以将结果写入 temp txt 并打开记事本？

***代码中的文字是随机的，因为翻译成英文的工作人员很多.

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Steven P · 发表于 2022-10-13 17:29:15

试试这个：

copy

(defun txttonotepad ( txtlist / txtfile LFDES ) ;;creates list of LISPs to notepad
  (if (strcat (getvar "TEMPPREFIX") "txtlist.txt")(vl-file-delete (strcat (getvar "TEMPPREFIX") "txtlist.txt"))) ;;delete existing file
  (setq txtfile (strcat (getvar "TEMPPREFIX") "txtlist.txt")) ;;create new temp file
  (setq LFDES (open txtfile "w"))
  (foreach x txtlist
    (write-line x LFDES)
  )
  (setq LFDES (close LFDES))
  (if (findfile txtfile) (startapp "notepad" txtfile))
  (if (not (findfile txtfile)) (princ "\nError writing file"))
  (princ)
)

发送到这里的文本是一个列表，每个列表项都是一个新行：
例如：

copy

(txttonotepad (list "Item 1" "Item 2" "Item 3"))

如果您修改代码以从命令行中显示的内容创建列表，它应该可以工作。

[编程交流] 帮助：导出并在记事本中查看结果

发表回复

精选推荐