CADsite forum

Hej

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

Mvg

Thomy

Gebruik de regen of update method.

Hej,

weet je ook hoe ik deze code moet schrijven?

Mvg

thomy

Citaat van: Thomy op do 02 04 2009, 09:07:45
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:
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:
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:
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.

Hej

Veel dank hiervoor.

Merci

thomy

Citaat van: Thomy op do 02 04 2009, 13:58:05
Hej

Veel dank hiervoor.

Merci

thomy

Beste Thomy,

Zie boven voor de update mogelijkheid.