OSCAR$
Guest
Bom dia a todos.
Fiz uma série de elementos, 32, numa chapa e preciso de os recolher na área de contacto com isto.
para fazer isso eu fiz uma macro simples, como o número de elementos pode ser variável e eu usei um ciclo para.
nem todos os acessórios são feitos, mas apenas 6.
as bordas a serem conectadas são selecionadas pelo comando seletivo2, como eu conheço suas coordenadas e eu acho que é a única função disponível que usa este método, para mim necessário.
pesquisando na rede eu descobri que o método de seleção tem "problemas", a imagem deve ser suficientemente ampliada e entender todos os elementos a serem conectados, o que eu fiz.
Eu tentei usar a função Perfil de recursos3 dentro e fora do ciclo, no primeiro caso a macro cria apenas o primeiro 6, enquanto no segundo combina alguns elementos.

di seguito il programma in vba, sto usando solidworks 2015.
opção explícita
dim swapp como sldworks. sldworks
dim parte como sldworks.modeldoc2
dim boolstatus como booleano
dim longstatus por muito tempo, anseios longos
dim swmodview como sldworks.modelview
sub principal()
set swapp = aplicação. sldworks
set part = swapp.activedoc
set swmodview = part.activeview
dim passo, i as double
dim delta_y, x_0, z como duplo
x_0 = 159.26 / 1000
z = -1 / 1000
dim x_angle, y_angle como duplo
x_angle = -45
I_angle = 0
para i = 0 a 7
Passo = (3.16 / 1000)
delta_y = (-5.5 / 1000) + (i * Passo)
boolstatus = part.extension.selectbyid2("", "edge", x_0, delta_y, z, true, 1, nothing, 0)
Próximo
dim radiiarray0 como variante
dim radiis0 como duplo
dim dist2array0 como variante
dim dists20 como duplo
dim conicrhosarray0 como variante
dim conirhos0 como duplo
dim setbackarray0 como variante
dim setbacks0 como duplo
dim pointarray0 como variante
dim points0 como duplo
dim pointdist2array0 como variante
dim pointdist20 como duplo
dim pointrhoarray0 como variante
dim pointsrhos0 como duplo
radiiarray0 = radiis0
dist2array0 = dists20
conicrhosarray0 = conirhos0
setbackarray0 = setbacks0
pontos0
pointdist2array0 = pontosdist20
pointrhoarray0 = pontos
dim myfeature como sldworks. recurso
set myfeature = part.featuremanager.featurefillet3(195, 0.001, 0#, 0, 0, 0, 0, (radiiarray0), (dist2array0), (conicrhosarray0), (setbackarray0), (pointarray0), (pointdist2array0), (pointrhoarray0))
end sub
Fiz uma série de elementos, 32, numa chapa e preciso de os recolher na área de contacto com isto.
para fazer isso eu fiz uma macro simples, como o número de elementos pode ser variável e eu usei um ciclo para.
nem todos os acessórios são feitos, mas apenas 6.
as bordas a serem conectadas são selecionadas pelo comando seletivo2, como eu conheço suas coordenadas e eu acho que é a única função disponível que usa este método, para mim necessário.
pesquisando na rede eu descobri que o método de seleção tem "problemas", a imagem deve ser suficientemente ampliada e entender todos os elementos a serem conectados, o que eu fiz.
Eu tentei usar a função Perfil de recursos3 dentro e fora do ciclo, no primeiro caso a macro cria apenas o primeiro 6, enquanto no segundo combina alguns elementos.


opção explícita
dim swapp como sldworks. sldworks
dim parte como sldworks.modeldoc2
dim boolstatus como booleano
dim longstatus por muito tempo, anseios longos
dim swmodview como sldworks.modelview
sub principal()
set swapp = aplicação. sldworks
set part = swapp.activedoc
set swmodview = part.activeview
dim passo, i as double
dim delta_y, x_0, z como duplo
x_0 = 159.26 / 1000
z = -1 / 1000
dim x_angle, y_angle como duplo
x_angle = -45
I_angle = 0
para i = 0 a 7
Passo = (3.16 / 1000)
delta_y = (-5.5 / 1000) + (i * Passo)
boolstatus = part.extension.selectbyid2("", "edge", x_0, delta_y, z, true, 1, nothing, 0)
Próximo
dim radiiarray0 como variante
dim radiis0 como duplo
dim dist2array0 como variante
dim dists20 como duplo
dim conicrhosarray0 como variante
dim conirhos0 como duplo
dim setbackarray0 como variante
dim setbacks0 como duplo
dim pointarray0 como variante
dim points0 como duplo
dim pointdist2array0 como variante
dim pointdist20 como duplo
dim pointrhoarray0 como variante
dim pointsrhos0 como duplo
radiiarray0 = radiis0
dist2array0 = dists20
conicrhosarray0 = conirhos0
setbackarray0 = setbacks0
pontos0
pointdist2array0 = pontosdist20
pointrhoarray0 = pontos
dim myfeature como sldworks. recurso
set myfeature = part.featuremanager.featurefillet3(195, 0.001, 0#, 0, 0, 0, 0, (radiiarray0), (dist2array0), (conicrhosarray0), (setbackarray0), (pointarray0), (pointdist2array0), (pointrhoarray0))
end sub