摘要：
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)... 阅读全文
随笔档案-2011年3月21日
AutoCAD VBA尺寸标注
2011-03-21 21:55 by 精诚所至 金石为开, 3920 阅读, 收藏,
摘要：
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 精诚所至 金石为开, 791 阅读, 收藏,
摘要：
360最新版本启用了新的图标，将原来的盾牌图标换成了球形图标。网上很多人都在讨论，有人支持就有有人反对，一大部分老用户都觉得原来的盾形图标符合“安全卫士”的特点，新的图标不伦不类，放在桌面上都找不到在哪了，支持的用户说，也该换个新的图标了，老的都看腻了，况且很多安全产品都是盾形图标，没有自己的特色，看360官方给出的新的图标的含义： 新品牌标识呈顺时针旋转，与中心的“+”符号相得益彰，共同诠释了... 阅读全文
AutoCAD VBA面域操作
2011-03-21 15:51 by 精诚所至 金石为开, 1152 阅读, 收藏,
摘要：
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 精诚所至 金石为开, 191 阅读, 收藏,
摘要：
你，不要挤！世界那么大， 它容纳得了我，也容纳得了你。 所有的大门都敞开着， 思想的王国是自由的天地。 你可以尽情地追求， 追求那人间最好的一切。 只是你得保证， 保证你自己不使别人感受压抑。 ... 阅读全文
AutoCAD VBA实体填充
2011-03-21 15:00 by 精诚所至 金石为开, 1814 阅读, 收藏,
摘要：
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 精诚所至 金石为开, 1144 阅读, 收藏,
摘要：
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 精诚所至 金石为开, 199 阅读, 收藏,
摘要：
昨晚梦回初中，下了很大雨，操场积水很深，体育老师带我们游泳，不可思议。 阅读全文
浙公网安备 33010602011771号