캐드에서 4로 시작하는 특정레이어의 폴리라인을 클로즈시키고,
그 레이어 안에 들어있는 폴리라인의 갯수를 카운트하기 위해서 아래와 같이
코딩하였습니다.
그런데, 실제 있는 데이터보다 많이 나옵니다. CAD에서 다른 레이어를
OFF시키고, 4로 시작하는 레이어만 ON시켜서 전체 선택을 하면,
72개만 나오는데, 아래와 같이 코딩해서 나오는 MSGBOX의 결과는
108개입니다. 왜 이런 카운트 차이가 나는지요?
코드에는 문제가 없는 것 같은데… 눈에는 보이지 않지만 숨어있는
폴리라인이 있다는 말인지…아무리 찾아봐도 없습니다.
ㅠㅠㅠㅠ 좀 도와주세요!
i=1
For Each ent In ThisDrawing.ModelSpace
If ent.ObjectName = “AcDbpolyline” Then
Set objpolyline = ent
If Mid(objpolyline.LAYER, 1, 1) = “4” Then
objpolyline.Closed = True
objpolyline.Update
End If
End If
i=i+1
Next
MsgBox i – 1