Steuerkette, doppelt

[microelly2]

Ich habe mal ein Skript gemacht, das auf einer Kurve Punkte mit gleichem Abstand findet. Das wären dann die Gelenke der Kettenglieder.
Daraus müssen jetzt nur die Placements berechnet werden und die Kettenglieder drauf platziert.
Ich denke. man kann das alles dann auch paramertisch machen und den Lauf des Polygons animieren.
Ich muss jetzt erstmal Schule , aber ab nachmittag sind Ferien hihi.

bp_966.png (12.18 KiB) Viewed 989 times

Code: Select all

c=App.ActiveDocument.Sketch.Shape.Edge1.Curve

def findDist(u0,u,d):
	p0=c.value(u0)
	for i in range(1000):
		p=c.value(u)

		err=(p-p0).Length-d
		err=err/d
		if err>1./2:err=1./2
		if err<-1./2:err=-1./2

		un=u-(u-u0)*err
		pn=c.value(un)

		errn=(pn-p0).Length-d
		u=un
		if abs(errn)<0.01:
			print ("gefunden ",i,un)
			break
	return un


d=300

def runall(u0,u,d):
	first=1
	pts=[c.value(u0)]
	for j in range(20):
		un=findDist(u0,u,d)
		if un>1:break
		pts += [c.value(un)]
		u0,u=un,un+0.1

	import Draft
	w=Draft.makeWire(pts)
	w.ViewObject.PointSize=5
	for e in w.Shape.Edges:
		print e.Length



runall(0,0.1,d)
runall(0.03,0.12,d)

[microelly2]

phpBB [video]

[chrisb]

im ersten Beitrag ist die Datei...

Danke, hatte ich übersehen.

[roerich_64]

Der Klaus hat vor kurzem dies geklöppelt:

https://forum.freecadweb.org/viewtopic. ... 12#p290004

https://www.youtube.com/watch?v=nUQezfu ... e=youtu.be


Die Punkte folgen dem Spline das sieht gut aus, Thomas.

VG
Walter

[chrisb]

Was haltet Ihr von dieser Lösung? Sie zeigt die Umsetzung meiner Idee von oben, mit den versetzten Pfaden:

Bildschirmfoto 2019-03-03 um 13.17.33.png (52.02 KiB) Viewed 923 times

[herbk]

Was haltet Ihr von dieser Lösung? Sie zeigt die Umsetzung meiner Idee von oben, mit den versetzten Pfaden:

welchen Pfad hast Du um wie viel versetzt?

Ich hatte das auch probiert, bin aber nicht so weit gekommen dass es die Glieder sauber auf dem Pfad gelegt hat. Ich hatte allerdings immer das ganze weiße Glied genommen.
Ich denke es muss funktionieren, denn die schwarzen Glieder liegen ja auch sauber auf dem Pfad...

[freecad-heini-1]

In Creo gibt es eine Möglichkeit sich den Umfang eines Kurvenverbundes berechnen zu lassen und ihn sogar tabellengesteuert zu beeinfussen, über einen variablen Wert, der dementsprechend angepasst wird, z.B. den Radius unten:

umfang_berechnen_und_tabellensteuern.png (49.03 KiB) Viewed 915 times

In der Arch-WB gibt es ein Messwerkzeug um den Umfang bei Doppelklick zu berechnen.

arch_survay_umfang.png (13.23 KiB) Viewed 915 times

Umfang in Tabelle, Länge eines Kettengliedes, geteilt durch Umfang, unteren Radius anpassen bis die Strecke passt.

Wie geht das mit Freecad?

[chrisb]

Ich habe den Pfad um genau eine Kettengliedlänge versetzt. Die Kurvenlänge bekommt man z.B. mit dem Macro curveLength.py:

Code: Select all

import math
import Part
# execfile('/Users/cb/panhard/coupe/sanssoupapes/curveLength.py')
doc = App.ActiveDocument=App.ActiveDocument

lSum = 0
edges = FreeCADGui.Selection.getSelectionEx()[0].SubObjects
for edge in edges:
  l = edge.Length
  lSum = lSum + l
dia = lSum/math.pi
print('Total: '+str(lSum))
print('Equivalent circle diameter: '+str(dia))

aber das hilft nicht sooo viel, weil die Kettenglieder im Kurvenbereich immer ein wenig "abkürzen".

[freecad-heini-1]

aber das hilft nicht sooo viel, weil die Kettenglieder im Kurvenbereich immer ein wenig "abkürzen".

Recht haste.

[chrisb]

Ich hatte das auch probiert, bin aber nicht so weit gekommen dass es die Glieder sauber auf dem Pfad gelegt hat. Ich hatte allerdings immer das ganze weiße Glied genommen.

Das Originalteil benimmt sich irgendwie merkwürdig, wahrscheinlich, weil es ein Compound ist. Ich hatte keine Lust, das zu untersuchen, weil das Thema hier ein ganz anderes ist und habe mir daher einfach an Hand des Originals die Geometrie in ein eigenes Teil übertragen.