【菜鸟集】一些关于菜鸟的知识
本帖最后由 spp_wall 于 2013-11-19 08:29 编辑【菜鸟集-前言】
在明经也混了不少时间了，但是在明经也多半是求问为多，谢谢大家的帮助，自己依然还是菜鸟一只，但是依然还是有些东西可以分享给和像我一样，工作时间忙 ，对于lsp想学，由于各种原因无法实现的朋友！正所谓万事开头难，对于一些简单的问题，论坛的朋友有的可能遗漏了，这里我就总结下我这些年学到的一些菜鸟能用上的东西吧！厉害的程序我是写不了了，一些简单的实用的东西我还是知道一点点的，希望能帮到一些明经的朋友，也算谢谢在论坛帮过我的朋友，文笔不好，写到那里算那里吧
1：对于菜鸟来说，混论坛最基本的一点是要会搜索，论坛建设这么多年了，很多问题都是有人问过的，所以要学会搜索！
2：搜索很总要，第二重要是会收藏，因为很多时候这次看完记住，过一会就忘记了，要把一些好的东西收藏起来，帖子的最下面有个收藏，自己头像下面有个快捷导航，点开后有自己收藏的帖子，其中快捷导航里还有个淘帖，这也是很好的功能！
3：要学会问问题，自己先把思路理清一下再发问，不要问的问题说得不清不楚，因为毕竟隔行如隔山，自己觉得很简单的东西也许别人理解起来没那么容易！
4：问问题的态度要友善，因为这是论坛，别人没有帮你的义务！
5：要学会用悬赏，用这个只是表示自己比较急，而不要把这个真当成钱！
【菜鸟集】如何使用论坛的程序
因为很多人初次接触lsp，有的时候根本不知道如何使用论坛的高手帖出来的程序，而在帖子里问，碰到个有时间的好心人，也行会告诉你，但是基本是被忽略的，那就让菜鸟-wall告诉你一些最基本的知识吧！
1：源码（lsp格式）
就是高手些的代码是开放式的，没有加密的，如何实用？在桌面或者其他地方新建一个txt文件，把代码全部复制过去后，把txt改成lsp，拖到CAD里就可以实用了，一般的命令开头就是下面这样： (defun c:XXX() 那命令就是XXX，也就是c：后面到（）前面的字符就是命令！还有如果开头没找到，那可以利用txt的查找命令，查找c:，这样一般都能找到命令，如果没有，那可能就不是简单的lsp，已经超出了菜鸟的范围了！需要其他软件的配合，这个我就不说了！
2：vxl格式和fas格式
这个是lsp的加密模式，一般都不是代码，直接是一个VLX格式的文件，好像VXL格式2000一下的CAD是无法打开的，使用方法也是把下载好的VLX拖到CAD里，命令一般在论坛的原文帖子里找，或者拖到VLX后注意CAD的命令行上方，一般会有提示为什么命令的！
3:DCL
这个是一个窗体格式文件，配合lsp-VXL-Fas格式文件用的！
【菜鸟集】菜鸟需要知道的一些函数
知道如何用别人写的程序后，如果还想进一步，那就是修改里面的参数或者添加一些函数！下面一些函数我觉得对于菜鸟来说还是有用的！有的是明经的玩家总结 有的是晓东的玩家总结 还有的是自己搜索的！
1，选择文件
功能：在CAD里出现一个选择文件对话“LSP”为文件类型，如所有文件“”就好了
(getfiled "选择文件" "E:/黄河文档/acad/lisp/" "lsp" 8)
2，建文件夹，一次只能建一个，如建多个要多运行几个（如第二行，在CAD里再建一个AA）
(vl-mkdir "d:\\CAD")
(vl-mkdir "d:\\CAD\\AA")
3，打开所有文件及文件夹,若目录有空格可用第2种
(command "_ai_editcustfile" "F:\\picture\\黄河\\hjk hh\\hh.doc")
(command "_ai_editcustfile" "\" F:\\picture\\黄河\\hjk hh\\hh.doc\"")
4，打开网页：
(command "browser" "http://hao123.com")
5，打开EXE或BAT文件：
(startapp "D:\\\\Program Files\\\\象棋\\\\中国象棋\\\\Chess.exe")
6，用记事本打开
(startapp "notepad" "d:\\Program Files\\acad2004doc.lsp")
7，新建一个文件，与6相同（有则打开，无则建一个再打开）
(startapp "notepad" "d:\\Program Files\\acad2004doc.lsp")
8，删除文件
用记事本写：
del F:\picture\ss
文件保存为.BAT,意思是删除F:\picture\ss下的所有文件（不含文件夹）
运行BAT文件时执行其内容
BAT又是一个新天地，与CAD结合如虎添翼
(startapp "D:\\\\Program Files\\\\del.bat")
9，CAD里显示桌面
把下面5行代码存为dd.scf备用或放在F:\picture\黄河\dd.scf
Command=2
IconFile=explorer.exe,3
Command=ToggleDesktop
(command "_ai_editcustfile" "F:\\picture\\黄河\\dd.scf")
10.打开VXL文件
(defun C:111( ) ；111为自己修改的命令
(if (null flag)(progn (load "xxx.vlx")(setq flag t))) ；XXX为VLX的文件名
(c:111)
)
11.打开文件夹（参考 打开网络邻居）
12.打开EXL word pdf chm jpg
(defun c:111()
(command "start" "D:\\xxx.xls")
)
(command "notepad" "textfilename");打开txt文档
(startapp "winword" "filename");打开doc文档
打开chm格式的规范：(help "E:/规范/工程规范2012.chm")
打开pdf格式的：(STARTAPP "D:\\Foxit Reader\\Foxit Reader.exe" "E:\\规范\\规范2012.pdf")
13.打开网络邻居的文件夹
(defun C:1111()
(startapp "explorer" "\\\\XXX\\XXXXX")
)
14 函数合并
;lsp程序合并（Gu_xl）
(defun c:(/ kJ)
(initget 7 "1 2 3");3后面两个空格
(setq kJ (getkword "\n输入选项[<1>,<2>,<3>]:<1>:"))
(cond
((= "2" kJ)(c:程序2快捷键))
((= "3" kJ)(c:程序3快捷键))
(t (c:程序1快捷键)))
(princ))
(defun c:()
(initget "1 2 3 4 5")
(setq no (getkword "请选择1,2,3,4,5<1>:"))
(if (= no nil)(setq no "1"))
(cond ((= no "1")程序1))
(cond ((= no "2")程序2))
(cond ((= no "3")程序3))
(cond ((= no "4")程序4))
(cond ((= no "5")程序5))
(princ))
15.加载ARX
[*](defun c:B ( ) ;新命令
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(if (not (member "XXX.arx" (arx))) ;
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(arxload "XXXXX.arx")) ;
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(c:SFDE);原始命令
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)
善于总结，作者用心了，同为菜鸟，学习了 defun后面变成表情了 感觉有点萌 这些确实适用菜鸟 好贴。。。。同为菜鸟支持 菜鸟留名签到，好贴 善于总结，赞一个！ 对菜鸟很有用。 一个字
很好 其实函数合并没什么用，做个DCL对话框来选择执行的函数更直观，button上还有功能介绍呢，就像贱人工具箱的那种。 fl202 发表于 2013-11-12 08:58 static/image/common/back.gif
其实函数合并没什么用，做个DCL对话框来选择执行的函数更直观，button上还有功能介绍呢，就像贱人工具箱的那 ...
对于菜鸟来说DCL 什么的 我也上刚知道也混了1年了惭愧 非常不错啊