摘要：
成为一个优秀的程序员和成为其他优秀的专业人员一样，需要尽可能多的做一些有质量的工作。有句很流行的话可以总结：做，正确做事，立马就做（Do it. Do it right. Do it right now）。 0、将一天要做的事情列成清单 完成复杂活动（activity）的最好方法是将其拆分成简单的各项活动。每天早上，将你一天要完成的活动进行拆分，然后制定一个相应的日程安排表，这样能够帮助你： ... 阅读全文
随笔档案-2011年06月
用WLW发布文章时发生服务器无响应错误
2011-06-29 20:54 by 精诚所至 金石为开, 211 阅读, 收藏, 编辑
摘要：
从前天开始用WLW发布文章时，发生错误提示：服务器无响应：链接XML-RPC时无响应，连续两天一直如此。 解决方法，找到网站文件wp-includes中找到class.IXR.php文件，下载到本地，修改其中的代码：$legth=strlen($xml)为$legth=strlen($xml)+3，保存文件，再上传覆盖源文件，问题解决。 终于还是这样子，单靠一种技术是不会做出像样的东西来的，有... 阅读全文
前天我放学回家
2011-06-28 23:04 by 精诚所至 金石为开, 318 阅读, 收藏, 编辑
摘要：
前天 我放学回家 锅里有碗油盐饭 昨天 我放学回家 锅里没有一碗油盐饭 今天 我放学回家 炒了一碗油盐饭 放在妈妈的坟前 阅读全文
这是一个错误的程序
2011-06-21 16:43 by 精诚所至 金石为开, 420 阅读, 收藏, 编辑
摘要：
(defun c:dp (/ os dist e pt1 pt2 pt3 a) (command "cmdecho" 0) (setq lwe (getvar "useril")) (if (= lwe 0) (progn (initget (+ 2 4)) (setq... 阅读全文
2011年6月20日星期一
2011-06-20 22:27 by 精诚所至 金石为开, 210 阅读, 收藏, 编辑
摘要：
今天有点小纠结，该看的书都看完了，代码基本都写了一遍，感觉自己毫无进步，实验的事基本就绪。 2011年6月20日星期一晚22点22分能源与动力馆。 阅读全文
VB编程操作AutoCAD尺寸标注样式
2011-06-20 20:32 by 精诚所至 金石为开, 1169 阅读, 收藏, 编辑
摘要：
尺寸标注样式是决定尺寸标注外观的一组设置，例如，可以通过属性设置一组尺寸标注的尺寸线的颜色、箭头大小和标注文字高度，然后为这些尺寸创建一个尺寸标注样式，以后标注尺寸时，只要将这一尺寸标注样式设置为当前尺寸标注样式，标注的尺寸均与该尺寸标注样式定义的外观相同，没有定义尺寸标注样式之前，AutoCAD默认以系统默认样式标注。 创建尺寸标注样式。 尺寸标注样式的创建方法是先用尺寸标注样式DimSty... 阅读全文
VB编程修改AutoCAD坐标型尺寸标注
2011-06-19 22:55 by 精诚所至 金石为开, 601 阅读, 收藏, 编辑
摘要：
坐标型尺寸标注的编辑与长度性尺寸标注的编辑相似，属性相同，为了使标注更加清楚，可以利用TextPrefix属性给坐标型尺寸标注添加汉字前缀，下面的代码标注一个圆的中心坐标，分别设置引导线终点坐标和被标注点坐标的X或Y值相等，并给坐标添加汉字前缀。 Private Sub Command1_Click() Dim dimobj As AcadDimOrdinate ... 阅读全文
VB编程修改AutoCAD长度型尺寸标注
2011-06-19 22:35 by 精诚所至 金石为开, 950 阅读, 收藏, 编辑
摘要：
用于长度型尺寸标注编辑的属性十分丰富，TextOverride属性可用于修改尺寸标注的文本，该属性适用于除了导线型标注之外的所有尺寸标注对象，尺寸标注的默认数值默认显示为AutoCAD自动计算的实际测量值。 要修改尺寸标注的文本显示，可设置TextOverride属性，用自定义字符串取代实际测量值。下面的程序用AddDimAligned方法返回尺寸标注的实际测量值，设置TextOverride属... 阅读全文
VB编程操作AutoCAD导线型尺寸标注
2011-06-19 22:05 by 精诚所至 金石为开, 450 阅读, 收藏, 编辑
摘要：
导线型尺寸标注用来添加旁注、说明文字，创建导线型型标注对象用AddLeader方法，语法格式如下。 RelVal=object.AddLeader(PointsArray,Annotation,Type) 下面的程序创建并显示一个有箭头的导线型标注。 Private Sub Command1_Click() Dim leaderobj As AcadLeader... 阅读全文
VB编程操作AutoCAD坐标型尺寸标注
2011-06-19 21:38 by 精诚所至 金石为开, 554 阅读, 收藏, 编辑
摘要：
坐标型尺寸标注用来标注零部件上某点相对于原点的垂直距离，创建坐标型尺寸标注对象用AddDimOrdinate方法，语法格式如下。 RetVal=object.AddDimOrdinate(DefinitionPoint,LeaderEndPoint,UseXAxis) 下面的代码创建一个坐标型尺寸标注。 Private Sub Command1_Click() ... 阅读全文
VB编程操作AutoCAD角度型尺寸标注
2011-06-18 21:53 by 精诚所至 金石为开, 493 阅读, 收藏, 编辑
摘要：
角度型尺寸标注用来标注两条直线或三个点之间的角度，创建角度型尺寸标注对象AddDimAngular方法，语法格式如下。 RetVal=object.AddDimangular(AngleVertex,FirstEndPoint,SecondEndPoint,TextPoint) 下面的代码创建一个角度型标注对象。 Private Sub Command1_Click() ... 阅读全文
VB编程操作AutoCAD半径和直径型尺寸标注
2011-06-18 21:40 by 精诚所至 金石为开, 949 阅读, 收藏, 编辑
摘要：
半径或直径型尺寸标注用来标注圆或圆弧，半径或直径型标注的类型与圆或圆弧的大小，TextPosition属性有关也与尺寸标注系统变量DIMUPT、DIMTOFL、DIMTIH、DIMTOH、DIMJUST、DIMTAD的值有关，系统变量用GetVariable和SetVariable方法返回。 创建半径型尺寸标注对象用AddDimRadial方法，语法格式如下。 RetVal=object... 阅读全文
VB编程操作AutoCAD长度型尺寸标注
2011-06-18 20:59 by 精诚所至 金石为开, 1219 阅读, 收藏, 编辑
摘要：
长度型尺寸标注包括平行标注与指定角度标注，平行标注的尺寸线平行于尺寸界线起点所在的直线，指定角度标注的尺寸线与尺寸界线起点所在的直线成一定角度。 用AddDimAligned方法创建平行尺寸标注对象，语法格式如下。 RetVal=object.AddDimAligned(ExtLine1Point,ExtLine2Point,TextPosition) 创建指定角度标注对象用AddD... 阅读全文
VB编程操作AutoCAD多行文字
2011-06-18 20:32 by 精诚所至 金石为开, 765 阅读, 收藏, 编辑
摘要：
多行文本常用来显示AutoCAD中的文字说明、注释和技术性要求，多行文字的创建和应用和单行文字类似，用文档对象的AddText方法可以创建多行文字对象，该方法需要三个参数：文字字符串、文本插入点和文本的宽度，语法格式如下。 RetVal=object.AddMText(Insertionpoint,Width,Text) 下面的代码创建一个多行文本。 Private Sub C... 阅读全文
VB编程设置AutoCAD单行文本格式
2011-06-18 19:54 by 精诚所至 金石为开, 1160 阅读, 收藏, 编辑
摘要：
格式化单行文本 文本对象除了具有其它实体对象的公共属性之外，可以用一下属性修改文本对象的显示格式，Alignment设置文本水平或垂直对齐；InsertionPoint设置文本的插入点；ObliqueAngle设置文本的倾斜角度；Rotation设置文本对象的旋转角度；ScaleFactor设置文本的比例系数；TextAlignmentPoint设置文本的对齐点；TextGenerati... 阅读全文
VB编程操作AutoCAD单行文字
2011-06-17 21:57 by 精诚所至 金石为开, 1201 阅读, 收藏, 编辑
摘要：
用文档对象的AddText方法可以创建单行文本对象，结合文本字体设置，可以显示丰富多彩的文字，创建单行文本的语法如下所示。 RetVal=object.AddText(TextString,InsertionPoint,Height) RetVal新创建的单行文本对象，Object模型空间、图纸空间块对象，TextString字符串型，要显示的文本内容，InsertionPoint双精... 阅读全文
VB编程设置AutoCAD文字样式
2011-06-17 21:44 by 精诚所至 金石为开, 2737 阅读, 收藏, 编辑
摘要：
文字在图纸中显示信息，AutoCAD提供了多种输入文本的方法，输入文本既可以采用当前默认的文字样式，也可以自己设置文本样式，TextStyle为文本样式对象，文本样式用来控制文字的字体、字宽、字高、排列方式和倾斜角度，系统默认样式为STANDARD样式。 可以用Add方法创建自己的文本样式对象，下面的语句创建一个名为Styobj的文本样式对象。 Dim styobj1 As AcadTe... 阅读全文
VB编程添加AutoCAD用户坐标系
2011-06-17 21:08 by 精诚所至 金石为开, 802 阅读, 收藏, 编辑
摘要：
用户使用的坐标系一般为世界坐标系，在某些情况下，自定义一个用户坐标系，可使绘图容易，UCS坐标系相对于WCS坐标系可以由平移和旋转，创建UCS语法格式如下。 RetVal=AcadApp.ActiveDocument.UserCoordinateSystems.Add(Origin,xAisPoint,yAxisPoint,Name) 下面的代码在WCS中创建一个长、宽均为4，高为1的... 阅读全文
VB编程操作AutoCAD块对象
2011-06-16 22:46 by 精诚所至 金石为开, 1802 阅读, 收藏, 编辑
摘要：
块对象指Blocks集合对象和Block对象，Blocks对象包含一个图形文档中的所有命名的图块，Block对象则包含构成一个图块的所有实体对象，块对象的创建与引用包含3个步骤：用块对象的Add方法创建一个命名块，向块对象添加实体，用InsertBlock方法将该块插入到任何地方，即引用块。 下面的代码创建一个块对象，并向块中添加一个圆，然后在不同位置插入该块对象。 Private Su... 阅读全文
VB编程操作AutoCAD线宽
2011-06-15 22:23 by 精诚所至 金石为开, 895 阅读, 收藏, 编辑
摘要：
Lineweight属性控制图形在屏幕上可以显示不同的宽度，线宽的使用包括设置线宽和显示线宽，线宽的设置与显示可以使用户在绘图中减少差错。 设置线宽 Lineweight属性设置线宽，语法格式：object.Lineweight。 Lineweight属性值不能任意设置，而是由内置常数决定，编程输入时将自动显示出来供选择，线宽默认单位为毫米，Lineweight属性默认值为25，即... 阅读全文
VB编程操作AutoCAD线型
2011-06-15 21:31 by 精诚所至 金石为开, 846 阅读, 收藏, 编辑
摘要：
制图标准规定，不同意义的线型需要不同的线型来描述。 使用线型 Linetype为线型对象，是线型集合的成员，通过破折号、点和空格的不同组合，行程不同的线型，每一个图形文件，系统均自动创建了3个线型对象：BYLARER，BYBLOCK和CONTINUOUS。 对象在创建时的线型继承所在的图层的线型，要使用其线型，首先用Linetype对象的Load方法装载线型，然后用Document对... 阅读全文
VB编程控制AutoCAD颜色属性
2011-06-15 21:05 by 精诚所至 金石为开, 846 阅读, 收藏, 编辑
摘要：
颜色属性Color可以设置图层的颜色，也可以设置其它对象的颜色，AutoCAD中不同的颜色用0-256的整数表示，常用的颜色用内置常数来表示，输入程序代码给Color属性赋值时，这些内置的常数会自动显示出来供用户选择。 acByBlock 随块 ... 阅读全文
VB编程操作AtuoCAD图层
2011-06-14 22:02 by 精诚所至 金石为开, 944 阅读, 收藏, 编辑
摘要：
通过设置各图层的不同属性，调用图层的方法，可对不同类的图形对象分组编辑和管理，例如，可以创建一个专门画中心线的图层，将图层颜色属性设置为蓝色，线性定义为中心线，当需要画中心线时，就转到该层即可，而不是每次画中心线时都重新设置线型和颜色。 创建并命名图层 新的图形文件建立时，系统自动创建一个名为”0“的图层，用Add方法可以创建新图层，也可同时给它命名。下面代码创建一个testlayer... 阅读全文
VB编程选择集的删除
2011-06-14 19:53 by 精诚所至 金石为开, 601 阅读, 收藏, 编辑
摘要：
选择集的删除有四种方法。 Clear方法将选择集清空，选择集依然存在，只是把选择集内的成员（各种实体对象）释放掉，但是这些成员在图形中仍然存在，只是不再属于这个选择集。 RemoveItems方法从选择集中移除一个或几个成员，被移除的成员仍然存在于图形中，只是不再属于这个选择集。 Erase方法删除选择集内的所有实体，删除后这个选择集依然存在，原来包含的实体对象被从图形中删除。 Delet... 阅读全文
VB编程在实体选择中使用过滤机制
2011-06-14 19:32 by 精诚所至 金石为开, 518 阅读, 收藏, 编辑
摘要：
过滤机制是指出实体对象的一个或多个特征，如颜色和层等要被检查，不符合条件的被过滤掉，只有符合条件的才能被选取并加入到选择集，过滤机制是一个使用了DXF组码得关联表。 只把圆对象加入选择集的过滤器代码如下。 ssetobj.Delete FilterType = 0 FilterData = "Circle" ssetobj.SelectOnScreen ... 阅读全文
VB编程用选择集选择实体对象
2011-06-14 19:12 by 精诚所至 金石为开, 1061 阅读, 收藏, 编辑
摘要：
一个选择集是一组指定的作为单个单元处理的AutoCAD对象，一个选择集可以由单个对象组成，也可以是更加复杂的组，比如在某一层上某一颜色的对象集，用选择集选择实体分为两步：创建选择集，将对象添加到选择集。 创建选择集 用Add方法创建选择 集，下面的语句创建一个名为TEST的新选择集。 Dim ssetobj As AcadSelectionSet Set ssetobj... 阅读全文
土鳖网站是怎样炼成的
2011-06-13 22:51 by 精诚所至 金石为开, 642 阅读, 收藏, 编辑
摘要：
土鳖网站处处有，中文网站特别多。一个中文网站土鳖不难，难的是所有中文网站一起土鳖。土鳖不可怕，就怕土鳖没变化；土鳖不可怕，就怕土鳖泛滥化。 19世纪俄国著名互联网观察家列夫·托尔斯泰说：“不土的网站各不相同，但土鳖的网站都是相似的。” 流氓无耻的行径 土鳖耍流氓，防不胜防。说到令人深恶痛绝的网站流氓行径，弹窗首当其冲。有弹窗的都不是好产品，QQ、旺旺弹出每日焦点，新浪首页弹出大幅F... 阅读全文
VB编程引用AutoCAD实体对象
2011-06-12 22:34 by 精诚所至 金石为开, 1020 阅读, 收藏, 编辑
摘要：
在使用实体对象属性或方法来编辑已经创建完毕的实体对象之前，必须用变量引用该对象，引用实体对象的方法有多种，可根据具体情况，选择恰当的方法来加以引用。 在创建实体的同时引用实体对象。 在创建实体对象时，Set语句设置的对象变量代表和引用该实体对象，下面的语句创建了一个圆对象，变量circleObj即引用该圆对象，可以设置属性，调用该方法来编辑该圆对象。语句circleObj=acRed设置Col... 阅读全文
VB编程编辑AutoCAD轻量多义线
2011-06-12 21:57 by 精诚所至 金石为开, 904 阅读, 收藏, 编辑
摘要：
创建一条轻量多义线并将第二段修改为圆弧。 Private Sub Command1_Click() Dim plineobj As AcadLWPolyline Dim points(0 To 9) As Double points(0) = 1: points(1) = 1 points(2) = 1: points(... 阅读全文
VB编程编辑AutoCAD样条曲线
2011-06-12 21:40 by 精诚所至 金石为开, 755 阅读, 收藏, 编辑
摘要：
编辑样条曲线的方法很多，可以通过对其进行拟合进行增加、移动和删除，提高拟合点的权重等操作，可以设置样条曲线的公差，可以提高样条曲线的等级总新定义样条曲线。 一下代码创建一条样条曲线，并改变公差，测试效果。 Private Sub Command1_Click() acadapp.ActiveDocument.SetVariable "SPLFRAME", 0 ... 阅读全文
VB编程改变AutoCAD圆对象的圆形坐标和半径
2011-06-12 21:04 by 精诚所至 金石为开, 766 阅读, 收藏, 编辑
摘要：
通过设置圆和圆弧实体的Center、Radius属性，可以改变其圆心坐标和半径值，通过返回其属性值，可以获取其圆心坐标和半径值。 下面的代码将模型空间的所有圆向上移动100的单位，并将半径减为原来的一半。 Private Sub Command1_Click() Dim i As Integer Dim currcenterpt As Variant ... 阅读全文
VB编程删除AutoCAD实体对象
2011-06-12 20:25 by 精诚所至 金石为开, 776 阅读, 收藏, 编辑
摘要：
实体对象的Erase方法可以删除选择区域内的所有对象。 object.Erase 实体对象的Delete方法可以删除当前对象，但是该方法不能删除模型空间集合、图层集合等。 object.Delete 阅读全文
VB编程对AutoCAD实体对象进行移动和旋转操作
2011-06-12 20:18 by 精诚所至 金石为开, 916 阅读, 收藏, 编辑
摘要：
实体对象的Move方法可将对象沿某一向量移动。 object.Move point1,point2 object所要移动的实体对象，point1、point2双精度型移动对象的起点与终点三维坐标点。 实体对象的Rotate方法可绕一个基点旋转实体对象。 object.Rotate BasePoint,RctationAngle object所要旋转的图形对象，BasePo... 阅读全文
VB编程对AutoCAD实体进行复制操作
2011-06-12 20:06 by 精诚所至 金石为开, 728 阅读, 收藏, 编辑
摘要：
复制实体对象根据不同的需要，可以采用不同的方法。 利用Copy方法实现实体的复制，实体对象的Copy方法对实体进行原地复制并返回复制生成的新对象。 newobj=object.Copy newobj表示新创建的实体对象，object要进行复制操作的实体对象。 利用Offset方法实现实体的复制，实体对象的OffSet方法创建一个新的实体对象，并与源对象又一个偏移。 newo... 阅读全文
AutoCAD实体对象可供VB操作的公共属性和方法
2011-06-12 16:52 by 精诚所至 金石为开, 1088 阅读, 收藏, 编辑
摘要：
公共属性就是所有实体都具有的属性，通过VB编程可以设置或查询这些属性，从而改变这些实体的特性，公共属性有以下几种：application、color、layer、linetype、linetypescale、visible、entitytype、entityname、handle、bojectid。application是所有 实体和非实体对象的属性，返回对应用程序的引用。其它属性为实体对象的特征... 阅读全文
VB编程在AutoCAD绘图空间创建实心面和图案填充
2011-06-12 16:16 by 精诚所至 金石为开, 1332 阅读, 收藏, 编辑
摘要：
利用AddSolid方法可以创建实心面，Solid为3或4条变组成的实心面，应用该方法需要4个三维顶点作为参数，当系统变量FILLMODE的值为0时，实心面不填充，为1时填充。语法getval=objcect.AddSolid(point1,point2,point3,point4)。getval新创建的实心面对象，object模型空间、图纸空间或块对象，point双精度型定点坐标。 利用Add... 阅读全文
VB编程在AutoCAD绘图空间创建曲线
2011-06-12 15:13 by 精诚所至 金石为开, 853 阅读, 收藏, 编辑
摘要：
VB可以在AutoCAD绘图空间中创建圆、弧、椭圆和样条曲线等多种曲线对象。 利用AddCircle方法可以创建圆形对象，该方法需要给出圆形的三维坐标和圆的半径。如下代码创建一个圆心为（20,30,0），半径为5的圆。 Private Sub Command1_Click() Dim circleobj As AcadCircle Dim centerp... 阅读全文
VB编程在AutoCAD绘图空间创建直线
2011-06-12 14:41 by 精诚所至 金石为开, 723 阅读, 收藏, 编辑
摘要：
给出直线的起点和终点的三维坐标，利用AddLine方法可以创建直线。如下代码创建一条（1,1,0）与（15,15,0）之间的直线。 Private Sub Command1_Click() Dim lineobj As AcadLine Dim startpoint(0 To 2) As Double Dim endpoint(0 To ... 阅读全文
VB编程在AutoCAD绘图空间创建点
2011-06-12 14:15 by 精诚所至 金石为开, 741 阅读, 收藏, 编辑
摘要：
VB编程在AutoCAD中创建图形，利用Add方法，在AutoCAD模型空间ModelSpace中创建二维或三维图形对象，也可在图纸空见或块中创建对象。 利用AddPoint方法可以创建一个点对象，应用该方法时需要给出点的X、Y、Z坐标。 通过系统变量PDMODE来控制点的显示方式，通过系统变量PDSIZE控制点的大小，修改系统变量值后，通过图形重生成来更新屏幕显示，下面代码创建一个点并修改其... 阅读全文
VB中控制AutoCAD退出程序
2011-06-12 13:32 by 精诚所至 金石为开, 648 阅读, 收藏, 编辑
摘要：
可以使用Quit方法退出AutoCAD程序。 acadapp.Quit 使用此方法退出AutoCAD程序，并不能使acadapp对象从电脑内存中移除，因此对出AutoCAD后，应该将acadapp对象赋值nothing方法释放acadapp对象所占用的内存空间。 acadapp.Quit Set acadapp = Nothing 阅读全文
VB中使用AutoCAD系统变量
2011-06-12 13:24 by 精诚所至 金石为开, 659 阅读, 收藏, 编辑
摘要：
系统变量是AutoCAD为其运行环境设置的参数，可分为整数型、实数型、点型、布尔型恶化字符串型，大多数系统变量是可读可写的，个别的系统变量是只读变量，不能进行写操作。 利用SetVariable方法对AutoCAD系统变量进行设置。 acadapp.SetVariable Name, Value object系统变量的设置对象，name系统变量名，value系统变量值。 如下代... 阅读全文
VB中对AutoCAD控制窗口界面
2011-06-12 10:57 by 精诚所至 金石为开, 1493 阅读, 收藏, 编辑
摘要：
窗口界面控制包括AutoCAD应用程序窗口界面控制和AutoCAD绘图窗口控制，以及VB窗口界面和AutoCAD窗口界面的相互切换。 利用AutoCAD应用程序对象的属性，可以控制或查询AutoCAD窗口界面的现实状态。 acadapp.WindowState = acMax acadapp.WindowState = acMin acadapp.WindowState... 阅读全文
VB控制AutoCAD精确绘图
2011-06-11 22:32 by 精诚所至 金石为开, 935 阅读, 收藏, 编辑
摘要：
可以对Viewport对象的栅格Gride、捕捉Snap和正交Ortho模式进行设置，使绘图定位更加精确。在VB中可以对上面的属性进行控制。 ActiveViewport对象的GrideOn属性可以改变栅格的显示状态，栅格显示时，可作为绘图的向导。 acadapp.ActiveDocument.ActiveViewport.GridOn = True acadapp.Active... 阅读全文
VB中对AutoCAD图形对象进行缩放操作
2011-06-11 21:22 by 精诚所至 金石为开, 1433 阅读, 收藏, 编辑
摘要：
用AutoCAD应用程序对象的ZoomExtents方法，可以显示图形的全部，使绘制的图形最大限度地充满绘图区域，代码ZoomExtents或AcadApp.ZoomExtents。 当某一部分绘制图形在显示区域之外，可以用ZoomAll方法，使图形全部显示出来，但是图形并不最大限度地充满绘图区域，代码ZoomAll或AcadAPP.ZoomAll。 利用ZoomCenter方法可以将绘制图形... 阅读全文
VB中对AutoCAD对象图形文件操作
2011-06-11 20:40 by 精诚所至 金石为开, 3304 阅读, 收藏, 编辑
摘要：
AutoCAD图形的绘制、编辑均在其图形文件中进行，可以利用VB代码创建新的文件、打开已有文件、保存文件等。 VB中按按照以下步骤创建新的图形文件。 首先将VB于AutoCAD进行链接，可以用到典型的链接代码，然后在VB工程窗体中添加一个按钮用来由用户创建新的CAD图形文件，应用按钮的单击事件，在按钮上添加如下代码创建新的图形文件。 Private Sub Command1_Click... 阅读全文
利用VB与AutoCAD链接进行CAD二次开发
2011-06-11 19:38 by 精诚所至 金石为开, 8037 阅读, 收藏, 编辑
摘要：
利用VB进行AutoCAD二次开发，首先应该将VB于CAD进行链接：在编写VB代码之前，在VB编程环境中引用CAD对象库，在编写VB程序代码时，创建CAD对象启动运行CAD程序。 VB与CAD进行链接后，就可以利用AutoCAD对象及其下级对象的属性和方法，完成用VB语言在AutoCAD环境中的图形绘制和编辑操作，引用CAD对象库：在VB环境中选择“工程-引用”命令打开引用对话框，选中AutoC... 阅读全文
AutoLISP恢复系统变量到默认值
2011-06-11 16:37 by 精诚所至 金石为开, 1598 阅读, 收藏, 编辑
摘要：
在使用LISP时候，需要反复修改CAD中的一些系统变量，利用下面代码恢复绘图环境默认系统变量。(defun c:reset () (setvar "cmdecho" 1) (setvar "menuecho" 0) (setvar "highlight" 1) (princ) ) CMDECHO系统变量用来控制在AutoLISP的command函数运行时AutoCAD 是否回显提示和输入：0关闭回显1打开回显；MENUECHO用来设置菜单回显和提示控制位；HIGHLIGHT用来控制对象的亮显，它并不影响使用夹点选定的对象。 阅读全文
AutoLISP目标捕捉函数osnap
2011-06-10 22:36 by 精诚所至 金石为开, 3528 阅读, 收藏, 编辑
摘要：
Auto LISP提供的OSNAP函数所完成的功能与Auto CAD中的OSNAP命令完成的功能相似，捕捉目标的特征点。调用格式:（osnap 〈点〉 〈目标捕捉方式〉）功用及求值结果。该函数是用〈点〉先取屏幕图形目标，再根据〈目标捕捉方式〉求出该目标的特征点如（圆心、直线端点、切点、线段中点、交点等），并返回该特征点。若对给定〈点〉没有捕捉到目标，但找不到与指定捕捉方式相匹配的目标特征点。OSNAP则返回nil。目标捕捉方式只作一简述：NEA(Nearest)—捕捉靶区中心点位置最近的线、弧线或圆上的点。ENDP(Endpoint)—捕捉靶区中心点最近的线、弧线的端点。MID(Midpoin 阅读全文
AutoLISP绘图功能函数Command命令
2011-06-10 22:21 by 精诚所至 金石为开, 9091 阅读, 收藏, 编辑
摘要：
AutoLISP程序中可以利用Command命令能够调用几乎全部的CAD命令，来完成各种绘图任务，Command函数的参数可以是任意形式的LISP表达式，它是LISP提供的和CAD命令进行通行的接口它的参数就是各个CAD命令所需要的参数。例如可以利用Command函数调用CAD中的LINE命令绘制一条直线，函数格式如下：（comman “line” ‘（0,0） ‘(100,100) “”)运行该行代码，以远点为起点，（100,100）为终点绘制一条直线，这与在CAD命令提示符下输入line命令，再按照提示指定点的坐标是一个道理，最后的一个空格用来结束line命令。1. Auto CAD的命令 阅读全文
AutoCAD绘图环境相关的变量
2011-06-10 20:10 by 精诚所至 金石为开, 475 阅读, 收藏, 编辑
摘要：
AutoCADde 系统变量是用来控制CAD的相关功能和绘图环境的，它可以控制很多命令的工作方式、存储当前图形和AutoCAD的相关配置信息、开关绘图模式等，在LISP语言中可以使用setvar函数设置系统变量也可以是使用getvar函数获取系统变量当前值，系统变量的类型有整形、坐标点、实数、字符串等。改变系统变量的值，可以使用setvar函数或者直接在Command提示符下输入系统变量名，除了那些CAD声明只读属性的系统变量外。 阅读全文
AutoCAD利用VB交互创建应用程序交互
2011-06-06 21:21 by 精诚所至 金石为开, 664 阅读, 收藏, 编辑
摘要：
可以使用COM技术，在VB中直接操作AutoCAD，创建于VBA功能类似的程序，VB能够直接打包生成安装文件，这种形式比VBA更加方便，并且更容易保护自己的程序。VB连接到AutoCAD主要用到CreateObject和GetObject函数，创建或者获得对ActiveX对象的引用。 连接到AutoCAD之后，就可以使用acadApp对象对AutoCAD进行操作，语法和操作方法与VBA完全一致。... 阅读全文
AutoVBA创建自定义下拉菜单
2011-06-06 18:54 by 精诚所至 金石为开, 1768 阅读, 收藏, 编辑
摘要：
使用VBA向AutoCAD中添加新的菜单，涉及以下操作，创建新的菜单，使用Add方法向PopMenus集合添加新的PopMenu对象，向菜单中添加新的菜单项；使用AddMenuItem方法；向菜单中添加分隔符，使用AddSeperator方法；通过VBA为菜单项指定加速键，使用给定菜单项的Label属性；添加级联子菜单，使用AddSubmenu方法创建子菜单；要删除菜单中的菜单项使用该菜单项的De... 阅读全文
AutoVBA利用toolbar创建自己的工具栏
2011-06-06 17:47 by 精诚所至 金石为开, 1802 阅读, 收藏, 编辑
摘要：
把工具按钮添加到工具栏之前你需要创建一个新的工具栏，创建新的工具栏需调用Add方法新建一个Toolbar对象并把它添加到Toolbars集合中。要把按钮添加到新的工具栏中，必须调用Toolbar对象中的AddToolbarButton方法，该方法在调用中需要四个变元来传递参数。 第一个变元Index参数决定添加的按钮在工具栏中的位置。 第二个边缘Name参数决定了按钮提示信息，类似Toolti... 阅读全文
2011年6月5日星期天
2011-06-05 20:12 by 精诚所至 金石为开, 200 阅读, 收藏, 编辑
摘要：
今天折腾了一下回复邮件通知功能，可能是空间没有邮件功能，安装了WP thread commant插件后，测试邮件通知功能无效。后百度需安装另一插件Configure SMTP插件，利用QQ邮箱的SMTP功能，后测试成功，第一次感觉腾讯的东西还是有实用价值。 今天是2011年6月5日星期天，alexa排名第一次进了100万，排名：989196，标记一下。 阅读全文
AutoVBA会制图元填充指定图案
2011-06-04 23:08 by 精诚所至 金石为开, 363 阅读, 收藏, 编辑
摘要：
贴一段代码先。 Sub drawcircularpavers() Dim brickcircles() As AcadCircle Dim counter As Integer, radius As Double Dim center As Integer ReDim brickcircles(txtnumberofci... 阅读全文
AutoVBA利用Hacth对象填充图元对象
2011-06-04 22:32 by 精诚所至 金石为开, 964 阅读, 收藏, 编辑
摘要：
通过Hacth对象可以对图元进行填充，可以使用CBD自带的图案，或者使用外部图库中的图案或者自定义临时填充。创建Hatch对象并将其添加到ModelSpace集合，该函数需三个参数。以下代码绘制一个Circle对象并创建填充。 Sub drawfilledcircle() Dim hatchobject As AcadHatch Dim outerci... 阅读全文
AutoVBA调用AddCricle方法绘制圆
2011-06-02 22:53 by 精诚所至 金石为开, 481 阅读, 收藏, 编辑
摘要：
利用VBA宏代码调用AddCircle方法绘制圆，该函数需要两个参数，一个用来定义圆心坐标的数组，一个定义圆半径的实数。可以将其存放在变量中获取利用该函数创建的圆。 利用AddCircle方法绘制圆的示例代码如下。 Public Sub drawcircle() Dim circleobject As AcadCircle Dim center As V... 阅读全文
AutoVBA利用for循环创建同心圆弧
2011-06-02 22:33 by 精诚所至 金石为开, 325 阅读, 收藏, 编辑
摘要：
AutoVBA在一个For循环中调用AddArc方法，创建许多不同大小的同心弧，程序代码如下。 Sub lotsofarcs() Dim newarobj As AcadArc Dim center As Variant Dim radius As Variant Dim startangle As Double, en... 阅读全文
AutoVBA利用AddArc方法创建Arc对象
2011-06-02 22:10 by 精诚所至 金石为开, 660 阅读, 收藏, 编辑
摘要：
在AutoVBA中可以利用AddArc方法创建Arc对象，该方法需要有四个参数才能绘制圆弧，参数分别是圆心、半径、起始角和终止角，用来确定圆弧的位置和长度。利用Utility对象绘制圆弧的代码如下。Public Sub drawarc() Dim newarcobj As AcadArc Dim center As Variant Dim radius As Double Dim startangle As Double, endangle As Double With ThisDrawing.Utility center = .G... 阅读全文
AutoCAD利用VBA宏绘制多重平行线
2011-06-02 21:42 by 精诚所至 金石为开, 558 阅读, 收藏, 编辑
摘要：
多重平行线有多种多样的样式，主要用于绘制像墙之类的的平行线的场合，当你使用多种的标准绘制直线时，需要另外一条线来设置距离。 绘制多重平行线的代码如下。 Sub mylines() Dim multilineobj As AcadMLine Dim vertices(0 To 17) As Double vertices(0) = 3: ... 阅读全文
AutoVBA利用宏高亮显示图元
2011-06-02 20:56 by 精诚所至 金石为开, 623 阅读, 收藏, 编辑
摘要：
使用Heightlight方法，可以确定是否高亮显示图元，以直线为例，当一条直线高亮显示时，它是用直线绘制的。 高亮显示直线的代码如下。 Sub highlightline() If ThisDrawing.ModelSpace.Count = 0 Then MsgBox "there is no line to heightlight!" ... 阅读全文
AutoCAD利用VBA设置线型和添加用户自定义线性
2011-06-02 00:24 by 精诚所至 金石为开, 1720 阅读, 收藏, 编辑
摘要：
利用VBA添加线型的代码如下。 Sub addnewlinetype() Dim dashedline As AcadLineType ThisDrawing.Load "dashed2", "acad.lin" Set dashedline = ThisDrawing.Linetypes.Item(ThisDrawing.Linetyp... 阅读全文
AutoVBA控件的tabindex和tabstop属性及with语句
2011-06-01 22:33 by 精诚所至 金石为开, 1427 阅读, 收藏, 编辑
摘要：
控件的tabindex属性用来确定控件被放置在用户窗体上的顺序，它决定了当用户按下tab键时控件的转换顺序。tabstop属性用来确定控件是否高亮显示，那些不能与用户交互的控件的tabstop属性被设置为false。 with语句能将一个项目纳入到使用该项目的所有语句中，无需每次都对其进行设置。简单来讲就是能同时对一个控件的多个属性或方法进行控制，例如现在需要对label控件的height，wi... 阅读全文
AutoCAD利用VBA宏绘制直线
2011-06-01 21:56 by 精诚所至 金石为开, 2849 阅读, 收藏, 编辑
摘要：
利用VBA宏代码绘制直线，可以设置线性，设置直线颜色，对直线进行操作。 绘制直线主要用到addline函数，该函数接受两个参数，第一个参数指点直线起点startpoint，第二个参数指定直线终点endpoint，新的直线实例被添加到绘图空间。 定义绘制直线的函数creatline，代码如下。 Sub creatline() Dim startpoint(0 To 2) ... 阅读全文
