代码改变世界

随笔档案-2011年3月22日

AutoCAD VBA基于对象的分层

2011-03-22 22:23 by 精诚所至 金石为开, 612 阅读, 收藏,
摘要： AutoCAD VBA基于对象的分层，讲不同对象根据特性分层，代码如下。 Dim Value As Variant Value = ThisDrawing.GetVariable("cmdecho") ThisDrawing.SetVariable "cmdecho", 0 Dim ObjLayer As AcadLayer Set O... 阅读全文

AutoCAD VBA根据对象缩放

2011-03-22 21:54 by 精诚所至 金石为开, 437 阅读, 收藏,
摘要： AutoCAD VBA根据对象缩放，代码如下。代码完。 阅读全文

AutoCAD VBA对象的组合和拆散

2011-03-22 21:11 by 精诚所至 金石为开, 1001 阅读, 收藏,
摘要： AutoCAD VBA对象的组合和拆散，很好用的操作，代码如下。 Sub AddUnNameGroup() Dim SelObjects As AcadSelectionSet Dim appendObjs() As AcadEntity Set SelObjects = GetSelSet Dim UnNameGroup As Aca... 阅读全文

AutoCAD VBA对齐对象

2011-03-22 20:33 by 精诚所至 金石为开, 674 阅读, 收藏,
摘要： AutoCAD VBA对齐对象，代码如下。 Sub AlignEnt() Dim ss As AcadSelectionSet Set ss = CreateSelectionSet ss.SelectOnScreen Dim ent As AcadEntity Dim MinPoint As Variant ... 阅读全文

AutoCAD VBA多重延伸

2011-03-22 20:06 by 精诚所至 金石为开, 795 阅读, 收藏,
摘要： AutoCAD VBA多重延伸，将多条直线延伸至同一条直线，代码如下。 Public Sub MultiExtend() Dim number As Integer Dim ObjSelectionSet As AcadSelectionSet number = ThisDrawing.SelectionSets.Count While... 阅读全文

CAD二次开发语言简介

2011-03-22 18:29 by 精诚所至 金石为开, 1866 阅读, 收藏,
摘要： CAD二次开发，有很多不同层次的语言和库可供选择。首先是VisualLisp和AutoLisp。Lisp是一门历史悠久的函数式编程语言，很多概念和C这种过程式语言不一样，据说他在人工智能等方面有广泛的应用。CAD引入了这种语言，给他添加相应的函数库，就成了命令行使用的AutoLisp。在此基础上再增加关于对话框和窗口界面的库，就是VisualLisp，简称VL。VL在CAD中可以视为CAD命令的整合，是脚本语言，而且由CAD程序提供了编写环境。因此上手相当容易，便于编写，调试也很方便。不过由于是脚本语言，就有两大缺陷。第一是速度，当程序规模很大或是操作的对象数量过多时，你会明显感觉到迟钝。第二 阅读全文

AutoCAD VBA单行文字转换为多行文字

2011-03-22 16:41 by 精诚所至 金石为开, 1234 阅读, 收藏,
摘要： AutoCAD VBA单行文字转换为多行文字，多行文字便于编辑，代码如下。 Public Sub TextToMtext() On Error Resume Next Dim ptInsert As Variant Dim txtStr As String Dim height As Double Dim width As... 阅读全文

2011年3月22日星期二

2011-03-22 00:05 by 精诚所至 金石为开, 166 阅读, 收藏,
摘要： 零点，桌面。为啥live writer不能插入图片。 阅读全文