[萝卜系列]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月15日 09:47:58

12楼

小萝卜的头

2010年01月15日 09:54:28

13楼

小萝卜的头

2010年01月15日 10:01:10

14楼

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

小萝卜的头

2010年01月15日 10:05:14

15楼

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

suewa

2010年01月15日 11:47:04

16楼

小萝卜头版主，支持你一下，尽管我在群里面很少发言，哈哈

yg545france

2010年02月12日 23:44:29

17楼

好像都是lisp的啊，来接vba的。
结构版主支持你，也发一个自己的。不过插入的dwg格式的块，如何打断还没弄明白，希望得到版主的帮助

插入块的方法
Private Sub InsertBlock1()

InsertBlock "C:\Program Files\Nlabel2.dwg", 0

End Sub

Function InsertBlock1(ByVal blockpath As String, ByVal rotation As Double)

Dim blockobj As AcadBlockReference
Dim insertionPnt As Variant
Dim prompt1 As String

'set rotation Angle
rotateAngle = 0 'rotation '定义了旋转的角度
rotateAngle = 0 * 3.141592 / 180#

'Prompt is used to show instructions in the command bar
prompt1 = vbCrLf & "输入块的插入点: "

ThisDrawing.ActiveSpace = acModelSpace

insertionPnt = ThisDrawing.Utility.GetPoint(, prompt1)

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, blockpath, 1#, 1#, 1#, rotateAngle)

End Function