Some more fun with multileaders... this post shows some code that adds multiple leader lines to a multileader/MLeader, each of them "spraying" out from the central text. We ask the user for the central point and the location of the first leader along with the number of leader lines to "spray". These lines then get created at evenly spaced angles around from this initial location.
I can't think of anything immediately useful about this technique, other than it was fun to write the code and it shows how to add multiple leader lines. It also generates some fun results. :-)
Here's the C# code:
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
namespace DimensionLibrary
{
public class DimensionCommands
{
[CommandMethod("spray")]
static public void SprayMultiLeader()
{
Document doc =
Application.DocumentManager.MdiActiveDocument;
Editor ed = doc.Editor;
Database db = doc.Database;
// Get the start point of the leader
PromptPointResult ppr =
ed.GetPoint(
"/nSpecify position of text: "
);
if (ppr.Status != PromptStatus.OK)
return;
Point3d startPt = ppr.Value;
// Get the end point of the leader
PromptPointOptions ppo =
new PromptPointOptions(
"/nSpecify first arrowhead location: "
);
ppo.BasePoint = startPt;
ppo.UseBasePoint = true;
ppr = ed.GetPoint(ppo);
if (ppr.Status != PromptStatus.OK)
return;
Point3d endPt = ppr.Value;
// Get the number of leader lines
// to "spray" out from the center
PromptIntegerOptions pio =
new PromptIntegerOptions(
"/nNumber of leader lines <1>: "
);
pio.AllowNone = true;
pio.AllowZero = false;
PromptIntegerResult pir =
ed.GetInteger(pio);
int numLines;
if (pir.Status == PromptStatus.None)
numLines = 1;
else
{
if (pir.Status != PromptStatus.OK)
return;
else
numLines = pir.Value;
}
Transaction tr =
db.TransactionManager.StartTransaction();
using (tr)
{
try
{
BlockTable bt =
(BlockTable)tr.GetObject(
db.BlockTableId,
OpenMode.ForRead
);
BlockTableRecord btr =
(BlockTableRecord)tr.GetObject(
bt[BlockTableRecord.ModelSpace],
OpenMode.ForWrite
);
// Create the MLeader
MLeader mld = new MLeader();
for(int i=0; i < numLines; i++)
{
// Each leader line sprays out
// at a different angle
Vector3d vec = endPt - startPt;
vec =
vec.RotateBy(
i * 2 * System.Math.PI / numLines,
mld.Normal
);
Point3d landPt = startPt + vec;
int ldNum = mld.AddLeader();
int lnNum = mld.AddLeaderLine(ldNum);
mld.AddFirstVertex(lnNum, landPt);
mld.AddLastVertex(lnNum, startPt);
}
mld.LeaderLineType =
LeaderType.SplineLeader;
// Create the MText
MText mt = new MText();
mt.Contents =
"Multileader with " +
numLines.ToString() +
" /nradial splines";
mld.ContentType =
ContentType.MTextContent;
mld.MText = mt;
mld.TextLocation = startPt;
// Add the MLeader
btr.AppendEntity(mld);
tr.AddNewlyCreatedDBObject(mld, true);
tr.Commit();
}
catch (Exception ex)
{
ed.WriteMessage("/nException: " + ex.Message);
// Would also happen automatically
// if we didn't commit
tr.Abort();
}
}
}
}
}
Here's a 7-line multileader created by the SPRAY command:
本文介绍了一种在AutoCAD中创建多个领导线的方法,这些领导线从一个中心点均匀地向外展开。通过获取用户指定的文本位置、第一个箭头位置及领导线条数,程序能够自动创建指定数量的领导线,并使它们以等间距的角度分布。

1616

被折叠的 条评论
为什么被折叠?



