代码改变世界

AutoVBA利用toolbar创建自己的工具栏

2011-06-06 17:47 by 精诚所至 金石为开, 1817 阅读, 0 推荐, 收藏,
摘要:把工具按钮添加到工具栏之前你需要创建一个新的工具栏,创建新的工具栏需调用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... 阅读全文

再牛X的梦想也抵不住傻X似的坚持

2011-06-01 23:48 by 精诚所至 金石为开, 295 阅读, 0 推荐, 收藏,
摘要: 阅读全文

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 ... 阅读全文
上一页 1 ··· 28 29 30 31 32 33 34 35 36 ··· 51 下一页