Imports CAD_DBS = Autodesk.AutoCAD.DatabaseServices
Public Shared Sub acadnet_SetScale_lineType(ByRef db As CAD_DBS.DataBase, _
ByVal ScaleVal As Double, _
ByVal LineStyleName As String)
Using tr As CAD_DBS.Transaction = db.TransactionManager.StartTransaction
' таблица типов линий
Dim ls As CAD_DBS.LinetypeTable = tr.GetObject(db.LinetypeTableId, CAD_DBS.OpenMode.ForWrite)
' если тип линии с имением уже есть в таблице
If ls.Has(LineStyleName) Then
Dim Rec As CAD_DBS.LinetypeTableRecord = _
tr.GetObject(ls.Item(LineStyleName), CAD_DBS.OpenMode.ForWrite, False)
Dim index As Integer = ??? этот индекс я думаю как-то связан с картинкой, которую я прикрепляю
' index = 0 наверное глобальный масштаб, index=1 текущий масштаб
Rec.SetShapeScaleAt(index, ScaleVal)
End If
tr.Commit()
End Using
End Sub