cad⽂字宽度因⼦_CAD调整属性块中⽂字宽度using System;
using Autodesk.AutoCAD.ApplicationServices;
落红不是无情物using Autodesk.AutoCAD.DatabaServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;
[asmbly: CommandClass(typeof(AttributeWidthFactor.MyCommands))]
namespace AttributeWidthFactor
{
public class MyCommands
{
[CommandMethod("AttWidth")]
public static void SetAttrWidthFactor()
曾军良{托业报名
Document dwg = Application.DocumentManager.MdiActiveDocument;
Editor ed = dwg.Editor;
//Pick an attributereference in a block
PromptNestedEntityOptions opt = new
PromptNestedEntityOptions("\nPick an attribute:");
PromptNestedEntityResult res = ed.GetNestedEntity(opt);
if (res.Status == PromptStatus.OK)
{
if (res.ObjectId.ObjectClass.DxfName.ToUpper() == "ATTRIB")
{
//Ask ur to pick a distance as desired width for
//the attribute to fit in. Bad on the block, the width
//could be a known value
PromptPointOptions popt = new
PromptPointOptions("\nPick width ba point:");
PromptPointResult pres = ed.GetPoint(popt);
if (pres.Status != PromptStatus.OK) return;
Point3d baPt = pres.Value;
PromptDistanceOptions dopt =
new PromptDistanceOptions("\nPick width: ");
dopt.UBaPoint = true;
dopt.BaPoint = baPt;
PromptDoubleResult dres = ed.GetDistance(dopt);
if (dres.Status != PromptStatus.OK) return;
//This is the width we want to fit the attribute text's width double w = dres.Value;
购的组词using (Transaction tran =
华为网关
dwg.TransactionManager.StartTransaction())画家笔下的色彩
{
AttributeReference att = (AttributeReference)tran.GetObject( res.ObjectId, OpenMode.ForWrite);
//Get attribute's width, assuming it is placed horizontally double aw = Math.Abs(att.GeometricExtents.MaxPoint.X
- att.GeometricExtents.MinPoint.X);
//This is the WidthFactor
double factor = w / aw;
att.WidthFactor = factor;
tran.Commit();
}
}
el
{
Application.ShowAlertDialog("Not an attribute!");
}
}
}
}
个性签名
}买毛线
