[编程申请]：使用rename 命令后

guohq

有一个想法，不知道怎么实现：
使用rename命令对某一线型重命名后，原来的线型名没了。怎样才能保留原来的线型名呢？

nevsayno

我也不知道

guohq

[pcode=vb,true] Public Function RenameLinetype(ByVal OldName As String, ByVal NewName As String, Optional ByVal KeepOld As Boolean = False) As Boolean
        If OldName.ToUpper = "CONTINUOUS" OrElse OldName.ToUpper = "BYLAYER" OrElse OldName.ToUpper = "BYBLOCK" Then
            Return False
        End If
        Using Trans As Transaction = DB.TransactionManager.StartTransaction
            Dim LTT As LinetypeTable = Trans.GetObject(DB.LinetypeTableId, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)
            If LTT.Has(OldName) Then
                If LTT.Has(NewName) Then
                    RenameLinetype = False
                Else
                    Dim LTR As LinetypeTableRecord = Trans.GetObject(LTT(OldName), Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)
                    If KeepOld = True Then
                        Dim LTRNew As LinetypeTableRecord = LTR.Clone
                        LTRNew.Name = NewName
                        LTT.Add(LTRNew)
                        Trans.AddNewlyCreatedDBObject(LTRNew, True)
                    Else
                        LTR.Name = NewName
                    End If

                    RenameLinetype = True
                End If
            Else
                RenameLinetype = False
            End If
            Trans.Commit()
        End Using
    End Function[/pcode]

几年过去了，用.net终于可以实现！！

st788796

对于 Lin 库文件中有的 Linetype，Rename 后可以重新 Load，但是Lin库中没有的 Linetype 没有测试过

cxjzxf

线型文件是可以重载的。