[萝卜系列]CAD命令增强版源码第一季

一、简介：（我的目标不大: 希望该贴为精华贴）本人觉得Lisp之强大在于易学易用、无版本限制，该主题的精彩亦在于简单而实用的代码。二、Lisp 的使用方法: 1. 打开AutoCAD 2. 输入命令: ap或appload 回车3. 加载*.lsp文件或 (*.fas *.VLX) 4. 输入命令Lsp文件内的命令 Lisp的命令是什么？FAS，VLX文件怎么打开？这里不多讲。详我的博客:

一、简介：（我的目标不大: 希望该贴为精华贴）

本人觉得Lisp之强大在于易学易用、无版本限制，该主题的精彩亦在于简单而实用的代码。

二、Lisp 的使用方法:

1. 打开AutoCAD

2. 输入命令: ap或appload 回车

3. 加载*.lsp文件或 (*.fas *.VLX)

4. 输入命令Lsp文件内的命令

Lisp的命令是什么？FAS，VLX文件怎么打开？

这里不多讲。详我的博客:
http://carrot1983.blog.sohu.com/118580093.html

====================================================

大家有啥好用的源代码也可以贴出来。

不一定非得Lisp；VBA、C#、C++等等也行。

前提：必须把程序的功能及命令，说清楚。

加土木币按等级分：2 5 10

====================================================

我的代码发布的楼数: 1 2 3 4 5 10 11 12 13 14 15

====================================================

如有转载代码请标识出引用处，请尊重作者。谢谢

[ 本帖最后由 carrot1983 于 2010-1-15 10:15 编辑 ]

小萝卜的头

2010年01月14日 17:24:04

2楼

接下来发Lisp源代码：（源代码好处在于：可以自己修改）

只要将这些源代码复制后，粘贴到记事本上面。

另存为*.lsp格式的就是lsp文件了。

比如存为: TT.lspClayer 表示当前图层的系统变量具体详F1（CAD帮助）

举一反三:亦可将command改为setvar函数。

2011.04.21 补充
(defun C:695 ()
(princ "\n常用捕捉")
(setvar "OSMODE" 695)
(princ)
)

[ 本帖最后由 carrot1983 于 2011-4-21 10:06 编辑 ]

小萝卜的头

2010年01月14日 17:29:17

3楼

大家可能知道了：
C: 后面加的就是程序的命令了。

command: 调用CAD命令

pause: 该函数的功能表示暂停，等待用户输入。

双引号: 表示回车确定

(princ): 静默退出（一般用在程序结尾：可以去掉之后，看命令行的差别）

[ 本帖最后由 carrot1983 于 2010-1-15 09:51 编辑 ]

小萝卜的头

2010年01月14日 17:33:10

4楼

[ 本帖最后由 carrot1983 于 2010-1-15 09:22 编辑 ]

小萝卜的头

2010年01月14日 17:35:12

5楼

[ 本帖最后由 carrot1983 于 2010-1-15 09:23 编辑 ]