AutoCAD VBA,AutoCAD VBA,在线英语词典,英文翻译,专业英语

1) AutoCAD VBA

AutoCAD VBA

Stress Analysis of Decoiler Spline Based on AutoCAD VBA and ANSYS;

基于AutoCAD VBA和ANSYS的开卷机传动花键应力分析

The Parameter-design System of the Mixing Blades of the Concrete Transportation Truck Based on AUTOCAD VBA;

基于AUTOCAD VBA的混凝土搅拌运输车叶片参数化设计系统

Parametric Design of Transformer Core Sheet with AutoCAD VBA;

用AutoCAD VBA实现变压器铁心片图的参数化设计

2) AutoCAD VBA

AutoCAD VBA编程

This drawing management system is based on database technology, AutoCAD VBA technology and ASP technology.

本文就以电力工程图纸管理系统的开发,提出了一种图纸管理的全新模式,主要依靠数据库技术、AutoCAD VBA编程技术和ASP网页设计技术,解决了图纸管理问题,收到了显著的成效。

3) AutoCAD 2000 VBA

AutoCAD 2000 VBA

Plotting Colored Stress Patterns with AutoCAD 2000 VBA;

用AutoCAD 2000 VBA技术画应力场云图

4) AutoCAD-VBA development

AutoCAD-VBA开发

5) VBA

VBA

Parametric Design and Realization of Stamping Die Standard-part Based on VBA;

基于VBA的冲模标准件参数化设计与实现

AutoCAD VBA-Based Exploitation of CAD System for Gear Hob;

基于AutoCAD VBA的齿轮滚刀CAD系统开发

Research on NC Simulation System Based on AutoCAD and VBA;

基于AutoCAD及VBA的数控仿真研究

6) visual basic for application

VBA

The marking of normal dimension tolerance automatically by visual basic for application;

用VBA实现常用尺寸公差的自动标注

参考词条

Excel VBA VBA（VislaulBasicForApplication） VBA（VasualBasicApplication） EXCEL/VBA VBA For Excel VBA EXCEL VBA（VisualBasicforApplication） VBA宏 VBA Access VisualBasic/VBA Word VBA VBA（VisualBasicforApplications） ExceI VBA AutoCAD 2000 AutoCAD Rx 全等变换 UB区

补充资料：Autocad VBA初级教程 (第三课编程基础二)

有一位叫自然9172的网友提出了下面的问题：
绘制三维多段线时X、Y值在屏幕上用鼠标选取，Z值用键盘输入
本课将讲解这个问题。

为了简化程序，这里用多条直线来代替多段线。以下是源码：
Sub myl()
Dim p1 As Variant '申明端点坐标
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标
z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值
p1(2) = z '将Z坐标值赋予点坐标中
On Error GoTo Err_Control '出错陷井
Do '开始循环
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标
z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值
p2(2) = z '将Z坐标值赋予点坐标中
Call ThisDrawing.ModelSpace.AddLine(p1, p2) '画直线
p1 = p2 '将第二点的端点保存为下一条直线的第一个端点坐标
Loop
Err_Control:
End Sub

先谈一下本程序的设计思路：
1、获取第一点坐标
2、输入第一点Z坐标
3、获取第二点坐标
4、输入第二点Z坐标
5、以第一、二点为端点，画直线
6、下一条线的第一点=这条线的第二点
7、回到第3步进行循环
如果用户没有输入坐标或Z值，则程序结束。

首先看以下两条语句：
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") ‘获取点坐标
……
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标
这两条语句的作用是由用户输入点用鼠标选取点坐标，并把坐标值赋给p1、p2两个变量。ThisDrawing.Utility.GetPoint（）在ACAD中这是最常用的方法之一，它需要两个参数，在逗号前面的参数应该是一个点坐标，它的作用是在屏幕上画一条线，前一个端点位于点坐标位置，后一个端点跟随鼠标移动，逗号之前可以什么都不填，这时没有线条会跟随鼠标移动，但逗号必须保留。
逗号后面使用一串字符，程序在命令行显示这串字符，这不难理解。
VbCr通常代表一个回车符，而在这个语句中，它的作用是在命令行不显示“命令：”
&的作用是连接字符。举例：
“爱我中华 ”&”抵制日货 ”&”从我做起”

z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值
由用户输入一个实数

On Error GoTo Err_Control '出错陷井
……
Err_Control:
On Error是出错陷井语句，在程序出错时将执行On Error 后面的语句
GoTo Err_contorl 是程序跳转语句，它的作用是在程序中寻找Err_control:，并执行这一行后面的语句，本例中Err_Control:后就是结束宏，所以只要出现错误，程序中止。

说明：补充资料仅用于学习参考，请勿用于其它任何用途。

首页 \| 翻译 \| 影视 \| 论坛 \| 索引 AutoCAD 《AutoCAD》 Excel-VBA

