Poslední

> > > gisáci n@ Univerzitě Palackého Olomouc

PPGI fiktivni kolokvium

Swenney • 2007-01-15 01:54:28
Tak zatimco se roman s Veslim opijijou, a barca je v tom este podporuje, tak ja se Strublosem, ode dneska se vsak jmenujeme Pat a Mat (a ja jsem Mat) tvrde makame na Bilovi...zkouseli sme zpracovat ty 3 fiktivni kolokvia...to prvni udelal Strublos uz kdysi davno, ale stejne sem to skousel napsat sam (a skoro to vyslo:) )no a dneska sem se pustil do toho druhyho, a strublos do toho tretiho... Po vzajemne spolupraci jsme nakonec temer zaroven dosahli vytouzeneho cile:)
A nez predu k vlastnimu skriptu tak se s Vami, mile ctenarky musim podelit o veselou zkusenost...v diskuzi se zniceho nic objevil prispevek od romana (ze je ozralej) a tak sem si rikal ze mu poslu povzbuzujici zpravu pres ICQ.....tak jsem napsal "hovado" a potvrdil odeslani stiskem ALT+S. Kdyz v tom prave v tu samou chvili me prisla zprava:
Roman Manda:
hvdo
Tady jde videt ze jsme si zrejme souzeni:)
Ale ted uz konec kecani....skript dela to, ze si otevrete 2 libovolna bodova temata, a jeho spustenim se vam k tomu co je nahore prida pole "bodik" a "vzdalenost" a tam jsou vypsany ID a vzdalenosti od nejblizsiho bodu z toho druheho tematu. funguje to jak pro vlastni body (to doporucuju nastavit v msgboxu 1), tak i pro arcCr (nastavit 20000, ale to mate napsany v tom msgboxu)...vyzkouseny je to pro obce a vysky...ale nevidim duvod proc by to nemelo jet aj u jinych vrstev. Pokud jste se divali do souboru co tam nahral Pat, tak loni byl toten priklad posledni pokus na kolco....a ty ostatni taky nejsou zas tak tezky, ale bojim se ze nas letos sejme vic jak loni:(

a pokud se ptate proc proste nenahraju soubor na web a misto toho tady blbe kecam, tak nevim:) asi proto ze jsem si navykl usinat o 4 az pul pate, a do tze doby este nejaky ty hodiny zbyvaji a tak se zabavuju:)

MsgBox.Info ("Toto je skript na fiktivni kolokvium No.2,kterej ma k bodu z jednoho tematu priradit nejblizsi
bod druhyho tematu. takze mejte 2 bodova temata. Prvni je to kery bereme jakoby stredy, a do jeho tabulky se
budou psat ty vzdalenosti a tak. By Standa", "INFO")

theView=av.GetActiveDoc
theTheme=theView.GetThemes.Get(0)
theFTab=theTheme.GetFTab
theshape=theftab.findfield("Shape")
theftab.seteditable(true)
bodik = Field.Make("nejblizsi bodik",#FIELD_SHORT, 4, 0)
vzdal = Field.Make("vzdalenost",#FIELD_SHORT, 6, 3)
theFTab.AddFields ({bodik, vzdal})

theTheme2=theView.GetThemes.Get(1)
theFTab2=theTheme2.GetFTab
theshape2=theftab2.findfield("Shape")
theID = Field.Make("ID",#FIELD_SHORT, 4, 0)
theftab2.seteditable(true)
theFTab2.AddFields ({theID})

For each l in theftab2
theFTab2.SetValue(theID, l, l+1)
end

minimum=1000000000
seznamdist={}

Polomer=msgbox.input("sem se zadava polomer kruhu ve kterym to vyhledava. Pro vlastni temata doporucuju 1,
pro arcCR 20000 (ale trva to)","polomer","").asnumber

For each i in theFtab

stred=theFtab.returnvalue(theshape,i)

kruh=circle.Make(stred, polomer)
kruh2=kruh.AsPolygon
TheFtab2.SelectByPolygon(kruh2, #VTAB_SELTYPE_NEW)

For each j in theFtab2.Getselection
bod=theFtab2.returnValue(theShape2, j)
nazev=theFtab2.returnValue(theID, j)
vzdalenost=stred.Distance(bod)

if (vzdalenost < minimum) then
minimum=vzdalenost
nazev2=nazev
end
end

vzdalenost2=vzdalenost
theFTab.SetValue(bodik, i,nazev2 )
theFTab.SetValue(vzdal, i,vzdalenost2 )

minimum=10000000
end

^ ^vaše komentáře k článku

strublos • 2007-01-15 02:02:40 • 88.146.x.x

ja vam to predam klasickou cestou :)

tak to budu pěkně v....

vesli*už*střízlivej • 2007-01-15 02:04:03 • 158.194.x.x

No jsou to pěkný věci ale jestli to nepujde pomocí CRTL+C a CTRL+V a nějakýho drobnýho odladění tak budu muset na druhej pokus a nerad bych šel na třetí ....to mi nedělá dobře tyhle stresy, tak to snad nějak vydrtíme...hoj

a díky Staňo za aktivitu

hovado

eLucky*trefeny*dverama*mezi*ociska • 2007-01-15 02:15:25 • 217.115.x.x

A ja si myslel, ze je mi souzena barca... tak ne... je to stana:D

cahik • 2007-01-15 10:08:00 • 80.95.x.x

chlapče chlapče ty to nějak moc hrotiš všecko. stejně nám tam da nějakou chutovku co se za pul hodky nebude dat udelat a budem v haji vseci

rosta • 2007-01-15 12:09:35 • 213.29.x.x

taky sem to zkousel ale zasekl sem se v polovine...stejne nejvetsi prdel bude kdyz nam todle zada a deset lidi mu za pul minuty rekne ze to maji,a vseci stejnej skript:-)

Standa • 2007-01-15 12:56:57 • 194.213.x.x

Jenomze on nam to nezada....

chybka

Standa • 2007-01-15 14:59:51 • 194.213.x.x

Nejak me to nechce zrat ty msgboxy....ale pritom vcera to slo....nevim...bud umazte ty reci z prvnich uvozovek v obou msgboxech nebo to skuste otevrit normalne ze souboru....tam sem to taky nahral
Jinak vesli plka ze mu to nejede....ale me vklidu

rosta • 2007-01-16 10:27:51 • 213.29.x.x

ty kecy v tom msgboxu musi by na jednom radku aby to jelo,ted je to rozdeleny do prohlizece na vic radku a AV to nepochopi ze to je jen jeden

o čem to tu je

jináč • 2008-10-13 17:30:36 • 85.71.x.x

stránka o ničem smažte to ožralové a hovada

lupení

mrija • 2008-10-13 18:44:08 • 88.125.x.x

Tak tu nechoď - prospěješ(te) především lidem v obchodním domě Olympia v Olomouci. Díky.

doporučujeme firefox ^ html a css valid | MrijaStudio

MrijaStudio 2006,2007