03-04 创建和编辑AutoCAD实体(四) 编辑二维命名对象 (5)
7、Extend and Trim Objects延伸和修剪对象You can change the angle of arcs and you can change the length of lines,open polylines,elliptical arcs,and open splines. The results are similar to both extending and trimming objects. 我们可以改变圆弧的角度,还可以改变直线、开放多段线、椭圆弧及开放样条曲线的长度。其结果类似于延伸对象和修剪对象。 You can extend or trim an object by editing its properties. For example,to lengthen a line,simply change the coordinates of the StartPoint or EndPoint properties. To change the angle of an arc,change the StartAngle or EndAngle property of the arc. Once you have altered an object's property or properties,you might need to regenerate the display to see the changes in the drawing window. 我们可以编辑对象属性来延伸或修剪对象。例如,延长一条直线,只需简单修改直线的StartPoint属性或EndPoint属性坐标。修改圆弧的角度,只需简单修改圆弧的StartAngle 属性或EndAngle属性。一旦改变了对象的一个或多个属性,我们就需要重新生成图形显示才能看到所作的修改。 For more information about extending and trimming objects,see “Resize or Reshape Objects” in theAutoCAD User's Guide. 更多关于延伸和修剪对象的内容,见AutoCAD用户指南中的“修改对象的大小和形状”内容。 Lengthen a line延长一条直线 This example creates a line and then changes the endpoint of that line,resulting in a longer line. 本例创建一条直线,然后修改其EndPoint属性来使直线变长。 VB.NET Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry <CommandMethod("ExtendObject")> _ Public Sub ExtendObject() '' Get the current document and database Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database '' Start a transaction Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() '' Open the Block table for read Dim acBlkTbl As BlockTable acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,_ OpenMode.ForRead) '' Open the Block table record Model space for write Dim acBlkTblRec As BlockTableRecord acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace),_ OpenMode.ForWrite) '' Create a line that starts at (4,4,0) and ends at (7,7,0) Dim acLine As Line = New Line(New Point3d(4,0),_ New Point3d(7,0)) '' Add the new object to the block table record and the transaction acBlkTblRec.AppendEntity(acLine) acTrans.AddNewlyCreatedDBObject(acLine,True) '' Update the display and diaplay a message box acDoc.Editor.Regen() Application.ShowAlertDialog("Before extend") '' Double the length of the line acLine.EndPoint = acLine.EndPoint + acLine.Delta '' Save the new object to the database acTrans.Commit() End Using End Sub C# using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.Geometry; [CommandMethod("ExtendObject")] public static void ExtendObject() { // Get the current document and database Document acDoc = Application.DocumentManager.MdiActiveDocument; Database acCurDb = acDoc.Database; // Start a transaction using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction()) { // Open the Block table for read BlockTable acBlkTbl; acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) as BlockTable; // Open the Block table record Model space for write BlockTableRecord acBlkTblRec; acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord; // Create a line that starts at (4,0) Line acLine = new Line(new Point3d(4, new Point3d(7,0)); // Add the new object to the block table record and the transaction acBlkTblRec.AppendEntity(acLine); acTrans.AddNewlyCreatedDBObject(acLine,true); // Update the display and diaplay a message box更新显示 acDoc.Editor.Regen(); Application.ShowAlertDialog("Before extend"); // Double the length of the line直线延长一倍 acLine.EndPoint = acLine.EndPoint + acLine.Delta; // Save the new object to the database保存新对象到数据库 acTrans.Commit(); } } VBA/ActiveX Code Reference Sub ExtendObject() ' Define and create the line Dim lineObj As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double startPoint(0) = 4 startPoint(1) = 4 startPoint(2) = 0 endPoint(0) = 7 endPoint(1) = 7 endPoint(2) = 0 Set lineObj = ThisDrawing.ModelSpace. _ AddLine(startPoint,endPoint) lineObj.Update ' Double the length of the line endPoint(0) = lineObj.endPoint(0) + lineObj.Delta(0) endPoint(1) = lineObj.endPoint(1) + lineObj.Delta(1) endPoint(2) = lineObj.endPoint(2) + lineObj.Delta(2) lineObj.endPoint = endPoint lineObj.Update End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |