CADsite forum

Beste,

Ik wil mbv VBA lijntypes kunnen inladen en overschrijven.
Ik heb twee subs gemaakt voor het inladen.
Het probleem is alleen dat de lintypedefinities niet worden overschreven bij het inladen van de lijntype. Weet iemand hoe ik dit kan doen ?
(.. een functie in de trend van ThisDrawing.overwrite(?)[/b]Linetypes.Load linetypeName, "acad.lin"

**

Sub ACADlin_Load()
    ' load the linetype "*" from acad.lin
   
    Dim linetypeName As String
    linetypeName = "*"
   
    ' Load "*" line type from acad.lin file
    On Error Resume Next    ' trap any load errors
    ThisDrawing.Linetypes.Load linetypeName, "acad.lin"
   
End Sub

**

Sub isolin_Load()
    ' load the linetype "*" from iso.lin
   
    Dim linetypeName As String
    linetypeName = "*"
   
    ' Load "*" line type from acad.lin file
    On Error Resume Next    ' trap any load errors
    ThisDrawing.Linetypes.Load linetypeName, "iso.lin"
   
End Sub

Had hetzelfde probleem, en heb het opgelost door eerst alle linetypes te purgen.... ja werd langere routine..
eerst alle linetypes op continouos zetten dan purgen dan nieuwe linetypes inroepen en dan weer de linetypes bij de betreffende lagen zetten......  ik geef toe het zou beter moeten kunnen maar het werkte wel.......