晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 程序（函数）库 › LISP/VLISP函数库 › [LISP 函数]: 读取指定文件中指定行的内容 ...

1 ... 5 6 7 8 91011 12 13 / 13 页下一页

楼主: ScmTools

[LISP 函数]: 读取指定文件中指定行的内容

火.. [复制链接]

yinchuan99001

已领礼包: 2个

财富等级: 恭喜发财

发表于 2018-12-14 16:50:54 | 显示全部楼层

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

正在学习这个，谢谢

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

qyming2000

已领礼包: 158个

财富等级: 日进斗金

发表于 2019-1-5 11:29:12 | 显示全部楼层

回复，来看帖。

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

线路板

已领礼包: 19个

财富等级: 恭喜发财

发表于 2019-1-10 22:33:47 | 显示全部楼层

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

正需要这个，谢谢

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

kaka500

发表于 2019-2-25 01:03:11 | 显示全部楼层

我想看看，谢谢

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

0924

发表于 2019-2-28 14:55:12 | 显示全部楼层

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

谢谢楼主分享

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

fengyun7000

已领礼包: 55个

财富等级: 招财进宝

发表于 2019-2-28 16:01:31 | 显示全部楼层

有点意思，看看

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

fengyun7000

已领礼包: 55个

财富等级: 招财进宝

发表于 2019-2-28 16:13:07 | 显示全部楼层

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

程序不完整，缺少mc_getfile_line files 函数

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

fengyun7000

已领礼包: 55个

财富等级: 招财进宝

发表于 2019-2-28 16:32:22 | 显示全部楼层

加上这个才行，也是晓东论坛里的
(defun mc_getfile_line (files1 / tmplst1 x1 fn1)
(setq files1 (findfile files1))
(if files1
(progn
(setq tmplst1 0)
(setq fn1 (open files1 "r"))
(while (read-line fn1)
(setq tmplst1 (+ 1 tmplst1))
)
(close fn1)
tmplst1
)
nil
)
)

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报