설계와 프로그래밍

선택한 블럭을 영역내에서 삭제하는 소스입니다. Sub DeleteBlock() AppActivate ThisDrawing.Application.Caption On Error Resume Next Dim Doc As AcadDocument Set Doc = ThisDrawing Doc.Utility.Prompt vbCr & "블럭 제거프로그램..." Dim SelObjO As AcadObject Dim P1 As Variant Doc.Utility.GetEntity SelObjO, P1, "영역내 찾을 블럭을 선택하세요..." If SelObjO.ObjectName "AcDbBlockReference" Then Doc.Utility.Prompt vbCr & "블럭이 아닙니다..." Exit Sub End ..