设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 一键合并文件夹下LISP,并出FAS.
返回列表 发新帖
查看: 1357|回复: 12

[发布] 一键合并文件夹下LISP,并出FAS.

[复制链接]
434939575

已领礼包: 1336个

财富等级: 财源广进
发表于 2017-3-8 10:01:52 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
本帖最后由 LoveArx 于 2017-3-8 10:08 编辑

  1. (vl-load-com)
  2. (defun c:tt (/)
  3.   (setq        write
  4.          (open "c:\\220\\220.lsp" "w")        ;目标文件
  5.   )
  6.   (setq file:dir:s (VL-DIRECTORY-FILES "c:\\110\\" "*.lsp" 1)) ;源文件
  7.   (foreach nn
  8.               file:dir:s
  9.     (setq fil_pat (strcat "c:\\110\\" nn))
  10.     (setq op (open fil_pat "r"))

  12.     (while (setq line (read-line op))


  15.       (write-line line write)
  16.       ;;关闭文件
  17.     )                                        ;while
  18. ;;;------------------
  19.     (close op)
  20.   )                                        ;foreach
  21.   (close write)
  22.   (vlisp-compile 'st "c:/220/220.lsp" "c:/220/220.fas")
  23. )



文件夹

评分

参与人数 1D豆 +10 收起 理由
LoveArx + 10 很给力!经验；技术要点；资料分享奖！

查看全部评分

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

LoveArx

已领礼包: 13个

财富等级: 恭喜发财
发表于 2017-3-8 10:09:51 | 显示全部楼层
帮你编辑了下帖子，你编辑下，看看如何贴代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

434939575

已领礼包: 1336个

财富等级: 财源广进
 楼主| 发表于 2017-3-8 10:58:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
LoveArx 发表于 2017-3-8 10:09

谢谢，当时我是放到->尖括号l里面没有反应，就这样发了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2017-3-8 11:18:44 | 显示全部楼层
434939575 发表于 2017-3-8 10:58

也可以选中代码后，看图

搜狗截图20170308111522.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

434939575

已领礼包: 1336个

财富等级: 财源广进
 楼主| 发表于 2017-3-8 11:31:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2017-3-8 11:18

谢谢老大，

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

kqqt6236

已领礼包: 6056个

财富等级: 富甲天下
发表于 2017-3-9 01:06:32 | 显示全部楼层
这个牛啊……
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2018-6-17 18:22:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
不错，怎么没人顶啊。

点评

434939575
大师，不敢当，开始我请别人写了个BAT，后来硬着头皮写出来，  详情 回复 发表于 2018-6-17 20:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

434939575

已领礼包: 1336个

财富等级: 财源广进
 楼主| 发表于 2018-6-17 20:54:27 | 显示全部楼层
sicky111 发表于 2018-6-17 18:22
不错，怎么没人顶啊。

大师，不敢当，开始我请别人写了个BAT，后来硬着头皮写出来，
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yangchao2005090
发表于 2018-7-26 21:16:29 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这个牛啊……
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

yangchao2005090
发表于 2018-7-27 08:54:28 | 显示全部楼层
好像不能用也，输入命令后命令行没提示

点评

434939575
要打开lisp编辑器的情况下(要激活lisp)，最小化.  详情 回复 发表于 2018-7-27 09:00
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

434939575

已领礼包: 1336个

财富等级: 财源广进
 楼主| 发表于 2018-7-27 09:00:25 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
yangchao2005090 发表于 2018-7-27 08:54
好像不能用也，输入命令后命令行没提示

要打开lisp编辑器的情况下(要激活lisp)，最小化.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yangchao2005090
发表于 2018-7-27 09:10:32 | 显示全部楼层
感谢感谢，可以用了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-4-25 15:57 , Processed in 0.278792 second(s), 58 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表