CAD Fórum : v�pis hladin-2

v�pis hladin-2 : Dobře; děkuji.

Wed, 19 Aug 2009 11:29:27 +0000

Autor: Ferdinand
P�edm�t: 9098
Zasl�no: 19.srp.2009 v 11:29

Dob�e; d�kuji.

v�pis hladin-2 : Ale to jste mne poněkud nepochopil....

Tue, 18 Aug 2009 21:40:43 +0000

Autor: Seiner
P�edm�t: 9098
Zasl�no: 18.srp.2009 v 21:40

Ale to jste mne pon�kud nepochopil. J� v�bec nezpochyb�uji prakti�nost nebo neprakti�nost pou��v�n� velk�ch/mal�ch p�smen v n�zvech hladin. �lo mi �ist� o ten filtr hladin. Pokud jsou voleny minusky a verz�ly jen z d�vodu �itelnosti, vid�l bych jako vhodn�, aby filtr nebral ohled na velikost p�sma. Jestli to p�ipravujete nejen pro sebe, vyhnete se opakovan�m reklamac�m, �e program �patn� pracuje: "V�dy� jsem zadal p�edponu KLM a ono mi to nena�lo hladinu Klmxy!" Ale to je opravdu jen na okraj a mimo t�ma dotazu. Jinak douf�m, �e jsem V�m aspo� trochu pomohl postr�it �e�en� Va�eho probl�mu.

v�pis hladin-2 : Aha, fakt, omluva... jak jsem...

Tue, 18 Aug 2009 16:24:51 +0000

Autor: Ferdinand
P�edm�t: 9098
Zasl�no: 18.srp.2009 v 16:24

Aha, fakt, omluva... jak jsem to cht�l rychle napsat, tak se mi to pomotalo (i mn� se to st�v�...).

V�sledn� efekt pou��v�n� m/v p�smen n�zv� tkv� v tom, �e 1.

KDY� NAPI�U V�E VELK�MI P�SMENY tak to zabere v�ce m�sta v tabulce editoru hladin, ale

Kdy� napi�u v�e 1mal�mi p�smeny tak to zabere m�sta m�n�...(co� se m��e zd�t jako prkotina, ale p�i del��m �et�zci je markantn� - na obrazovce je p�i maximalizaci okna cca. 10 cm m�sta pro popis a st�v� se, �e to nesta��).

2. popis je jednozna�n�. P��klad: 1Lo1o (jedna_el_o_jedna_o) vs. 1lo10 anebo 11010, B86 (b�_osm_�est) vs. 886, Z0na (zet_nula_en_a) vs. zona ...atd. Ale to je u� tak trochu na jin� t�ma.

v�pis hladin-2 : IMHO jste to ve vaší odpovědi...

Tue, 18 Aug 2009 08:50:19 +0000

Autor: Seiner
P�edm�t: 9098
Zasl�no: 18.srp.2009 v 08:50

IMHO jste to ve va�� odpov�di zp�eh�zel - STRCAT je z�et�zen� a NEMَE m�nit velikost p�smen. Je tam proto, abyste na hodnotu prom�nn� PREDP p�ilepil tu hv�zdi�ku a ud�lal z toho vzor pro hled�n�.

v�pis hladin-2 : No, jde o to, jestli to chcete...

Tue, 18 Aug 2009 08:09:43 +0000

Autor: Seiner
P�edm�t: 9098
Zasl�no: 18.srp.2009 v 08:09

No, jde o to, jestli to chcete m�t case sensitiv nebo ne. Osobn� bych se tomu sna�il vyhnout - u�ivatel� to dost t�ko ch�pou.

To "zdvojen�" je IMHO trivi�ln� - zkonvertuji oba porovn�van� �et�zce na velk� p�smena.

Co se t�k� wcmatch - snadno otestujete, kdy� vyhod�te to strcase.

v�pis hladin-2 : To jsem pak špatně pochopil fci...

Tue, 18 Aug 2009 08:03:45 +0000

Autor: Ferdinand
P�edm�t: 9098
Zasl�no: 18.srp.2009 v 08:03

To jsem pak �patn� pochopil fci wcmatch - m�l jsem za to, �e slou�� pr�v� k tomu, aby se zohlednily jak�koliv znaky v �et�zci (bez ohledu na mal�/velk� p�smena).

Nech�pu, k �emu je dobr� ve v�razu to zdvojen�:

