Dobry den,

chcem sa vas opytat, ci by mi niekto z vas vedel pomoct s naprogramovanim lispu, ktory by vkladal blok s hodnotami ako je uvedene na prilozenom obrazku. Mam na mysli ten cerveny.

Cize dany text by vyjadroval vlastne hodnotu y pred lomitkom a hodnotu x za lomitkom.


Klasicka vyskova kota (na obr. v lavo) sa da vlozit pomocou GGmenu prikazom VKS ktory vklada blok 'Kota_vysky_R_GG.dwg'.

Kedze ide o nieco podobne, mozno by stacilo len mierne poupravit uz existujuci script GGmenu, a vytvorit novy jednoduchy blok aby bol dosiahnuty cerveny vysledok z obrazku.

To vsak uz sam nedokazem, preto vas ziadam o pomoc.

Dakujem za tipy.

Připojené náhledy

Upravil DodoSVK - 22.říj.2011 v 07:58

Dobrý den,

Utilita kotvysk.lsp neni tak slozita, ale obsahuje nekolikrat velmi podobnou utilitu lisici se jen v detailu. Finalni verze obsahuje dva popisy - cesky a anglicky v zavislosti na konfiguraci v zahlavi. Je v ni osetreno docela mnoho ruznych moznosti kde muze vzniknout chyba a to asi potrebovat nebudete. Take pracuje s dynamickym blokem, coz je trochu slozitejsi nez blok jednoduchy a to predpokladam Vy nepotrebujete. I kdyz pokud nebudete potrebovat aktualizace, tak to je stejne.
Utilitu by bylo asi lepsi zkusit napsat od zacatku. Nevim jak moc komplikovane by to bylo, ale asi moc ne. Kliknete do bodu, nactete souradnice, zformatujete si popis a vlozite blok. Pokud nebudete chtit aktualizovat pri zmene, ale pouze vkladat nove bloky do mista kam kliknete, tak to neni tak slozite. Take je dulezite zda nebudete chtit vkladat automaticky napriklad podle krivky.
Zkuste se do toho pustit, pokud narazite na konkretni problem, zkuste dotaz upresnit.

Blok si vytvorte novy a dejte prosim hlavne jiny nazev nez je u kotvyk.lsp aby se to nejak nepletlo - hlavně aktualizace vyskovych kot. Pokud utilitu kotvysk pouzivate, tak by jste si pripravil komplikace hlavne Vy. Nevim jestli budete potrebovat jeden nebo dva atributy.

V radku:
(setq y (cdr (assoc 10 (entget ko)))) ;nacte do y hodnotu bodu 


se nacita vlastnost vkladaciho bodu bloku.

(assoc 10 (entget ko))

vrati vlastnost ve formatu LIST - neco jako
(10 X-souradnice Y-souradnice Z-souradnice)

funkci (nth) nactete n-tou hodnotu z listu. Lze pouzit i funkce (car) (cadr), ale ty z hlavy nevim
Nemam moznost to ted vyzkouset, ale zkuste:

(setq y (nth (assoc 10 (entget ko)) 1))

nazornejsi by bylo nazvat promennou "X", ale to by jste musel upravit i zbytek funkce

Hmm, smula.

Bez vyzkouseni to bude slozitejsi. Kouknete do napovedy na funkci (nth)
Nejlepsi je spistit si VisualLisp (prikaz VLIDE (_VLIDE) ) a tam mate jak pristupnou napovedu, tak konzoli na zkouseni prikazu, moznost debugovat a koukat se na hodnoty promennych za behu programu (nastroj kukatko).

U funkce (nth) si nejsem si jist s poradim parametru. Bud je:

(nth poradi list)
nebo
(nth list poradi)

Pokud jsem to prevratil tak by bylo spravne
(setq y (nth 1 (assoc 10 (entget ko))))

A co vlastne potrebujete? Potrebujete jen vkladat ty bloky dle kliknuti?
A nebo potrebujete take pozdejsi aktualizaci? Potrebujete vkladat blok v zavislosti na meritku kotovaciho stylu a s formatem dle nastaveni jednotek (metry, mm, palce?

Pokud tohle vsechno nepotrebujete tak je lepsi napsat trivialni novou utilitu. Ta bude velice prehledna. Pokud zacnete upravovat se slozitejsi utilitou, jako  je na vkladani vyskovych kot, tak jen promazani zbytecnych radku Vam zabere mnohem vice casu!

Zkuste tohle:

blok:

Připojené soubory

uploads/20111023_214400_stanic-XY.dwg

LISP

Připojené soubory

uploads/20111023_214455_stanic-XY.LSP

To meritko podle kot to neumi.

PS. Zkuste ten VisualLisp - pokud jste uz programoval, tak to hodne pomuze. Je to prijemne prostredi se syntaxi, debugerem, ... , proste vsim co pro vyvoj ve VisualLispu potrebujete.

Doplnění předchozího příspěvku - odpověď na otázku co je nutné změnit

změnit je nutné původní (řádek č.7):
(setq y (cadr y))

na nové
(setq y (car y))

alfred napsal(a): Zapomnel jsem, ze pri uploadu na server CadForum se prejmenuji soubory. Takze jeste dodam, ze blok se musi jmenovat "stanic-XY" a utilita se spousti "stanic-XY"

dakujem velmi pekne, vpodstate toto som chcel dosiahnut tazke mi to velmi pomoze.

Akurat neviem preco ked dany blok vkladam tak sa mi vypnu vsetky uchopy ktore mam prednastavene a zakazdym si musim zvolit nanovo neaky, co je dost neprakticke

a este koty X-ove by som chcel mat v absolutnej hodnote, tzn. 234.12/5.55 a nie 234.12/-5.55

inak je to uz takmer dokonale dobra praca