Redraw

[Thomy]

Hej

weet er iemand toevallig hoe ik het commando schrijf in VBA om mijn tekening te hertekenen. (Redraw)

Mvg

Thomy

[Joop]

Gebruik de regen of update method.

[Thomy]

Hej,

weet je ook hoe ik deze code moet schrijven?

Mvg

thomy

[HofCAD]

Hej

weet er iemand toevallig hoe ik het commando schrijf in VBA om mijn tekening te hertekenen. (Redraw)

Mvg

Thomy

Beste Thomy,

Voor een REGEN of REGENALL:

Code Selecteer Uitklappen

Sub RegenAll1()
ThisDrawing.SendCommand "REGENALL" & vbCr
End Sub
Sub RegenAll2()
ThisDrawing.Regen acAllViewports
End Sub
Sub Regen1()
ThisDrawing.SendCommand "REGEN" & vbCr
End Sub
Sub Regen2()
ThisDrawing.Regen acActiveViewport
End Sub
Sub Regen3()
ThisDrawing.Regen (True)
End Sub
Voor een REDRAW en REDRAWALL:

Code Selecteer Uitklappen

Sub RedrawAll1()
ThisDrawing.SendCommand "REDRAWALL" & vbCr
End Sub
Sub Redraw1()
ThisDrawing.SendCommand "REDRAW" & vbCr
End Sub
Sub Redraw2()
    Dim sset As AcadSelectionSet
    On Error Resume Next
    ActiveDocument.SelectionSets.Item("TEST_SSET").Delete
    Set sset = ActiveDocument.SelectionSets.Add("TEST_SSET")
    On Error GoTo 0
    sset.Select acSelectionSetAll
    sset.Update
End Sub

Voor Regenmode:

Code Selecteer Uitklappen

Sub Regenmode1()
ThisDrawing.SendCommand "REGENMODE" & vbCr & 1 & vbCr
End Sub
Sub Regenmode2()
Dim acadApp As Object
Dim acadDoc As Object
Set acadApp = GetObject(, "AutoCAD.Application")
Set acadDoc = acadApp.ActiveDocument
Call acadDoc.SetVariable("Regenmode", 1)
End Sub

Met vriendelijke groet, HofCAD CSI.

[Thomy]

Hej

Veel dank hiervoor.

Merci

thomy

[HofCAD]

Hej

Veel dank hiervoor.

Merci

thomy

Beste Thomy,

Zie boven voor de update mogelijkheid.