摘要：零点，桌面。为啥live writer不能插入图片。 阅读全文
AutoCAD VBA选择集操作
2011-03-21 22:41 by 精诚所至 金石为开, 4707 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA选择集操作，示例代码如下。 Public Sub Test() Dim pt1(0 To 2) As Double Dim pt2(0 To 2) As Double Dim pt3(0 To 2) As Double Dim pt4(0 To 2) As Double Dim pt5(0 To 2)... 阅读全文
AutoCAD VBA尺寸标注
2011-03-21 21:55 by 精诚所至 金石为开, 3625 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA尺寸标注，包括转角标注、对齐标注、角度标注、半径标注、直径标注和坐标标注，代码如下。 Public Function AddDimAligned(ByVal pt1 As Variant, ByVal pt2 As Variant, ByVal ptText As Variant) As AcadDimAligned Set AddDimAligned =... 阅读全文
360安全卫士更换新的图标
2011-03-21 20:04 by 精诚所至 金石为开, 730 阅读, 0 推荐, 收藏, 编辑
摘要：360最新版本启用了新的图标，将原来的盾牌图标换成了球形图标。网上很多人都在讨论，有人支持就有有人反对，一大部分老用户都觉得原来的盾形图标符合“安全卫士”的特点，新的图标不伦不类，放在桌面上都找不到在哪了，支持的用户说，也该换个新的图标了，老的都看腻了，况且很多安全产品都是盾形图标，没有自己的特色，看360官方给出的新的图标的含义： 新品牌标识呈顺时针旋转，与中心的“+”符号相得益彰，共同诠释了... 阅读全文
AutoCAD VBA面域操作
2011-03-21 15:51 by 精诚所至 金石为开, 1096 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA面域操作，和图案填充类似，代码如下。 Public Function AddRegion(ByRef objList() As AcadEntity) As Variant On Error GoTo errHandle AddRegion = ThisDrawing.ModelSpace.AddRegion(objList) ... 阅读全文
千万别挤
2011-03-21 15:07 by 精诚所至 金石为开, 185 阅读, 0 推荐, 收藏, 编辑
摘要：你，不要挤！世界那么大， 它容纳得了我，也容纳得了你。 所有的大门都敞开着， 思想的王国是自由的天地。 你可以尽情地追求， 追求那人间最好的一切。 只是你得保证， 保证你自己不使别人感受压抑。 ... 阅读全文
AutoCAD VBA实体填充
2011-03-21 15:00 by 精诚所至 金石为开, 1721 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA图案填充，包括图案填充、真彩色填充和渐变填充，代码如下。 Public Function AddHatch(ByRef objList() As AcadEntity, ByVal patType As Integer, ByVal parName As String, ByVal associativity As Boolean) As AcadHatch ... 阅读全文
AutoCAD VBA简单文字操作
2011-03-21 13:57 by 精诚所至 金石为开, 1067 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA简单文字操作，包括几个简单的文字操作函数，代码如下。 Public Function AddText(ByVal text As String, ByVal ptinsert As Variant, ByVal height As Double) As AcadText Set AddText = ThisDrawing.ModelSpace.AddTex... 阅读全文
2011年3月21日星期一
2011-03-21 10:04 by 精诚所至 金石为开, 193 阅读, 0 推荐, 收藏, 编辑
摘要：昨晚梦回初中，下了很大雨，操场积水很深，体育老师带我们游泳，不可思议。 阅读全文
小小的折腾一下
2011-03-20 23:55 by 精诚所至 金石为开, 187 阅读, 0 推荐, 收藏, 编辑
摘要：什么东西看的时间长了都会腻的，这就叫喜新厌旧，WP默认主题虽然强大但是单调，决定换成宽屏主题：Fluid Blue theme，这个主题是相当简洁，不过界面比默认主题漂亮多了，不小心搞了2个小时，改字体大小，换代码，重新整理插件。 累。 接着努力学习VBA。 阅读全文
AutoCAD VBA创建椭圆和样条曲线
2011-03-20 20:24 by 精诚所至 金石为开, 870 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA创建椭圆和样条曲线，代码如下。 Public Function AddEllipse(ByVal ptCen As Variant, ByVal ptmajAxis As Variant, ByVal radRatio As Double) As AcadEllipse Set AddEllipse = ThisDrawing.ModelSpace.Add... 阅读全文
AutoCAD VBA创建圆弧
2011-03-20 19:40 by 精诚所至 金石为开, 841 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA创建圆弧，已经圆心、起点和终点；圆心、起点和角度；三点法；圆心、起点和弧长等。代码如下。 ‘模块中代码 Public Function AddArcCSEA(ByVal ptCen As Variant, ByVal radius As Double, ByVal stAng As Double, ByVal enAng As Double) As AcadAr... 阅读全文
AutoCAD VBA创建圆
2011-03-20 16:52 by 精诚所至 金石为开, 446 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA创建圆，包括利用圆心半径、圆心直径、两点法和三点发四种方式，代码如下。 Public Function AddCircle(ByVal ptCen As Variant, ByVal radius As Variant) As Variant Dim objCir As AcadCircle Set objCir = ThisDrawing.Mode... 阅读全文
AutoCAD VBA基本多段线操作
2011-03-20 15:46 by 精诚所至 金石为开, 1202 阅读, 0 推荐, 收藏, 编辑
摘要：AutoCAD VBA基本多段线操作，包括创建直线，圆，圆弧等，代码如下。 Public Function AddLWPline(ByRef pt() As Double, ByVal width As Double) As AcadLWPolyline Dim objPline As AcadLWPolyline If (UBound(pt) + 1) Mod 2 0... 阅读全文