作成するオブジェクトの線種尺度を指定できます。尺度が小さいほど、作図単位ごとに生成されるパターンの繰り返しが多くなります。既定では、AutoCAD はグローバル線種尺度 1.0 (つまり 1 作図単位に等しい尺度)を使用します。すべての図面オブジェクトおよび属性参照について、線種尺度を変更できます。
システム変数 CELTSCALE は新しく作成するオブジェクトの線種尺度を設定します。システム変数 LTSCALE は既存オブジェクトと新規オブジェクトのグローバルな線種尺度を変更します。オブジェクトの LinetypeScale プロパティは、オブジェクトの線種尺度を変更するために使用されます。オブジェクトの表示に使用される線種尺度は、個々のオブジェクトの線種尺度にグローバルな線種尺度を乗算したものに基づいています。
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
<CommandMethod("SetObjectLinetypeScale")> _
Public Sub SetObjectLinetypeScale()
'' 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()
'' Save the current linetype
Dim acObjId As ObjectId = acCurDb.Celtype
'' Set the global linetype scale
acCurDb.Ltscale = 3
'' Open the Linetype table for read
Dim acLineTypTbl As LinetypeTable
acLineTypTbl = acTrans.GetObject(acCurDb.LinetypeTableId, _
OpenMode.ForRead)
Dim sLineTypName As String = "Border"
If acLineTypTbl.Has(sLineTypName) = False Then
acCurDb.LoadLineTypeFile(sLineTypName, "acad.lin")
End If
'' Set the Border linetype current
acCurDb.Celtype = acLineTypTbl(sLineTypName)
'' 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 circle object and set its linetype
'' scale to half of full size
Using acCirc1 As Circle = New Circle()
acCirc1.Center = New Point3d(2, 2, 0)
acCirc1.Radius = 4
acCirc1.LinetypeScale = 0.5
acBlkTblRec.AppendEntity(acCirc1)
acTrans.AddNewlyCreatedDBObject(acCirc1, True)
'' Create a second circle object
Using acCirc2 As Circle = New Circle()
acCirc2.Center = New Point3d(12, 2, 0)
acCirc2.Radius = 4
acBlkTblRec.AppendEntity(acCirc2)
acTrans.AddNewlyCreatedDBObject(acCirc2, True)
End Using
End Using
'' Restore the original active linetype
acCurDb.Celtype = acObjId
'' Save the changes and dispose of the transaction
acTrans.Commit()
End Using
End Sub
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
[CommandMethod("SetObjectLinetypeScale")]
public static void SetObjectLinetypeScale()
{
// Get the current document and database
Document acDoc = Application.DocumentManager.MdiActiveDocument;
Database acCurDb = acDoc.Database;
// Start a transaction
using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
{
// Save the current linetype
ObjectId acObjId = acCurDb.Celtype;
// Set the global linetype scale
acCurDb.Ltscale = 3;
// Open the Linetype table for read
LinetypeTable acLineTypTbl;
acLineTypTbl = acTrans.GetObject(acCurDb.LinetypeTableId,
OpenMode.ForRead) as LinetypeTable;
string sLineTypName = "Border";
if (acLineTypTbl.Has(sLineTypName) == false)
{
acCurDb.LoadLineTypeFile(sLineTypName, "acad.lin");
}
// Set the Border linetype current
acCurDb.Celtype = acLineTypTbl[sLineTypName];
// 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 circle object and set its linetype
// scale to half of full size
using (Circle acCirc1 = new Circle())
{
acCirc1.Center = new Point3d(2, 2, 0);
acCirc1.Radius = 4;
acCirc1.LinetypeScale = 0.5;
acBlkTblRec.AppendEntity(acCirc1);
acTrans.AddNewlyCreatedDBObject(acCirc1, true);
// Create a second circle object
using (Circle acCirc2 = new Circle())
{
acCirc2.Center = new Point3d(12, 2, 0);
acCirc2.Radius = 4;
acBlkTblRec.AppendEntity(acCirc2);
acTrans.AddNewlyCreatedDBObject(acCirc2, true);
}
}
// Restore the original active linetype
acCurDb.Celtype = acObjId;
// Save the changes and dispose of the transaction
acTrans.Commit();
}
}
Sub SetObjectLinetypeScale()
' Save the current linetype
Dim currLineType As AcadLineType
Set currLineType = ThisDrawing.ActiveLinetype
' Set global linetype scale
ThisDrawing.SetVariable "LTSCALE", 3
' Load the Border linetype
On Error Resume Next
If Not IsObject(ThisDrawing.Linetypes.Item("Border")) Then
ThisDrawing.Linetypes.Load "Border", "acad.lin"
End If
ThisDrawing.ActiveLinetype = ThisDrawing.Linetypes.Item("BORDER")
' Create a circle object in model space
Dim center(0 To 2) As Double
center(0) = 2: center(1) = 2: center(2) = 0
Dim circleObj1 As AcadCircle
Set circleObj1 = ThisDrawing.ModelSpace.AddCircle(center, 4)
' Set the linetype scale of the circle to half of full size
circleObj1.LinetypeScale = 0.5
circleObj1.Update
Dim circleObj2 As AcadCircle
center(0) = center(0) + 10
Set circleObj2 = ThisDrawing.ModelSpace.AddCircle(center, 4)
circleObj2.Update
' Restore original active linetype
ThisDrawing.ActiveLinetype = currLineType
End Sub