CADsite forum

hallo

kan ik via VBA mijn tekening voledig selecteren en daarna voledig deleten? via welke comando's kan ik dit doen?

mvg

Thomy

Een tekening is in wezen ook een Object.
't Is zoiets als "Object.delete".
Kijk eens bij de help (F1) onder delete.

Citaat van: Thomy op ma 16 03 2009, 11:40:29
hallo

kan ik via VBA mijn tekening voledig selecteren en daarna voledig deleten? via welke comando's kan ik dit doen?

mvg

Thomy

Sub test1()
ThisDrawing.SendCommand "ERASE ALL " & vbCr
End Sub
of
Sub test2()
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
ssetObj.Select acSelectionSetAll
ssetObj.Erase
ssetObj.Delete
Set ssetObj = Nothing
End Sub

Met vriendelijke groet, HofCAD CSI.

Zal het straks eens proberen.

bedankt voor deze tips

Groeten

thomy