摘要:选择集的删除有四种方法。 Clear方法将选择集清空,选择集依然存在,只是把选择集内的成员(各种实体对象)释放掉,但是这些成员在图形中仍然存在,只是不再属于这个选择集。 RemoveItems方法从选择集中移除一个或几个成员,被移除的成员仍然存在于图形中,只是不再属于这个选择集。 Erase方法删除选择集内的所有实体,删除后这个选择集依然存在,原来包含的实体对象被从图形中删除。 Delet... 阅读全文
VB编程在实体选择中使用过滤机制
2011-06-14 19:32 by 精诚所至 金石为开, 513 阅读, 0 推荐, 收藏, 编辑
摘要:过滤机制是指出实体对象的一个或多个特征,如颜色和层等要被检查,不符合条件的被过滤掉,只有符合条件的才能被选取并加入到选择集,过滤机制是一个使用了DXF组码得关联表。 只把圆对象加入选择集的过滤器代码如下。 ssetobj.Delete FilterType = 0 FilterData = "Circle" ssetobj.SelectOnScreen ... 阅读全文
VB编程用选择集选择实体对象
2011-06-14 19:12 by 精诚所至 金石为开, 1049 阅读, 0 推荐, 收藏, 编辑
摘要:一个选择集是一组指定的作为单个单元处理的AutoCAD对象,一个选择集可以由单个对象组成,也可以是更加复杂的组,比如在某一层上某一颜色的对象集,用选择集选择实体分为两步:创建选择集,将对象添加到选择集。 创建选择集 用Add方法创建选择 集,下面的语句创建一个名为TEST的新选择集。 Dim ssetobj As AcadSelectionSet Set ssetobj... 阅读全文
土鳖网站是怎样炼成的
2011-06-13 22:51 by 精诚所至 金石为开, 635 阅读, 0 推荐, 收藏, 编辑
摘要:土鳖网站处处有,中文网站特别多。一个中文网站土鳖不难,难的是所有中文网站一起土鳖。土鳖不可怕,就怕土鳖没变化;土鳖不可怕,就怕土鳖泛滥化。 19世纪俄国著名互联网观察家列夫·托尔斯泰说:“不土的网站各不相同,但土鳖的网站都是相似的。” 流氓无耻的行径 土鳖耍流氓,防不胜防。说到令人深恶痛绝的网站流氓行径,弹窗首当其冲。有弹窗的都不是好产品,QQ、旺旺弹出每日焦点,新浪首页弹出大幅F... 阅读全文
VB编程引用AutoCAD实体对象
2011-06-12 22:34 by 精诚所至 金石为开, 1006 阅读, 0 推荐, 收藏, 编辑
摘要:在使用实体对象属性或方法来编辑已经创建完毕的实体对象之前,必须用变量引用该对象,引用实体对象的方法有多种,可根据具体情况,选择恰当的方法来加以引用。 在创建实体的同时引用实体对象。 在创建实体对象时,Set语句设置的对象变量代表和引用该实体对象,下面的语句创建了一个圆对象,变量circleObj即引用该圆对象,可以设置属性,调用该方法来编辑该圆对象。语句circleObj=acRed设置Col... 阅读全文
VB编程编辑AutoCAD轻量多义线
2011-06-12 21:57 by 精诚所至 金石为开, 898 阅读, 0 推荐, 收藏, 编辑
摘要:创建一条轻量多义线并将第二段修改为圆弧。 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 精诚所至 金石为开, 746 阅读, 0 推荐, 收藏, 编辑
摘要:编辑样条曲线的方法很多,可以通过对其进行拟合进行增加、移动和删除,提高拟合点的权重等操作,可以设置样条曲线的公差,可以提高样条曲线的等级总新定义样条曲线。 一下代码创建一条样条曲线,并改变公差,测试效果。 Private Sub Command1_Click() acadapp.ActiveDocument.SetVariable "SPLFRAME", 0 ... 阅读全文
VB编程改变AutoCAD圆对象的圆形坐标和半径
2011-06-12 21:04 by 精诚所至 金石为开, 760 阅读, 0 推荐, 收藏, 编辑
摘要:通过设置圆和圆弧实体的Center、Radius属性,可以改变其圆心坐标和半径值,通过返回其属性值,可以获取其圆心坐标和半径值。 下面的代码将模型空间的所有圆向上移动100的单位,并将半径减为原来的一半。 Private Sub Command1_Click() Dim i As Integer Dim currcenterpt As Variant ... 阅读全文
VB编程删除AutoCAD实体对象
2011-06-12 20:25 by 精诚所至 金石为开, 774 阅读, 0 推荐, 收藏, 编辑
摘要:实体对象的Erase方法可以删除选择区域内的所有对象。 object.Erase 实体对象的Delete方法可以删除当前对象,但是该方法不能删除模型空间集合、图层集合等。 object.Delete 阅读全文
VB编程对AutoCAD实体对象进行移动和旋转操作
2011-06-12 20:18 by 精诚所至 金石为开, 908 阅读, 0 推荐, 收藏, 编辑
摘要:实体对象的Move方法可将对象沿某一向量移动。 object.Move point1,point2 object所要移动的实体对象,point1、point2双精度型移动对象的起点与终点三维坐标点。 实体对象的Rotate方法可绕一个基点旋转实体对象。 object.Rotate BasePoint,RctationAngle object所要旋转的图形对象,BasePo... 阅读全文
VB编程对AutoCAD实体进行复制操作
2011-06-12 20:06 by 精诚所至 金石为开, 724 阅读, 0 推荐, 收藏, 编辑
摘要:复制实体对象根据不同的需要,可以采用不同的方法。 利用Copy方法实现实体的复制,实体对象的Copy方法对实体进行原地复制并返回复制生成的新对象。 newobj=object.Copy newobj表示新创建的实体对象,object要进行复制操作的实体对象。 利用Offset方法实现实体的复制,实体对象的OffSet方法创建一个新的实体对象,并与源对象又一个偏移。 newo... 阅读全文
AutoCAD实体对象可供VB操作的公共属性和方法
2011-06-12 16:52 by 精诚所至 金石为开, 1079 阅读, 0 推荐, 收藏, 编辑
摘要:公共属性就是所有实体都具有的属性,通过VB编程可以设置或查询这些属性,从而改变这些实体的特性,公共属性有以下几种:application、color、layer、linetype、linetypescale、visible、entitytype、entityname、handle、bojectid。application是所有 实体和非实体对象的属性,返回对应用程序的引用。其它属性为实体对象的特征... 阅读全文
VB编程在AutoCAD绘图空间创建实心面和图案填充
2011-06-12 16:16 by 精诚所至 金石为开, 1317 阅读, 0 推荐, 收藏, 编辑
摘要:利用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 精诚所至 金石为开, 840 阅读, 0 推荐, 收藏, 编辑
摘要:VB可以在AutoCAD绘图空间中创建圆、弧、椭圆和样条曲线等多种曲线对象。 利用AddCircle方法可以创建圆形对象,该方法需要给出圆形的三维坐标和圆的半径。如下代码创建一个圆心为(20,30,0),半径为5的圆。 Private Sub Command1_Click() Dim circleobj As AcadCircle Dim centerp... 阅读全文