Thema "Re: polygon editierbar" in Programmierung

polygon editierbar

dihes8010 — Thu, 24 Oct 2013 07:15:13 GMT

ist es möglich ein geschlossenes Polygon per gdl zu programmieren, sodass nachher per Mausklick zusätzlich Punkte eingefügt werden können?

Also etwa zu einem Dreieck per Mausclick eine vierte Ecke zufügen.
Im Grunde wie der anpassbare Raumstempel. Zuerst positionieren und dann die Ecken anpassen.

Danke für Anregungen.

Re: polygon editierbar

Anonymous — Thu, 24 Oct 2013 11:09:03 GMT

Ja, das geht.
Ein Programmierer hat seinen Code kostenlos (mit Einschränkungen) zur Verfügung gestellt.
Siehe hier:
http://archicad-talk.graphisoft.com/vie ... 84eafbad53

Re: polygon editierbar

dihes8010 — Thu, 24 Oct 2013 11:32:22 GMT

Wie gut ist das denn

genau das habe ich gesucht

brauch das nur noch anzupassen

& so schnell

es lebe das Forum °°°

& Dank an Jochen ...

Re: polygon editierbar

Hmooslechner — Wed, 13 Nov 2013 05:40:32 GMT

https://www.dropbox.com/s/q1dgc5iq47nzi7n/Kanal_J.pln

Ich habe das Teil mal als Grundlage für mein neues komplett neu gescriptes Kanalbauteil genommen.

Diesesmal habe ich keine 3D-Elemente außer den 3D-Linien eingebaut - Es dient also rein zum Kanal-Konzept und Plan. Dies ließe sich aber leicht hinzugeben..

Original from:
http://archicad-talk.graphisoft.com/vie ... hp?t=43721
Ursprünglicher Autor: Author: sinceV6

Geändert durch Heimo Mooslechner für Kanal - Zwecke
Version 1 - 3D - Höhenverstellungen von Sohlen, Gefällen und Abstürzen.
Bisher ist nur die Kanasohle KSZ an die Selbstvergrößerung angepasst, Die anderen neuen Parameter wurden einfach bis 50 erzeugt - der Faulheit halber.

Im Grundriss können alle Textblöcke (Schacht und Strang) eigens verschoben, gedreht und eingefärbt werden. Änderungen der Höhenlagen sowohl im 3D und im Optionalen Längenschnitt wirken sich sofort auf die Zahlen im Grundriss aus. Schächte sind im Grundriss Ein-Ausschaltbar

Beim Einsetzen wird der Kanal einfach parallel zur GOK gezeichnet. Dies kann aber durch Schalter in der Nähe des Einlaufes in den Anschlußschacht auf freie Tiefen gestellt werden.

Das Hilfesystem (Beschriftungen der grafischen Hotspotschalter) kan dort auch ein und ausgeschaltet werden.

Bitte um Rückmeldungen.

Re: polygon editierbar

Hmooslechner — Wed, 13 Nov 2013 15:26:01 GMT

Habe gerade bemerkt, dass sich in der 32BitAC16 Fehlermeldungen zeigen, die in der 64Bit Version AC16, mit der ich das programmiert habe - nicht gezeigt haben - seltsam..

Hier die neueste Version auch bei der 32Bit lauffähig..:
https://www.dropbox.com/s/eme47bhjzfwj13d/Kanal_K.pln

Re: polygon editierbar

Hmooslechner — Thu, 14 Nov 2013 23:06:09 GMT

Neue Neueste;-)

https://www.dropbox.com/s/titg05n8uamd3xc/Kanal_L.pln

Re: polygon editierbar

Hmooslechner — Fri, 15 Nov 2013 11:26:21 GMT

In Abständen immer wieder neu downloaden - weil ich nicht ständig neue Filenamen vergebe, wenn ich Updates davon mache.