(if (wcmatch (strcase LAY) (strcat (strcase PREDP) "*"))

Doposud jsem pou��val takhle:

(strcase "aBcD123eF");vrac� aBcD123eF

(strcat "aBcD123eF");vrac� ABCD123EF

Prom�nn� PREDP m��e b�t jak�koliv �et�zec (jsou tam mal�/velk� p�smena, ��sla, znaky...):

(setq PREDP
    (getstring
      "\nZadejte p�edponu n�zvu sady hladin v�. odd�lova�e [-/./_] : "
    )
    )

v�pis hladin-2 : ;;seznam hladin;;-bez filtru(defun...

Mon, 17 Aug 2009 15:36:15 +0000

Autor: Seiner
P�edm�t: 9098
Zasl�no: 17.srp.2009 v 15:36

;;seznam hladin
;;-bez filtru
(defun C:layerlist (/ LAY i tt)
(setq LAY 0
LYRL nil
)
(tblnext "LAYER" LAY)
(while LAY
    (setq LAY (cdr (assoc 2 (tblnext "LAYER"))))
    (if LAY
       (if (WCMATCH (STRCASE LAY) (STRCAT (STRCASE PREDP) "*"))
      (setq LYRL (append LYRL (list LAY))))
    )
)
)

v�pis hladin-2 : 1. Nevidím důvod, proč by nešel...

Mon, 17 Aug 2009 15:08:39 +0000

Autor: Seiner
P�edm�t: 9098
Zasl�no: 17.srp.2009 v 15:08

1. Nevid�m d�vod, pro� by ne�el pou��t wcmatch

2. Asi by bylo dobr� odstranit "case-sensitivity" pomoc� fce STRCASE

v�pis hladin-2 : Už moc nevím, o co šlo, ale zřejmě...

Mon, 17 Aug 2009 14:52:59 +0000

Autor: Seiner
P�edm�t: 9098
Zasl�no: 17.srp.2009 v 14:52

U� moc nev�m, o co �lo, ale z�ejm� jsem V�m tenkr�t jen vypreparoval kousek k�du z n�jak�ho m�ho star��ho progr�mku a ty prom�nn� tam prost� z�staly. Mysl�m, �e jsem to po��val v projektu, kter� vytv��el zad�n� pro progr�mek pro v�po�et prutov�ch a r�mov�ch konstrukc� a typ byl druh prvku.

Nev�m, jestli jsem �pln� pochopil dotaz, ale filtrovat podle za��tku n�zvu hladiny by �lo primitivn� t�eba takto:

;;seznam hladin
;;-bez filtru
(defun C:layerlist (/ LAY i tt)
(setq LAY 0
LYRL nil
)
(tblnext "LAYER" LAY)
(while LAY
    (setq LAY (cdr (assoc 2 (tblnext "LAYER"))))
    (if LAY
      (if (=(SUBSTR LAY 1 (STRLEN PREDP))PREDP)
      (setq LYRL (append LYRL (list LAY))))
    )
)
)

(Seznam hladin jsem vyhodil z lok�ln�ch prom�nn�ch, abych to mohl testovat)

v�pis hladin-2 : Poněvadž téma je již uzavřeno,...

Mon, 17 Aug 2009 14:11:35 +0000

Autor: Ferdinand
P�edm�t: 9098
Zasl�no: 17.srp.2009 v 14:11

Pon�vad� t�ma je ji� uzav�eno, a pot�ebuji op�t prodebatovat:

P��klad od p. Seinera je opravdu inspiruj�c� (a� na n�jak� nejasnosti: k �emu tam slou�� prom. "t" a "typ" ?).

Nyn� jsem narazil na nutnost vytvo�en� "filtrovan�ho" seznamu hladin, tj. ze v�ech hladin ud�lat d�l�� seznam pouze za��naj�c�ch stejn�m k�dem.

P��klad:

Existuj�c� sada hladin je s n�zvy

R6.00-build, R6.00-dim, R6.00-el, ...

k tomu je�t� samoz�ejm� existuje mnoho dal��ch (i podobn�ch - nap�. R6.25-build, R6.25-dim, ...). Celkem je jich dejme tomu 75 .

P�edpona R6.00- (prom. PREDP) je zvolena p�i zalo�en� nov� sady hladin (pomoc� lispu).

M�m c�lem je seznam, kter� bude obsahovat pouze ty kter� jsou R6.00-*

St�vaj�c� rutinka - na z�kl. vzoru p. Seinera:

;;seznam hladin
;;-bez filtru
(defun C:layerlist (/ LAY LYRL i tt)
(setq LAY 0
LYRL nil
)
(tblnext "LAYER" LAY)
(while LAY
    (setq LAY (cdr (assoc 2 (tblnext "LAYER"))))
    (if LAY
      (setq LYRL (append LYRL (list LAY)))
    )
)
)

Pro ten filtr se ned� pou��t prom�nn� PREDP jako argumentu:

(if (wcmatch LAY PREDP)

...