문제 조합 지구

[vet.giu]

안녕하세요
autocad와 vb를 가진 첫번째 무기입니다
나는 문제가있다! : 혼란 :
나는 모든 폴리라인을 선택하는 모듈을 만들기 위해 지역 당 nr prog을 할당하고 결국 전체 영역을 가지고 지역에 합류.
지역이 생성되면 한 지역에서 가입 할 수 없습니다.
감사합니다!
이것은 완전한 부호입니다:
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
두 배로 dim textheight
텍스트높이 = 1

dim startno로 정수
시작 = 1

'이전 선택 제거
i = 0 에 thisdrawing.selectionsets.count - 1
if thisdrawing.selectionsets.item(i).name = "polyselection"이면
thisdrawing.selectionsets.item (i). 기타 제품
끝 면
이름 *

'선택 설정 만들기
acadselectionset로 dim polyselection
set polyselection = thisdrawing.selectionsets.add("polyselection")

'generates autocad 필터
dim gpcode(0) 정수
dim datavalue(0) 변형
gpcode(0) = 0
데이터값(0) = "lwpolyline"
변형으로 dim groupcode, 변형으로 datacode
그룹 코드 = gpcode
datacode = 데이터 값

필터를 사용하여 모든 폴리롤러 선택
, 그룹 코드, datacode

dim thispolyline(0) acadentity로
변형으로 dim myregion
변종으로 dim mycentroid

dim insertionpoint(0에서 2) 더블

이름 * 필터에서 선택된 폴리라인 설정
i = 0 에 polyselection. 조회수 - 1

set thispolyline(0) = polyselection.item (s)를

' polylinea에 지역을 만듭니다.
myregion = thisdrawing.modelspace. addregion(이폴리라인)

' 지역 센터 찾기
갑상선 = myregion(0).centroid

' 지역 취소
'myregion(0)입니다. 기타 제품


'지역의 중심에있는 텍스트의 삽입을 만들
삽입점(0) = mycentroid(0)
삽입점(1) = mycentroid(1)
삽입점(2) = 0

'지역의 진보적 인 수 만들기
thisdrawing.modelspace.addtext cstr(i + 1), 삽입점, textheight
다음 것 i

'Joints 지구

dim 단위 acadregion로
dim compreg로 acadregion

컴파일하다 = myregion(0)


i = 1 에 ubound(myregion)
msgbox "예"
단위 = myregion(s)

comg.boolean acunion, 단위
다운로드

다음 것 i

 

[Shape]

나는 모든 것을 읽는 시간을 가지지 않았다 그러나 1 일 내가 통지, 빈 객체를 빈 다음 다시 전화

루프 hole=1 대신 ... sste 개체의 선택에. sset lik의 각 요소에 대한 방법을 사용하여 배열의 크기를 계산하지 않고 1 ~ 1 똑같게 전달합니다.



' 지역 취소
'myregion(0)입니다. 기타 제품'지역의 중심에있는 텍스트의 삽입을 만들
삽입점(0) = mycentroid(0)
삽입점(1) = mycentroid(1)
삽입점(2) = 0

'지역의 진보적 인 수 만들기
thisdrawing.modelspace.addtext cstr(i + 1), 삽입점, textheight
다음 것 i

'Joints 지구

dim 단위 acadregion로
dim compreg로 acadregion

컴파일하다 = myregion(0)i = 1 에 ubound(myregion)
msgbox "예"
단위 = myregion(s)

comg.boolean acunion, 단위
다운로드

다음 것 i

더 보기
myregion = thisdrawing.modelspace. addregion(이폴리라인)
myregion(0) (1) 등을 정의하는 것을 이해하지 마십시오. 변형이 있지만, 당신이 그것을 매번 덮는 myregion에 채우면 myregion(i) = thisdrawing을 사용해야합니다. modelspace 카운터. addregion(thispolyline)

나는 그들을 던지고, 나는 모든 히치를 읽을 시간이 없다. 내 부모는 그냥 간식입니다.

 

[vet.giu]

자주 묻는 질문

 

[rpor66]

문제는 myregion 변수에 있습니다. 마지막으로 만들어진 영역만 포함합니다.
새로 만들어진 지역의 선택을 만들고 그에 합류하십시오.

안녕하세요.

 

[vet.giu]

:d ok 정확한 오류가 지금 작동합니다! !

너무 많은 도움을 주셔서 감사합니다