Mittlerweile Eingebaut - grafischer Schalter-ob Meereshöhe gilt - und nun funtioniert auch die Meereshöhen-Umrechnung beim Grundriss.

Re: polygon editierbar

Hmooslechner — Mon, 18 Nov 2013 18:23:42 GMT

Ein anderes Projekt - die Wand mit unterschiedlichen Z - Fußpunkten - ebenfalls mit dem Hotspot - Polygon im Grundriss:

und der Download - Link:

https://www.dropbox.com/s/wcvwjz0owsbd4aj/Polygonzug_Wand.pln

Re: polygon editierbar

dihes8010 — Tue, 24 Dec 2013 10:33:30 GMT

Hallo Heimo

Danke für deine Beiträge - habe das Kanaltool in Verwendung - super danke
Rechteckige Schächte wären noch der HIT.

---

Das Script von "sinceV6" versuche ich für mein GDL zu verwenden.
Scheitere aber daran, dass das geschlossene Polygon mit LINE2 in einer Schleife gebaut wird.

Für mein GDL brauche ich ein geschlossenes Polygon mit transparent Schraffur.

Derzeit konstruiere ich ein Rechteck mit POLY2_B.
POLY2_B kann ich allerdings nicht in einer Schleife verwenden um ein Polygon zu konstruieren.

Danke für Hinweise

Re: polygon editierbar

Hmooslechner — Thu, 26 Dec 2013 22:06:23 GMT

Du Mußt vermutlich den Umweg über put und get nehmen.

Wenn Du Deine Koordinaten mit Put in den Speicherstack "Steckst" - kannst Du es dann im "Poly-Irgendwas - Befehl" wieder umgekehrt rausholen und jeweils die Anzahl der Punkte ebenfalls. Somit wird sowas dynamisch.

Ich habe sowas bei meiner einläufigen Treppe gemacht - kannst Du Dir in Archicad im Stiegenwerkzeug vom Bim-Server saugen. "einlaeufige Treppe....." oder so suchen - immer das letzte in der Buchstabenreihenfolge istr das neueste..

Hier ein Ausschnitt - Allerdingsa vom 3D-Code - ist aber sonst gleich..



300: 	!!!Puts und Anfasserpunkte und Linien Unterkante

	
	!!!Vorgeplänkel im Stack...
	
	Put 0,0															!!! 1 Startpunkt
	hsid = hsid+1
		hotline 0,0,0, 0,0,b, hsid
		hotspot 0,0,0
		hotspot 0,0,b

	put -Bodenaufbauu, 0											!!!Bodenaufbau unten runter

	put -Bodenaufbauu, -AnpassO-Weiterraus							!!! 2 Antrittstufenkante
		hotspot  0, -AnpassO-Weiterraus,0
	put -Bodenaufbauu, -AnpassO - Weiterraus - PodVerlUnten			!!! Podestverlängerung unten OK
	Put -Aufbau_unten, -AnpassO - Weiterraus - PodVerlUnten	
	put -Aufbau_unten, -AnpassO- Weiterraus							!!! 3 Senkrecht Gesamtaufbaudicke
		hotspot   -Aufbau_unten,-AnpassO- Weiterraus, 0
		hsid = hsid+1
		hotline -Aufbau_unten,-AnpassO - Weiterraus, -Aufbau_unten,0,   -AnpassO- Weiterraus, b, hsid
		
	put (numriser)*riser-Aufbau_Oben, numriser*going-AnpassO   		!!! 5  - S c h n i t t p u n k t   U K s 
		hotspot  (numriser)*riser-Aufbau_Oben, numriser*going-AnpassO ,0
	put (numriser)*riser-Aufbau_Oben, numriser*going				!!! 6 Plattenunterkante - Eck
	
	if PodVerlOben >0 then  !!!!oberes Podest verlängern
	
		put (numriser)*riser-Aufbau_Oben, numriser*going+PodVerlOben	!!! 6.1 Plattenunterkante 
			Hotspot (numriser)*riser, numriser*going+PodVerlOben,0
		put (numriser)*riser-Bodenaufbauo, numriser*going+PodVerlOben	!!!Plattenoberkante  !!6.2 OK
			hotspot (numriser)*riser, numriser*going+PodVerlOben, 0	
		Put numriser*riser-Bodenaufbauo, numriser*going				!!!Austrittstufe Hinterkante oberer Bodenaufbau unten
		
	else
	endif  !!!! Ende oberes Podest verlängern


		hotspot  (numriser)*riser-Aufbau_Oben, numriser*going,0
	
