OSCAR$
Guest
Guten Morgen.
Ich machte eine Reihe von Elementen, 32, auf einer Platte und ich muss sie im Kontaktbereich mit diesem sammeln.
dazu habe ich ein einfaches Makro gemacht, da die Anzahl der Elemente variabel sein kann und ich einen Zyklus benutzte.
nicht alle Armaturen sind, sondern nur 6.
die zu verbindenden Kanten durch den Befehl ausgewählt werden Wählen Sie aus, wie ich ihre Koordinaten kenne, und ich denke, es ist die einzige verfügbare Funktion, die diese Methode verwendet, für mich notwendig.
die Suche auf dem Netz fand ich, dass die Methode der Auswahl "Probleme" hat, muss das Bild ausreichend gezoomt werden und alle Elemente verstehen, die ich angeschlossen habe.
Ich habe versucht, die Funktion zu nutzen Artikel 2 innerhalb und außerhalb des Zyklus erzeugt im ersten Fall das Makro nur das erste 6, während es im zweiten Teil einige Elemente kombiniert.
Anhang anzeigen 6847Anhang anzeigen 6847di seguito il programma in vba, gestohlen usando solidworks 2015.
Option explizit
dim swapp as sldworks. Schalungen
dim part als sldworks.modeldoc2
dim boolstatus als boolean
dim longstatus so lang, langwarnings as long
dim swmodview als sldworks.modelview
Teil Haupt()
set swapp = Anwendung. Schalungen
set part = swapp.activedoc
swmodview = part.activeview
dim passo, i als doppelt
dim delta_y, x_0, z als Doppel
x_0 = 159.26 / 1000
z = -1 / 1000
dim x_angle, y_angle als doppelt
x_angle = -45
y_angle = 0
für i = 0 bis 7
passo = (3.16 / 1000)
delta_y = (5,5 / 1000) + (i * passo)
boolstatus = part.extension.selectbyid2("", "edge", x_0, delta_y, z, true, 1, nichts, 0)
Nächste
dim radiiarray0 als Variante
dim radiis0 als doppelt
dim dist2array0 als Variante
dim dists20 als Doppel
dim conicrhosarray0 als Variante
dim conirhos0 als doppelt
dim setbackarray0 als Variante
dim setbacks0 als doppelt
dim pointarray0 als Variante
dim points0 als doppelt
dim pointdist2array0 als Variante
dim pointdist20 als doppelt
dim pointrhoarray0 als Variante
dim pointsrhos0 als doppelt
Radiarray0 = Radis0
Det2array0 = dists20
conicrhosarray0 = conirhos0
setbackarray0 = setbacks0
Punktarray0 = Punkte0
pointdist2array0 = pointdist20
Pointrhoarray0 = pointsrhos0
dim myfeature as sldworks. Funktion
myfeature = part.featuremanager.featurefillet3(195, 0.001, 0#, 0, 0, 0, 0, (radiiarray0), (dist2array0), (conicrhosarray0), (setbackarray0), (pointarray0), (pointdist2array0), (pointrhoarray0))
Endteil
Ich machte eine Reihe von Elementen, 32, auf einer Platte und ich muss sie im Kontaktbereich mit diesem sammeln.
dazu habe ich ein einfaches Makro gemacht, da die Anzahl der Elemente variabel sein kann und ich einen Zyklus benutzte.
nicht alle Armaturen sind, sondern nur 6.
die zu verbindenden Kanten durch den Befehl ausgewählt werden Wählen Sie aus, wie ich ihre Koordinaten kenne, und ich denke, es ist die einzige verfügbare Funktion, die diese Methode verwendet, für mich notwendig.
die Suche auf dem Netz fand ich, dass die Methode der Auswahl "Probleme" hat, muss das Bild ausreichend gezoomt werden und alle Elemente verstehen, die ich angeschlossen habe.
Ich habe versucht, die Funktion zu nutzen Artikel 2 innerhalb und außerhalb des Zyklus erzeugt im ersten Fall das Makro nur das erste 6, während es im zweiten Teil einige Elemente kombiniert.
Anhang anzeigen 6847Anhang anzeigen 6847di seguito il programma in vba, gestohlen usando solidworks 2015.
Option explizit
dim swapp as sldworks. Schalungen
dim part als sldworks.modeldoc2
dim boolstatus als boolean
dim longstatus so lang, langwarnings as long
dim swmodview als sldworks.modelview
Teil Haupt()
set swapp = Anwendung. Schalungen
set part = swapp.activedoc
swmodview = part.activeview
dim passo, i als doppelt
dim delta_y, x_0, z als Doppel
x_0 = 159.26 / 1000
z = -1 / 1000
dim x_angle, y_angle als doppelt
x_angle = -45
y_angle = 0
für i = 0 bis 7
passo = (3.16 / 1000)
delta_y = (5,5 / 1000) + (i * passo)
boolstatus = part.extension.selectbyid2("", "edge", x_0, delta_y, z, true, 1, nichts, 0)
Nächste
dim radiiarray0 als Variante
dim radiis0 als doppelt
dim dist2array0 als Variante
dim dists20 als Doppel
dim conicrhosarray0 als Variante
dim conirhos0 als doppelt
dim setbackarray0 als Variante
dim setbacks0 als doppelt
dim pointarray0 als Variante
dim points0 als doppelt
dim pointdist2array0 als Variante
dim pointdist20 als doppelt
dim pointrhoarray0 als Variante
dim pointsrhos0 als doppelt
Radiarray0 = Radis0
Det2array0 = dists20
conicrhosarray0 = conirhos0
setbackarray0 = setbacks0
Punktarray0 = Punkte0
pointdist2array0 = pointdist20
Pointrhoarray0 = pointsrhos0
dim myfeature as sldworks. Funktion
myfeature = part.featuremanager.featurefillet3(195, 0.001, 0#, 0, 0, 0, 0, (radiiarray0), (dist2array0), (conicrhosarray0), (setbackarray0), (pointarray0), (pointdist2array0), (pointrhoarray0))
Endteil
