OSCAR$
Guest
안녕하세요.
나는 일련의 요소, 32, 판에 만들고 나는이 접촉 지역에 그들을 수집해야합니다.
나는 간단한 매크로를 만들려면, 요소의 숫자로 변수를 할 수 있고 나는 주기를 사용.
모든 피팅은 만들지 만 6.
연결될 가장자리는 명령에 의해 선택됩니다 선택2, 나는 그들의 협조를 알고 있기 때문에 나는 이 방법을 사용하는 유일한 유효한 기능이라고 생각합니다, 나를 위해 필요한.
그물에 검색 나는 선택의 방법이 "problems", 이미지를 충분히 확대하고 내가 한 모든 요소를 이해해야한다는 것을 발견했다.
나는 기능을 사용하려고 기능충분3 내부 및 외부 사이클, 첫 번째 경우 매크로는 첫 번째 6을 생성하지만, 두 번째에서 일부 요소를 결합합니다.
vba에서 디 seguito il programma, usando 솔리드 웍스 2015.
옵션 명시
sldworks로 dim swapp. 관련 링크
sldworks.modeldoc2로 디엠 파트
boolean으로 dim boolstatus
긴, 긴, 긴, 긴
sldworks.modelview로 디엠 swmodview
하위 메인()
swapp = 응용 프로그램 설정. 관련 링크
설정된 부분 = swapp.activedoc
set swmodview = 부분.activeview
dim passo, 나는 이중으로
dim delta_y, x_0, 두 배로 z
x_0 = 159.26 / 1000년
₢ 킹
dim x_angle, 더블 y_angle
x_각 = -45
y_angle = 0
나는 = 0에서 7
패스 = (3.16 / 1000)
delta_y = (-5.5 / 1000) + (i * 패스)
boolstatus = part.extension.selectbyid2("", "edge", x_0, delta_y, z, true, 1, 아무것도, 0)
이름 *
변형으로 dim radiiarray0
dim radiis0 두 배로
변형으로 dim dist2array0
dim dists20 두 배로
변형으로 dim conicrhosarray0
dim conirhos0 로 더블
변형으로 dim setbackarray0
dim setbacks0 으로 더블
변형으로 dim pointarray0
dim point0 두 배로
변형으로 dim pointdist2array0
dim pointdist20 두 배로
변형으로 dim pointrhoarray0
dim pointrhos0 두 배로
radiiarray0 = 레이디 0
디트2array0 = dists20
conicrhosarray0 = conirhos0
setbackarray0 = 설정0
pointarray0 = 포인트0
pointdist2array0 = 포인트20
pointrhoarray0 = 포인트 0
sldworks로 나의 기능을 흐리게 합니다. 제품 정보
myfeature = part.featuremanager.featurefillet3(195, 0.001, 0#, 0, 0, 0, 0, (radiiarray0), (dist2array0), (conicrhosarray0), (setbackarray0), (pointarray0), (pointdist2array0), (pointrhoarray0)
끝 이하
나는 일련의 요소, 32, 판에 만들고 나는이 접촉 지역에 그들을 수집해야합니다.
나는 간단한 매크로를 만들려면, 요소의 숫자로 변수를 할 수 있고 나는 주기를 사용.
모든 피팅은 만들지 만 6.
연결될 가장자리는 명령에 의해 선택됩니다 선택2, 나는 그들의 협조를 알고 있기 때문에 나는 이 방법을 사용하는 유일한 유효한 기능이라고 생각합니다, 나를 위해 필요한.
그물에 검색 나는 선택의 방법이 "problems", 이미지를 충분히 확대하고 내가 한 모든 요소를 이해해야한다는 것을 발견했다.
나는 기능을 사용하려고 기능충분3 내부 및 외부 사이클, 첫 번째 경우 매크로는 첫 번째 6을 생성하지만, 두 번째에서 일부 요소를 결합합니다.
vba에서 디 seguito il programma, usando 솔리드 웍스 2015.
옵션 명시
sldworks로 dim swapp. 관련 링크
sldworks.modeldoc2로 디엠 파트
boolean으로 dim boolstatus
긴, 긴, 긴, 긴
sldworks.modelview로 디엠 swmodview
하위 메인()
swapp = 응용 프로그램 설정. 관련 링크
설정된 부분 = swapp.activedoc
set swmodview = 부분.activeview
dim passo, 나는 이중으로
dim delta_y, x_0, 두 배로 z
x_0 = 159.26 / 1000년
₢ 킹
dim x_angle, 더블 y_angle
x_각 = -45
y_angle = 0
나는 = 0에서 7
패스 = (3.16 / 1000)
delta_y = (-5.5 / 1000) + (i * 패스)
boolstatus = part.extension.selectbyid2("", "edge", x_0, delta_y, z, true, 1, 아무것도, 0)
이름 *
변형으로 dim radiiarray0
dim radiis0 두 배로
변형으로 dim dist2array0
dim dists20 두 배로
변형으로 dim conicrhosarray0
dim conirhos0 로 더블
변형으로 dim setbackarray0
dim setbacks0 으로 더블
변형으로 dim pointarray0
dim point0 두 배로
변형으로 dim pointdist2array0
dim pointdist20 두 배로
변형으로 dim pointrhoarray0
dim pointrhos0 두 배로
radiiarray0 = 레이디 0
디트2array0 = dists20
conicrhosarray0 = conirhos0
setbackarray0 = 설정0
pointarray0 = 포인트0
pointdist2array0 = 포인트20
pointrhoarray0 = 포인트 0
sldworks로 나의 기능을 흐리게 합니다. 제품 정보
myfeature = part.featuremanager.featurefillet3(195, 0.001, 0#, 0, 0, 0, 0, (radiiarray0), (dist2array0), (conicrhosarray0), (setbackarray0), (pointarray0), (pointdist2array0), (pointrhoarray0)
끝 이하