1) AutoCAD VBA AutoCAD VBA 1. Stress Analysis of Decoiler Spline Based on AutoCAD VBA and ANSYS; 基于AutoCAD VBA和ANSYS的开卷机传动花键应力分析 2. The Parameter-design System of the Mixing Blades of the Concrete Transportation Truck Based on AUTOCAD VBA; 基于AUTOCAD VBA的混凝土搅拌运输车叶片参数化设计系统 3. Parametric Design of Transformer Core Sheet with AutoCAD VBA; 用AutoCAD VBA实现变压器铁心片图的参数化设计 2) AutoCAD VBA AutoCAD VBA编程 1. This drawing management system is based on database technology, AutoCAD VBA technology and ASP technology. 本文就以电力工程图纸管理系统的开发,提出了一种图纸管理的全新模式,主要依靠数据库技术、AutoCAD VBA编程技术和ASP网页设计技术,解决了图纸管理问题,收到了显著的成效。 3) AutoCAD 2000 VBA AutoCAD 2000 VBA 1. Plotting Colored Stress Patterns with AutoCAD 2000 VBA; 用AutoCAD 2000 VBA技术画应力场云图 4) AutoCAD-VBA development AutoCAD-VBA开发 5) VBA VBA 1. Parametric Design and Realization of Stamping Die Standard-part Based on VBA; 基于VBA的冲模标准件参数化设计与实现 2. AutoCAD VBA-Based Exploitation of CAD System for Gear Hob; 基于AutoCAD VBA的齿轮滚刀CAD系统开发 3. Research on NC Simulation System Based on AutoCAD and VBA; 基于AutoCAD及VBA的数控仿真研究 6) visual basic for application VBA 1. The marking of normal dimension tolerance automatically by visual basic for application; 用VBA实现常用尺寸公差的自动标注参考词条 Excel VBA VBA（VislaulBasicForApplication） VBA（VasualBasicApplication） EXCEL/VBA VBA For Excel VBA EXCEL VBA（VisualBasicforApplication） VBA宏 VBA Access VisualBasic/VBA Word VBA VBA（VisualBasicforApplications） ExceI VBA AutoCAD 2000 AutoCAD Rx 全等变换 UB区补充资料：Autocad VBA初级教程 (第三课编程基础二) 有一位叫自然9172的网友提出了下面的问题：绘制三维多段线时X、Y值在屏幕上用鼠标选取，Z值用键盘输入本课将讲解这个问题。为了简化程序，这里用多条直线来代替多段线。以下是源码： Sub myl() Dim p1 As Variant '申明端点坐标 Dim p2 As Variant p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标 z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值 p1(2) = z '将Z坐标值赋予点坐标中 On Error GoTo Err_Control '出错陷井 Do '开始循环 p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标 z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值 p2(2) = z '将Z坐标值赋予点坐标中 Call ThisDrawing.ModelSpace.AddLine(p1, p2) '画直线 p1 = p2 '将第二点的端点保存为下一条直线的第一个端点坐标 Loop Err_Control: End Sub 先谈一下本程序的设计思路： 1、获取第一点坐标 2、输入第一点Z坐标 3、获取第二点坐标 4、输入第二点Z坐标 5、以第一、二点为端点，画直线 6、下一条线的第一点=这条线的第二点 7、回到第3步进行循环如果用户没有输入坐标或Z值，则程序结束。首先看以下两条语句： p1 = ThisDrawing.Utility.GetPoint(, "输入点:") ‘获取点坐标 …… p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & "输入下一点:") '获取下一个点的坐标这两条语句的作用是由用户输入点用鼠标选取点坐标，并把坐标值赋给p1、p2两个变量。ThisDrawing.Utility.GetPoint（）在ACAD中这是最常用的方法之一，它需要两个参数，在逗号前面的参数应该是一个点坐标，它的作用是在屏幕上画一条线，前一个端点位于点坐标位置，后一个端点跟随鼠标移动，逗号之前可以什么都不填，这时没有线条会跟随鼠标移动，但逗号必须保留。逗号后面使用一串字符，程序在命令行显示这串字符，这不难理解。 VbCr通常代表一个回车符，而在这个语句中，它的作用是在命令行不显示“命令：” &的作用是连接字符。举例： “爱我中华 ”&”抵制日货 ”&”从我做起” z = ThisDrawing.Utility.GetReal("Z坐标:") '用户输入Z坐标值由用户输入一个实数 On Error GoTo Err_Control '出错陷井 …… Err_Control: On Error是出错陷井语句，在程序出错时将执行On Error 后面的语句 GoTo Err_contorl 是程序跳转语句，它的作用是在程序中寻找Err_control:，并执行这一行后面的语句，本例中Err_Control:后就是结束宏，所以只要出现错误，程序中止。说明：补充资料仅用于学习参考，请勿用于其它任何用途。
©2008 dictall.com