代码改变世界

随笔档案-2011年3月19日

AutoCAD VBA第一个程序：Hello VBA!

2011-03-19 23:41 by 精诚所至 金石为开, 428 阅读, 收藏,
摘要： AutoCAD VBA第一个程序：Hello VBA!，像Hello world一样经典，代码如下。 Public Sub HelloVBA()Dim pt(0 To 2) As Doublept(0) = 100pt(1) = 100pt(2) = 0Dim value As Integervalue = MsgBox("Hello VBA!", vbNewLine & "是否在图形中添加？"... 阅读全文

AutoCAD VBA欢迎窗口程序

2011-03-19 21:57 by 精诚所至 金石为开, 534 阅读, 收藏,
摘要： AutoCAD VBA欢迎程序，代码如下。 Public Sub HelloVba() Dim strname As String strname = InputBox("请输入你的名字", "helloVBA", "My Friend") MsgBox strname & "让我们在图形窗口中欢迎你！" Dim text As AcadText ... 阅读全文

Auto CAD VBA画100个圆

2011-03-19 20:47 by 精诚所至 金石为开, 564 阅读, 收藏,
摘要： Auto CAD VBA画100个圆，代码如下。 Sub CreateCircles() Dim cc(0 To 2) As Double cc(0) = 100 cc(1) = 100 cc(2) = 0 For I = 1 To 1000 Step 10 Call ThisDrawing.ModelSpace.AddCircle... 阅读全文

AutoCAD VBA 简单的绘制一条直线

2011-03-19 20:27 by 精诚所至 金石为开, 587 阅读, 收藏,
摘要： AutoCAD VBA绘制一条直线，代码如下。 Public Function CreateLine() Dim StartPoint(0 To 2) As Double Dim EndPoint(0 To 2) As Double StartPoint(0) = 0 StartPoint(1) = 0 StartPoint(2) = 0 ... 阅读全文

AutoCAD VBA标注圆弧长度

2011-03-19 19:24 by 精诚所至 金石为开, 648 阅读, 收藏,
摘要： AutoCAD VBA标注圆弧长度，代码如下。 Public Sub DimArcLeng() Dim Arc As AcadArc Dim Pnt As Variant Err.Clear On Error Resume Next ThisDrawing.Utility.GetEntity Arc, Pnt, "请选择圆弧：" I... 阅读全文

AutoCAD VBA提取多行文字内容

2011-03-19 17:01 by 精诚所至 金石为开, 3392 阅读, 收藏,
摘要： AutoCAD VBA，提取多行文字内容，代码如下。 Public Function GetMTextUnformatString(MTextString As String) As String Dim s As String Dim RE As Object Set RE = ThisDrawing.Application.GetInterfaceObjec... 阅读全文

AutoCAD VBA文字自动对齐操作

2011-03-19 16:09 by 精诚所至 金石为开, 1606 阅读, 收藏,
摘要： AutoCAD VBA文字自动对齐，代码如下。 Public Type TextWithPnt Index As Long TextObj As AcadText PntIntX As Double PntIntY As Double PntLeftX As Double PntMidX As Double PntRigX... 阅读全文

不要把网站推广做成负面推广

2011-03-19 14:01 by 精诚所至 金石为开, 247 阅读, 收藏,
摘要： 在互联网上，不存在“酒香不怕巷子深”的说法，大家都明白，一个网站再好，也需要主动去推广。但推广是不是就是万能的呢？是不是通过推广就能起到“点石成金”的效果呢？我想答案基本上是不可能的。推广只是网站运营的一部分，对于网站推广来说，平台是基础，内容是关键。这就好比开餐厅，菜做的不好吃、就餐环境差、卫生条件不达标，那再怎么宣传也终究是要关门大吉的。网站推广同样如此，如果网站基础没有打好，那所有的推广几乎... 阅读全文

AutoCAD VBA 按图层进行缩放

2011-03-19 11:15 by 精诚所至 金石为开, 672 阅读, 收藏,
摘要： AutoCAD二次开发，按图层进行缩放操作，代码如下。 Private Function GetLeftBottomPt(ByRef ptArr() As Variant) As Variant Dim ptleftbottom(0 To 2) As Double Dim i As Long For i = 0 To UBound(ptArr) If ... 阅读全文