return  	!!!Ende Puts und Anfasserpunkte und Linien Unterkante








310:  !!!Eigentliche Stufen in den Stack:... von oben runter
		
	for N = numriser to 1 step -1		!!Sooft Stufen mach:
	 Put n*riser, n*going					!!!Waagrechter Punkt Vorderkante
	 Put n*riser, (n-1)*going-rak			!!!Senkrechter Punkt darunter + nach hinten versetzt
	next n
	
	put 0,0 								!!!Wieder zurück zum Endpunkt des Polygons
	



	MATERIAL Matl
	Pen pcol
	model solid
	SECT_ATTRS Schraffur, SchrHingStift, FuellStift, Konturstift, LinienTypImSchnitt

	prism nsp/2, b,   !!!!!!!E i g e n t l i c h e r   3 D - B e f e h l 
	 get(nsp)

Habe ich aus dem GDL - Kochbuch.. = dort allerdings simpler dargestellt.

Re: polygon editierbar

Hmooslechner — Fri, 27 Dec 2013 11:31:57 GMT

https://docs.google.com/document/d/1pzYnhHXr9DEHjTo1YBw-wS_r7bUWMzhrWP5md-tUAds/preview?pli=1

Dies sind die Beispiele aus dem GDL-Cookbook 4 - links unten unter Put & Get. Du brauchst allerdings einen Google Account zum Downloaden des jeweiligen PDF.

Re: polygon editierbar

Hmooslechner — Fri, 27 Dec 2013 18:29:36 GMT

Hat mich selber interessiert:

https://www.dropbox.com/s/0f9ndjcb9u99fnl/Polygonschraffur.pln

Ist eine Edu Aut-Datei mit dem ursprünglichen Polygon von sinceV6
und meiner kleinen Änderung:


IF showHelperPolyline THEN
	FOR i=1 to segments
	LINE2 x[i],y[i],	x[i+1],y[i+1]
	HOTLINE2 x[i],y[i],	x[i+1],y[i+1]
	put x[i]
	put y[i]
	put 1
	NEXT i
	put x[i+1]
	put y[i+1]
	put 1
ENDIF

!!POLY2_B n, frame_fill,
!!fill_pen, fill_background_pen,
!!x1, y1, s1, ..., xn, yn, sn
!!Erweiterte Version des Befehls POLY2_, mit weiteren Parametern: der Stift-Schraffur und des Hintergrundstiftes. Alle anderen Parameter
!!entsprechen denen, die unter dem Befehl POLY2_beschrieben wurden.
!!fill_pen: Nummer des Schraffurstifts
!!fill_background_pen: Nummer des Schraffurhintergrundstifts
!!Zusätzliche Statuscodes ermöglichen das Erstellen von Segmenten und Bögen in der planaren Polylinie.



pen 1

set fill Fuellungsschraffur

poly2_b nsp/3, 2+4,
	Fuellungsstift, Fuellungshintergrundstift,
 get(nsp)

Re: polygon editierbar

dihes8010 — Mon, 30 Dec 2013 07:49:12 GMT

Danke Heimo

du bist der beste ...

hatte diese stack-Geschichte schon gefunden, allerdings noch keine Lösung.

Dank dir gehts schneller

funkt

hny & nochmal thx