摘要：把工具按钮添加到工具栏之前你需要创建一个新的工具栏，创建新的工具栏需调用Add方法新建一个Toolbar对象并把它添加到Toolbars集合中。要把按钮添加到新的工具栏中，必须调用Toolbar对象中的AddToolbarButton方法，该方法在调用中需要四个变元来传递参数。 第一个变元Index参数决定添加的按钮在工具栏中的位置。 第二个边缘Name参数决定了按钮提示信息，类似Toolti... 阅读全文
2011年6月5日星期天
2011-06-05 20:12 by 精诚所至 金石为开, 205 阅读, 0 推荐, 收藏,
摘要：今天折腾了一下回复邮件通知功能，可能是空间没有邮件功能，安装了WP thread commant插件后，测试邮件通知功能无效。后百度需安装另一插件Configure SMTP插件，利用QQ邮箱的SMTP功能，后测试成功，第一次感觉腾讯的东西还是有实用价值。 今天是2011年6月5日星期天，alexa排名第一次进了100万，排名：989196，标记一下。 阅读全文
AutoVBA会制图元填充指定图案
2011-06-04 23:08 by 精诚所至 金石为开, 370 阅读, 0 推荐, 收藏,
摘要：贴一段代码先。 Sub drawcircularpavers() Dim brickcircles() As AcadCircle Dim counter As Integer, radius As Double Dim center As Integer ReDim brickcircles(txtnumberofci... 阅读全文
AutoVBA利用Hacth对象填充图元对象
2011-06-04 22:32 by 精诚所至 金石为开, 975 阅读, 0 推荐, 收藏,
摘要：通过Hacth对象可以对图元进行填充，可以使用CBD自带的图案，或者使用外部图库中的图案或者自定义临时填充。创建Hatch对象并将其添加到ModelSpace集合，该函数需三个参数。以下代码绘制一个Circle对象并创建填充。 Sub drawfilledcircle() Dim hatchobject As AcadHatch Dim outerci... 阅读全文
AutoVBA调用AddCricle方法绘制圆
2011-06-02 22:53 by 精诚所至 金石为开, 490 阅读, 0 推荐, 收藏,
摘要：利用VBA宏代码调用AddCircle方法绘制圆，该函数需要两个参数，一个用来定义圆心坐标的数组，一个定义圆半径的实数。可以将其存放在变量中获取利用该函数创建的圆。 利用AddCircle方法绘制圆的示例代码如下。 Public Sub drawcircle() Dim circleobject As AcadCircle Dim center As V... 阅读全文
AutoVBA利用for循环创建同心圆弧
2011-06-02 22:33 by 精诚所至 金石为开, 330 阅读, 0 推荐, 收藏,
摘要：AutoVBA在一个For循环中调用AddArc方法，创建许多不同大小的同心弧，程序代码如下。 Sub lotsofarcs() Dim newarobj As AcadArc Dim center As Variant Dim radius As Variant Dim startangle As Double, en... 阅读全文
AutoVBA利用AddArc方法创建Arc对象
2011-06-02 22:10 by 精诚所至 金石为开, 681 阅读, 0 推荐, 收藏,
摘要：在AutoVBA中可以利用AddArc方法创建Arc对象，该方法需要有四个参数才能绘制圆弧，参数分别是圆心、半径、起始角和终止角，用来确定圆弧的位置和长度。利用Utility对象绘制圆弧的代码如下。Public Sub drawarc() Dim newarcobj As AcadArc Dim center As Variant Dim radius As Double Dim startangle As Double, endangle As Double With ThisDrawing.Utility center = .G... 阅读全文
AutoCAD利用VBA宏绘制多重平行线
2011-06-02 21:42 by 精诚所至 金石为开, 563 阅读, 0 推荐, 收藏,
摘要：多重平行线有多种多样的样式，主要用于绘制像墙之类的的平行线的场合，当你使用多种的标准绘制直线时，需要另外一条线来设置距离。 绘制多重平行线的代码如下。 Sub mylines() Dim multilineobj As AcadMLine Dim vertices(0 To 17) As Double vertices(0) = 3: ... 阅读全文
AutoVBA利用宏高亮显示图元
2011-06-02 20:56 by 精诚所至 金石为开, 636 阅读, 0 推荐, 收藏,
摘要：使用Heightlight方法，可以确定是否高亮显示图元，以直线为例，当一条直线高亮显示时，它是用直线绘制的。 高亮显示直线的代码如下。 Sub highlightline() If ThisDrawing.ModelSpace.Count = 0 Then MsgBox "there is no line to heightlight!" ... 阅读全文
AutoCAD利用VBA设置线型和添加用户自定义线性
2011-06-02 00:24 by 精诚所至 金石为开, 1758 阅读, 0 推荐, 收藏,
摘要：利用VBA添加线型的代码如下。 Sub addnewlinetype() Dim dashedline As AcadLineType ThisDrawing.Load "dashed2", "acad.lin" Set dashedline = ThisDrawing.Linetypes.Item(ThisDrawing.Linetyp... 阅读全文
AutoVBA控件的tabindex和tabstop属性及with语句
2011-06-01 22:33 by 精诚所至 金石为开, 1436 阅读, 0 推荐, 收藏,
摘要：控件的tabindex属性用来确定控件被放置在用户窗体上的顺序，它决定了当用户按下tab键时控件的转换顺序。tabstop属性用来确定控件是否高亮显示，那些不能与用户交互的控件的tabstop属性被设置为false。 with语句能将一个项目纳入到使用该项目的所有语句中，无需每次都对其进行设置。简单来讲就是能同时对一个控件的多个属性或方法进行控制，例如现在需要对label控件的height，wi... 阅读全文
AutoCAD利用VBA宏绘制直线
2011-06-01 21:56 by 精诚所至 金石为开, 2895 阅读, 0 推荐, 收藏,
摘要：利用VBA宏代码绘制直线，可以设置线性，设置直线颜色，对直线进行操作。 绘制直线主要用到addline函数，该函数接受两个参数，第一个参数指点直线起点startpoint，第二个参数指定直线终点endpoint，新的直线实例被添加到绘图空间。 定义绘制直线的函数creatline，代码如下。 Sub creatline() Dim startpoint(0 To 2) ... 阅读全文
AutoVBA获取基本图元对象
2011-05-31 22:06 by 精诚所至 金石为开, 750 阅读, 0 推荐, 收藏,
摘要：AutoVBA获取基本图元对象，以LINE为例，代码如下。 Public Sub animatedline() Dim mylineobject As AcadLine Dim startmovevector(0 To 2) As Double Dim endmovevector(0 To 2) As Double Di... 阅读全文
AutoVBA在绘图空间创建直线对象
2011-05-31 21:49 by 精诚所至 金石为开, 298 阅读, 0 推荐, 收藏,
摘要：AutoVBA在绘图空间创建LINE对象，代码如下。 Public Sub creatline() Dim mylineobject As AcadLine Dim startpoint(0 To 2) As Double Dim endpoint(0 To 2) As Double startpoint(0) = 1 ... 阅读全文
浙公网安备 33010602011771号