Normally you can do this with hatchedit -> options -> create separate hatches.
also "HPSEPARATE" on the command.
How can I separate the already drawn hatches in a drawing with vba?
I can't find such a method.
Use SendCommand to do it, e.g.:
Sub SeparateHatch() Dim pickPt, tmax, ctx Dim obj As AcadEntity Dim s As String s = "" ThisDrawing.Utility.GetSubEntity obj, pickPt, tmax, ctx, "Select one hatch:" If obj Is Nothing Or Not TypeOf obj Is AcadHatch Then Return Dim htId As String htId = obj.Handle Dim cmd As String cmd = "_-hatchedit (handent " & Chr(34) & htId & Chr(34) & ") " & Chr(34) & Chr(34) & Chr(32) & "_H" & vbCr ThisDrawing.SendCommand cmd MsgBox "Pokey" End Sub
Thank you hallex!
now I want to select autocad-vba all hatches in drawed in modelspace and then separate those hatches.
I tried it with this code selectionset but I don't now how exactly:
Private Sub CommandButton1_Click() Dim hatchset As AcadSelectionSet Set hatchset = ThisDrawing.SelectionSets.Add("hatchset") On Error GoTo 0 hatchset.Select acSelectionSetAll ThisDrawing.SendCommand "-hatchedit" & vbCr & vbCr & "H" & vbCr End Sub
Can you help me?
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register