cass二次开发vba和lisp_autocad二次开发(VBA)就这么简单

沐风稻米

autocad二次开发(VBA)就这么简单

2009-02-16 21:58:05

阅读 4399

运行autocad，创建一个新文件，Alt+F11(或者在菜单栏点“工具”→“宏”→“Visual Basic 编辑器”)，在新出现的窗口菜单栏点“插入”→“模块”，输入下面的代码：

Sub 我的第一个程序()

Dim 直线1 As AcadLine

Dim 起点(2) As Double

Dim 端点(2) As Double

起点(0) = 10

起点(1) = 20

端点(0) = 80

端点(1) = 100

Set 直线1 = ThisDrawing.ModelSpace.AddLine(起点, 端点)

End Sub

检查一下，确信没有问题后按F5

回到autocad窗口，看见了吗？一条直线，起点坐标(10,20)，端点坐标(80,100)

这个程序的第一行里，“SUB”和“()”是必须有的(人家微软就是这么规定的，我也没办法)，“我的第一个程序”是这个程序的名字(如果你不喜欢也可以改个别的名字，我无所谓)。

第二行里，“Dim”是定义一个变量，“直线1”是要画的直线的名字(随便改，中英文都行)，后面的英文必须有，意思是说：这是一条autocad直线。

第三行里，“起点(2)”是一个数组(因为我要用它给直线赋予起点，所以取了个直观的名字，又因为点的坐标是三维的，所以必须用能容纳三个数据的数组)，后面的英文意思是“这个数据是双精度类型”。

第四行和第三行差不多，是用来给直线赋予端点的。

第五行和第六行是分别赋值给起点的x和y坐标(因为起点的z坐标是0，而定义这个数组的时候，默认数据就是(0,0,0)，所以就不用管z坐标了)。

第七行、第八行赋值给端点x和y坐标。

第九行画直线，在“当前文件”的“模型空间”“画直线(按起点和端点)”。

第十行，完事了。

有的网友一看见英文，头就会变大。别怕，如果你是用“复制/粘贴”把这段代码拷贝到VB编辑器里，就不会知道autocad有多么友善。试试用键盘把这段代码输入进去，你会发现，每到关键时刻，VBA就会提醒你下面该做什么了。

别听旁人瞎说autocad这不行、那不行，那是因为autocad的两个万能命令(一个是VBA，一个是lisp)你还没学会。这两个命令你只要学会一个(不用太精通，差不多就行)，就没人敢说你不是高手。

相似文章

输入其他CAD软件部件(130502人浏览过)

查询分析(14805人浏览过)

图层管理(20413人浏览过)

WCS工作坐标(19878人浏览过)

隐藏对象(15391人浏览过)

选择对象(16070人浏览过)

对象显示(18222人浏览过)

鼠标操作补充(18788人浏览过)

cass二次开发vba和lisp_autocad二次开发(VBA)就这么简单相关推荐

cass二次开发vba和lisp_基于VBA的AutoCAD二次开发及应用实例
1引言本文引用地址:http://www.eepw.com.cn/article/190993.htm AutOCAD2005是AutOdesk公司的系列产品,该软件从其使用和设计思路上都秉承了工程制 ...
qt工程在linux系统里颜色显示错误_【飞凌嵌入式RK3399开发板试用体验】+QT开发环境搭建测试（二）...
作者:飞扬的青春在拿到开发板之后,已经体验了Android操作系统,接下来就是体验Linux下的开发,本次以QT的一个小案例来测试下. 首先是自己先搭建了一个Ubuntu18．04的虚拟机,使用真机 ...
敏捷开发实践总结（二）：关于测试
用了两个冲刺周期,我们组算是把敏捷开发的测试流程给捋顺了.这里对我们的测试,以及敏捷开发中的测试做一个小结. 一.开发组一定不能讳疾忌医. 作为开发人员,一定要秉着这个出发点去看待测试.业务测试测试组 ...
2021年4月19日深圳头条后台开发实习面试（二面）（含总结）
title: 2021年4月19日深圳头条后台开发实习面试(二面) tags: 面经 2021年4月19日深圳头条后台开发实习面试(二面) 自我介绍面试直接跟我讲你想让我问哪个方面的问题呢?(这 ...
[图解教程]Axis2与Eclipse整合开发Web Service之二：WSDL逆向生成服务端
[图解教程]Axis2与Eclipse整合开发Web Service之二:WSDL逆向生成服务端一般开发Web Service,是选写服务端,再根据生成的WSDL文件生成客户端.看过一本SOA的书中 ...
iOS 11开发教程（十二）iOS11应用视图始祖——UIView
iOS 11开发教程(十二)iOS11应用视图始祖--UIView 在Swift中,NSObject是所有类的根类.同样在UIKit框架(UIKit框架为iOS应用程序提供界面对象和控制器)中,也存在 ...
think in java interview-高级开发人员面试宝典(二)
think in java interview-高级开发人员面试宝典(二) 分类: 面经2013-08-05 00:4318634人阅读评论(58)收藏举报目录(?)[+] 从现在开始,以样题的方式 ...
Android IOS WebRTC 音视频开发总结（四二）-- webrtc开发者大会
Android IOS WebRTC 音视频开发总结(四二)-- webrtc开发者大会本文主要介绍11月要在北京举办的webrtc开发者全球大会,文章来自博客园RTC.Blacker,支持原创,转 ...
Windows驱动开发学习笔记（二）—— 驱动调试内核编程基础
Windows驱动开发学习笔记(二)-- 驱动调试&内核编程基础基础知识驱动调试 PDB(Program Debug Database) WinDbg 加载 PDB 实验:调试 .sys ...

cass二次开发vba和lisp_autocad二次开发(VBA)就这么简单

cass二次开发vba和lisp_autocad二次开发(VBA)就这么简单相关推荐

最新文章

热门文章