Andrea Amedei
Guest
좋은 아침.
머리에 오지 않고 내 머리를 닌다 몇 일입니다. 이름 * 나는 종종 다양한 구멍에서 이미지를 볼 수있는 견고한 기능을 수행해야합니다. 나는이 프로세스를 자동화 한 매크로를 만드는 생각이었습니다.
건축하는 단단한 특징은 그것 보다는 더 중대한 직경 n 시간이 있는 구멍의 투상과 더 큰 원형의 기본적인 스케치가 있는 “prism”입니다 (놓는 모수). 밀어남 고도는 또한 모수입니다.
이렇게하려면 아래 그림에서 볼 수있는 userform을 만들었습니다. 사용자는 순서 (지상 선택, 선택 구멍 가장자리에 있는 3개의 단추를 이용해야 하고, 고체를 창조합니다) d/d 비율의 2개의 원본 상자 및 단면도 밀어남 고도를 이용합니다.
나는 excel에 꽤 잘 vba 프로그래밍 알고 있지만, 그들은 정말 Catia와 함께. 내가 한 순간에 다음과 같은:
"선택 표면" 버튼
private sub select_surface_button_click_click()
디엠 myselection
dim myarray(0) 얼굴
dim strreturn 문자열로
dim part1 로 부분
dim partdocument1 으로 partdocument
dim myhybridbodies 으로 Hybridbodies
myselection 설정 = catia.activedocument.selection
내 선택.clear
이름 *
strreturn = myselection.selectelement2(array("face"), "클래스 선택:", false)
strreturn = "정상적인"다음
'redim 보존 myarray (파운드 (myarray) + 1)
myarray(ubound(myarray))를 설정한다 = myselection.item2(1).value
끝 면
textbox1.text = 마이어레이(0).name
나.쇼
끝 이하
단추 “선택 가장자리 구멍”
private sub select_edge_button_click_click()
디엠 myselection
dim myarray(0) 가장자리로
dim strreturn 문자열로
dim part1 로 부분
dim partdocument1 으로 partdocument
myselection 설정 = catia.activedocument.selection
내 선택.clear
이름 *
strreturn = myselection.selectelement2 (array("edge"), "접촉:", false)
strreturn = "정상적인"다음
'redim 보존 myarray (파운드 (myarray) + 1)
myarray(ubound(myarray))를 설정한다 = myselection.item2(1).value
끝 면
textbox2.text = 마이어레이(0).name
나.쇼
끝 이하이 시점에서, 더 긴 텍스트 상자에서 선택한 표면과 가장자리의 이름(?)가 나타납니다. "crea solid"를 누르면 소프트웨어를 빌드 할 것입니다 :
1. 선택한 표면에 스케치 계획 (Userform의 이름을 사용? ·
2. 선택된 구멍의 가장자리에서 직경과 그것의 센터를 파생하십시오
3. 명세 구멍의 가장자리를 가지고 그 층에 프로젝트
4. 계획된 가장자리와 직경 d=n*d의 동일한 센터를 가진 새로운 원형을 창조하십시오
5. 명세 스케치
6. userform에 있는 extrude 고도 세트
7. 모든 것을 확인하고 새로운 가동을 위한 모든 userform를 청소하십시오
나는 누군가가 나를 도울 수 있기를 바랍니다, 심지어 매크로 레코드와 함께 나는 프로그램이 작동하는 방법을 이해할 수 없습니다.
인사,
안드레아
머리에 오지 않고 내 머리를 닌다 몇 일입니다. 이름 * 나는 종종 다양한 구멍에서 이미지를 볼 수있는 견고한 기능을 수행해야합니다. 나는이 프로세스를 자동화 한 매크로를 만드는 생각이었습니다.
건축하는 단단한 특징은 그것 보다는 더 중대한 직경 n 시간이 있는 구멍의 투상과 더 큰 원형의 기본적인 스케치가 있는 “prism”입니다 (놓는 모수). 밀어남 고도는 또한 모수입니다.
이렇게하려면 아래 그림에서 볼 수있는 userform을 만들었습니다. 사용자는 순서 (지상 선택, 선택 구멍 가장자리에 있는 3개의 단추를 이용해야 하고, 고체를 창조합니다) d/d 비율의 2개의 원본 상자 및 단면도 밀어남 고도를 이용합니다.나는 excel에 꽤 잘 vba 프로그래밍 알고 있지만, 그들은 정말 Catia와 함께. 내가 한 순간에 다음과 같은:"선택 표면" 버튼
private sub select_surface_button_click_click()
디엠 myselection
dim myarray(0) 얼굴
dim strreturn 문자열로
dim part1 로 부분
dim partdocument1 으로 partdocument
dim myhybridbodies 으로 Hybridbodies
myselection 설정 = catia.activedocument.selection
내 선택.clear
이름 *
strreturn = myselection.selectelement2(array("face"), "클래스 선택:", false)
strreturn = "정상적인"다음
'redim 보존 myarray (파운드 (myarray) + 1)
myarray(ubound(myarray))를 설정한다 = myselection.item2(1).value
끝 면
textbox1.text = 마이어레이(0).name
나.쇼
끝 이하
단추 “선택 가장자리 구멍”
private sub select_edge_button_click_click()
디엠 myselection
dim myarray(0) 가장자리로
dim strreturn 문자열로
dim part1 로 부분
dim partdocument1 으로 partdocument
myselection 설정 = catia.activedocument.selection
내 선택.clear
이름 *
strreturn = myselection.selectelement2 (array("edge"), "접촉:", false)
strreturn = "정상적인"다음
'redim 보존 myarray (파운드 (myarray) + 1)
myarray(ubound(myarray))를 설정한다 = myselection.item2(1).value
끝 면
textbox2.text = 마이어레이(0).name
나.쇼
끝 이하이 시점에서, 더 긴 텍스트 상자에서 선택한 표면과 가장자리의 이름(?)가 나타납니다. "crea solid"를 누르면 소프트웨어를 빌드 할 것입니다 :
1. 선택한 표면에 스케치 계획 (Userform의 이름을 사용? ·
2. 선택된 구멍의 가장자리에서 직경과 그것의 센터를 파생하십시오
3. 명세 구멍의 가장자리를 가지고 그 층에 프로젝트
4. 계획된 가장자리와 직경 d=n*d의 동일한 센터를 가진 새로운 원형을 창조하십시오
5. 명세 스케치
6. userform에 있는 extrude 고도 세트
7. 모든 것을 확인하고 새로운 가동을 위한 모든 userform를 청소하십시오
나는 누군가가 나를 도울 수 있기를 바랍니다, 심지어 매크로 레코드와 함께 나는 프로그램이 작동하는 방법을 이해할 수 없습니다.
인사,
안드레아
