插入外部文件txt,程序如何写。

shcvip

(defun c:tt ()
  (command
    "_.MTEXT"
    (getpoint "\n放置点:")
    "w"
    "0"
    "               技  术  要  求 "
    "1.xxx。"
    "2.xxx。"

    ""
  )
  (princ)
)

上面的技术要求，写到了程序中，可否写成txt格式，读取外部txt内容呢。

这个程序如何写，请大侠指点。谢谢！

Andyhon

...可否写成txt格式...

可以呀!

关键函数大致有
(getfiled title default ext flags)
(open filename mode)
(read-line [file-desc])

fl202

利用本论坛随便搜索下即可：
http://bbs.mjtd.com/thread-176529-1-1.html
http://bbs.mjtd.com/forum.php?mo ... 4&highlight=txt
http://bbs.mjtd.com/forum.php?mo ... 2&highlight=txt
http://bbs.mjtd.com/forum.php?mo ... 3&highlight=txt
http://bbs.mjtd.com/forum.php?mo ... 3&highlight=txt
http://bbs.mjtd.com/forum.php?mo ... 5&highlight=txt
楼主不会用吗？

pengfei2010

可以自己 封装几个子函数

shcvip

fl202 发表于 2018-1-30 09:32
利用本论坛随便搜索下即可：
http://bbs.mjtd.com/thread-176529-1-1.html
http://bbs.mjtd.com/forum.ph ...

谢谢指点！:D

shcvip

(defun c:tt ()
  (setq fn (open "H:\\DATA\\002.txt" "r"))
  (setq sele (read-line fn))
  (command
    "_.MTEXT"
    (getpoint "\n放置点:")
    "w"
    "0"
    sele

    ""
  )
  (princ)
)

上面读取的是单行文字，多行文字如何读取？
下面有程序更新。

Andyhon

http://bbs.mjtd.com/forum.php?mo ... 3&highlight=txt
zzxxqq:
(while (setq data (read-line fp))

学编程是条漫漫长路
前辈们能给的是示例/方向/...
这些都得花时间去琢磨,转化成我们能运用在编程上的养分
培育我们所须的程序...

shcvip

Andyhon 发表于 2018-1-31 10:20
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=172583&highlight=txt
zzxxqq:
(while (setq data (r ...

是的，今天单位里的一位老师傅也跟我说的，别人编写的要消化吸收，这样才能长进。

shcvip

(defun c:tt ()
  (setq fn (open "I:\\DATA\\002.txt" "r"))
  (setq data "")
  (while (setq data1 (read-line fn))
     (setq data (strcat data "\\P" data1  ) );(read-line fn))
  )
  (command
    "_.MTEXT"
    (getpoint "\n放置点:")
    "w"
    "0"
    data
    ""
  )
(close fn)
  (princ)
)

以上待完善：1：行间距要改  2：第一行为空改为不为空。