摘要：很悲剧，这个刚才发过一遍了，用WLW发布那个分享FLASH殿堂之路和动画教程的时候，忘了新建日志，结果直接把这个覆盖了，只能再发一遍。 视频在线观看地址：http://www.youku.com/playlist_show/id_5360219.html。 视频打包下载地址：http://u.115.com/file/t4434db08c。 优酷视频可以用IKU软件下载，在视频播放地址下面点... 阅读全文
分享两本FLASH教程PDF版电子书
2011-03-20 15:06 by 精诚所至 金石为开, 381 阅读, 0 推荐, 收藏, 编辑
摘要：一本是Flash.ActionsCript3.0动画教程，一本是Flash.ActionScript3.0殿堂之路。 相当不错的电子书，殿堂之路相对简单，建议新手看，动画教程是外国牛人编写的，对新手来说可能有点吃力，不过这本书我还是强力推荐，如果能坚持看完的话，相信你的编程技术会上升一个台阶。 殿堂之路下载地址：http://u.115.com/file/f4782e787b。 动画教程下载... 阅读全文
瑞星杀毒永久免费
2011-03-20 12:18 by 精诚所至 金石为开, 192 阅读, 0 推荐, 收藏, 编辑
摘要：3月17日，超级月亮，可惜上海下雨。 3月18日，瑞星杀毒宣布个人用户永久免费。 详情地址：http://www.rising.com.cn/free/index.html。 有机会试试。 阅读全文
AutoCAD VBA第一个程序：Hello VBA!
2011-03-19 23:41 by 精诚所至 金石为开, 403 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 521 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 476 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 558 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 611 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 3307 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 1539 阅读, 0 推荐, 收藏, 编辑
摘要：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 精诚所至 金石为开, 240 阅读, 0 推荐, 收藏, 编辑
摘要：在互联网上，不存在“酒香不怕巷子深”的说法，大家都明白，一个网站再好，也需要主动去推广。但推广是不是就是万能的呢？是不是通过推广就能起到“点石成金”的效果呢？我想答案基本上是不可能的。推广只是网站运营的一部分，对于网站推广来说，平台是基础，内容是关键。这就好比开餐厅，菜做的不好吃、就餐环境差、卫生条件不达标，那再怎么宣传也终究是要关门大吉的。网站推广同样如此，如果网站基础没有打好，那所有的推广几乎... 阅读全文
AutoCAD VBA 按图层进行缩放
2011-03-19 11:15 by 精诚所至 金石为开, 653 阅读, 0 推荐, 收藏, 编辑
摘要：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 ... 阅读全文
AutoCAD VBA计算多段线的长度
2011-03-18 18:13 by 精诚所至 金石为开, 2323 阅读, 0 推荐, 收藏, 编辑
摘要：计算多段线的长度，代码如下。 Sub PolyLineLength() Dim Pnt As Variant Dim Ent As AcadEntity On Error Resume Next Do ThisDrawing.Utility.GetEntity Ent, Pnt, "选择多段线：" If Err Then... 阅读全文
AutoCAD VBA天圆地方的放样展开图
2011-03-18 18:13 by 精诚所至 金石为开, 875 阅读, 0 推荐, 收藏, 编辑
摘要：天圆地方展开图，代码如下。 Public Sub Main() Const PI As Double = 3.1415926 On Error Resume Next Dim pt0 As Variant, ptBase(2) As Double pt0 = ThisDrawing.Utility.GetPoint(, vbCrLf & "请输... 阅读全文
AutoCAD VBA 直线、圆、圆弧转化为多段线
2011-03-18 18:12 by 精诚所至 金石为开, 3122 阅读, 0 推荐, 收藏, 编辑
摘要：转化多段线，代码如下。 Private Function AddLWPlineSeg(ByVal ptSt As Variant, ByVal ptEn As Variant, ByVal width As Double) As AcadLWPolyline Dim objPline As AcadLWPolyline Dim ptArr(0 To 3) As Dou... 阅读全文