【菜鸟集】一些关于菜鸟的知识

spp_wall

        【菜鸟集-前言】

      在明经也混了不少时间了，但是在明经也多半是求问为多，谢谢大家的帮助，自己依然还是菜鸟一只，但是依然还是有些东西可以分享给和像我一样，工作时间忙 ，对于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
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
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 ( ) ;新命令
  
•   (if (not (member "XXX.arx" (arx))) ;
  
•   (arxload "XXXXX.arx")) ;
  
•   (c:SFDE);原始命令
  
• (princ)
  
• )
  
  

305341043

善于总结，作者用心了，同为菜鸟，学习了

Lewis

defun后面变成表情了 感觉有点萌

石井鱼

这些确实适用菜鸟

ysq101

好贴。。。。同为菜鸟支持

emk

菜鸟留名签到，好贴

zyhandw

善于总结，赞一个！

ygp820601

对菜鸟很有用。

crtrccrt

一个字
很好

zhouren_cmi

fl202

其实函数合并没什么用，做个DCL对话框来选择执行的函数更直观，button上还有功能介绍呢，就像贱人工具箱的那种。

spp_wall

fl202 发表于 2013-11-12 08:58
其实函数合并没什么用，做个DCL对话框来选择执行的函数更直观，button上还有功能介绍呢，就像贱人工具箱的那 ...

对于菜鸟来说  DCL 什么的 我也上刚知道  也混了1年了  惭愧

twsyzx

非常不错啊