Thema "3 punkt bogen" in Programmierung

3 punkt bogen

Anonymous — Mon, 26 Jul 2004 14:44:00 GMT

Ich habe drei punkte und eine linie

also p1, p2, p3

die linie geht von p1 nach p3
und der bogen geht auch von p1 nach p3 aber durch p2

ich will das ganze extrudieren.

Ich komm mit diesen dummen statuswerten ned zurecht.

Wie kann ich dass ding vernünftig extrudieren.
Infos an die ich komme.

alle punkte.
radius
start und endradius des bogens
und der mittelpunkt

Re: 3 punkt bogen

Anonymous — Mon, 26 Jul 2004 14:59:00 GMT

stimmt das so?

EXTRUDE 5, 0, 0, 40, 63,
p1x, p1y, 1,
centerx, centery, 901,
p3x, p3y, 3001,
p1x, p1y, 1,
p3x, p3y, -1

Re: 3 punkt bogen

Hmooslechner — Tue, 27 Jul 2004 07:43:00 GMT

Hallo Momo!

Ich hab zu Archicad-6.5-Zeiten mal ein 3-Punkte-Bogenelement als Bogenbemaßung gebaut.

Vielleicht hilfts ja weiter.
Es ist ziemlich am Boden dahinprogrammiert - also
mit Linien und Bögen

Es läßt sich im Archicad7 problemlos im Grundriss über die 3 Punkte mit der Maus skalieren..und liefert die Bogenlänge, den Radius und den Winkel als Text..

Bekommst Du als Mail..PLA.

(Sag mal - Bist Du Freimaurerin oder so - mit der Mail-Adresse? Koma666 - also das "Tier" im Koma?)

[ 27. Juli 2004, 09:46: Beitrag editiert von: Heimo ]

Re: 3 punkt bogen

Hmooslechner — Tue, 27 Jul 2004 07:51:00 GMT

Habe gerade gelesen, daß Du kein Archicad hast, dann hift Dir wahrscheinlich mein PLA-Archiv nicht wirklich weiter.

also hier mal der 2D-Code:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">
pen Farbl
line_type lintpl
line2 0,0, a,0 !Konstruktionslinien
hotspot2 0,0 !Haltepunkte
hotspot2 a,0
line2 a/2,0, a/2,b !Konstruktionslinien
hotspot2 a/2,b
hotspot2 a/2,0

ax=a/2
c=sqr(ax*ax+b*b) !Berechnung halbe Sehne
cx=c/2 !!nochmals halbieren
alpha=atn(b/ax) !!Damit Berechnung des Winkels
r=cx/sin(alpha) !!Daraus Berechnung von R

pen FarbB
line_type lintpb
if boglin = 1 then arc2 a/2,-r+b, r, 90-2*alpha, 90+2*alpha !Bogen zeichnen
bogen=r*pi*4*alpha/180 !Bogen rechnen

pen FarbT
define style "wie" txt, Sgroesse*A_/100, 8, 0
Style wie
bogen= str(bogen, 5, 2)
text2 a/2,b+abemlin,"b=" + bogen + "m" !!Bogenlg als Text schreiben

if bemlin=1 then
line_type Lintpbb
arc2 a/2,-r+b, r+abemlin, 90-2*alpha, 90+2*alpha !!eigenen Bogen als äußere Maßlinie zeichnen
beta=90-2*alpha
line_type lintpl
line2 a, 0, a+(abemlin*cos(beta)), abemlin*sin(beta) !Maßlinien zu Maßpunkt
line2 0,0, -(abemlin*cos(beta)), abemlin*sin(beta)
circle2 -(abemlin*cos(beta)), abemlin*sin(beta), bemgr
circle2 a+(abemlin*cos(beta)), abemlin*sin(beta), bemgr

else
endif

if mitw=1 then
line2 0, 0, a/2, -(r-b)
line2 a, 0, a/2, -(r-b)
mitwin=str(4*alpha, 4,2) !Mittwinkel zu Text wandeln
define style "wie1" txt, Sgroesse*A_/100, 7, 0
style wie1
add2 a/2, (-r+b+ABemlin)
rot2 90
text2 0,0, "w="+mitwin+"°" !Mittwinkeltext schreiben
del 2
arc2 a/2,-r+b, ABemlin, 90-2*alpha, 90+2*alpha
else
endif

if mitp=1 then
line2 a/2,-r+b, a/2, 0 !Linie bis Mittelpunkt
hotspot2 a/2,-r+b
else
endif

if rad=1 then
define style "wie2" txt, Sgroesse*A_/100, 1, 0
style wie2
add2 a/2, (-r+b+ABemlin)
rot2 90
ra=str(r, 3, 2)
text2 0,0, "r=" + ra + "m" !Mittwinkeltext schreiben
del 2
else
endif

Re: 3 punkt bogen

Anonymous — Tue, 27 Jul 2004 12:16:00 GMT

doch, hab mittlerweile archicad 8.

Wenn man das mit den statuswerten mal kapiert hat, dann geht das alles 🙂

Aber wieso haben die keine gescheite hilfe eingebaut?

Hatten wohl keine Lust so viel zu tippen.

zu jedem statuswert ein kleines Beispiel hätte doch gereicht.

Naja ich glaub langsam blick ich durch 🙂