VBA를 사용하여 오토 캐드에서 도면 안의 항목 수를 확인하십시오.

Question

모델 공간 내에있는 항목의 수를 얻으려고합니다. Count은 내가 속임수로 잘못 쓰지는 않지만 작동하게 만들 수는 없습니다. (틀릴 수도 있습니다). 예 : Set entity = ThisDrawing.ModelSpace.Item(0)은 첫 번째 항목 만 가져옵니다. Set entity = ThisDrawing.ModelSpace.Item(0)은 두 번째를 얻습니다. 그러나 우리가 얼마나 많은지 아는 법?

나는 ThisDrawing.ModelSpace.Count을 시도했지만 실행시 아래 오류가 발생합니다.

Answer 1

얘 이에 대한 해결책은 ThisDrawing.ModelSpace.Count를 사용했지만 정수 변수 내측으로 설정. 이제 아래를 사용하여 작동했습니다.

Dim X As Long 
X = ThisDrawing.ModelSpace.Count