插入外部文件txt,程序如何写。
(defun c:tt ()(command
"_.MTEXT"
(getpoint "\n放置点:")
"w"
"0"
" 技术要求 "
"1.xxx。"
"2.xxx。"
""
)
(princ)
)
上面的技术要求，写到了程序中，可否写成txt格式，读取外部txt内容呢。
这个程序如何写，请大侠指点。谢谢！
...可否写成txt格式...
可以呀!
关键函数大致有
(getfiled title default ext flags)
(open filename mode)
(read-line )
利用本论坛随便搜索下即可：
http://bbs.mjtd.com/thread-176529-1-1.html
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69284&highlight=txt
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78252&highlight=txt
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=86803&highlight=txt
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=172583&highlight=txt
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=169395&highlight=txt
楼主不会用吗？ 可以自己 封装几个子函数 fl202 发表于 2018-1-30 09:32
利用本论坛随便搜索下即可：
http://bbs.mjtd.com/thread-176529-1-1.html
http://bbs.mjtd.com/forum.ph ...
谢谢指点！:D 本帖最后由 shcvip 于 2018-1-31 13:07 编辑
(defun c:tt ()
(setq fn (open "H:\\DATA\\002.txt" "r"))
(setq sele (read-line fn))
(command
"_.MTEXT"
(getpoint "\n放置点:")
"w"
"0"
sele
""
)
(princ)
)
上面读取的是单行文字，多行文字如何读取？
下面有程序更新。
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=172583&highlight=txt
zzxxqq:
(while (setq data (read-line fp))
学编程是条漫漫长路
前辈们能给的是示例/方向/...
这些都得花时间去琢磨,转化成我们能运用在编程上的养分
培育我们所须的程序... Andyhon 发表于 2018-1-31 10:20
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=172583&highlight=txt
zzxxqq:
(while (setq data (r ...
是的，今天单位里的一位老师傅也跟我说的，别人编写的要消化吸收，这样才能长进。 本帖最后由 shcvip 于 2018-1-31 13:06 编辑
(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：第一行为空改为不为空。
页:
[1]