честно говоря
, я и сам только начал изучать VBA в среде AutoCAD, и для конкретного ответа хотелось бы знать
, какой код ты уже написал, и чего именно тебе не хватает? Но тем не менее:
Private Sub UserForm_Initialize()
Set Space = ThisDrawing.ModelSpace
End Sub
Private Sub CommandButton1_Click()
Dim Space, CurObject as Object
For Each CurObject in Space
With CurObject
if CurObject.EntityName <> "acdd3Solid" then goto 1
if CurObject.EntityName = "acdd3Solid" then
CurObject.delete
.update
goto 2
end if
1
end if
end with
next curObject
2
End Sub
По-моему, так
, пишу по памяти...если что пиши, там разберемся
