Dobry den,
na ruznych diskuznich forech jsem nasel, ze neni mozne pridat do dynamickeho bloku vice parametru "visibility", je mozne ho umistit jen jednou a pak vytvorit vice "visibility states". Vetsinou to byly ale prispevky starsiho data, tak me zajimalo, zda se neco nezmenilo. Me osobne Acad dovoli umistit pouze jeden "visibility" parametr. To je ale dost neprakticke, zejmena pokud chci vytvorit blok, v nemz potrebuji vypinat a zapinat vice ruznych veci samostatne ve vsech moznych kombinacich. Reseni je udelat "visibility states" pro vsechny mozne kombinace, ale to mi prijde dost humpolacke a v pripade vice prvku i nemozne. Reseni by bylo umist do bloku vice "visibility" parametru a pro kazdy prvek nadefinovat patricne "visibility states" a pak vypinat a zapinat co je potreba. Zatim jsem ale neprisel na to jak. Zkousel jsem vytvorit pro kazdou vypinatelnou entitu blok s vlastni "visibility" a vsechny je pak seskupit do jednoho bloku. Jejich zapinani a vypinani krasne funguje v blockeditoru ale nikoliv uz pri vlozenem bloku...  Je nejake reseni?


Upravil kryspin - 16.čvc.2013 v 16:24

Myslim, ze psise ne, opet by bylo potreba nadefinovat vsechny mozne kombinace prvku a pak z nich vybirat, coz je humpolacke (navic uz pri trech je tech kombinaci 8, pokud pocitam spravne). Lepsi by bylo mit moznost graficky ten konkretni prvek vypnout nebo zapnout.

Diky moc, na tento lisp uz jsem kdysi narazil, ale nepodarilo se mi ho spustit. Naloadoval jsem ho v blockeditoru, ale prikaz "visibility_add" je neznamy. Delam neco spatne? Pravdepodobne spatne nahravam ten lisp...

Diky za radu, tenhle zpusob jsem neznal. Vyzkousel jsem ho a zda se, ze lisp se nacte v poradku, ale ani tak nefunguje (prikaz "visibility_add" je stale neznamy). Je mozne, ze mam v acadu nastavene nejake zabezpeceni, ktere nedovoli spoustet lispy?

Ostatně na té stránce v návodu to je napsáno se závorkami - chápu, že nemusí být hned jasné, že se to musí na příkazovou řádku psát i s těmi závorkami :-)

Je to věc toho defun. Jestliže napíšete (defun visibility_add (/ point_insert BLC-VIS-PAR name_visibility del-1 BLC-VIS-PAR-1 del5 del1010 del1071 subst301 st-360 neo-91 visibility-1 zam95 zapis zam96 zam97 eval-1 st-12 eval-12 p1-12-1 eval-2 final-1)... tak nadefinujete funkci lispu a voláte ji tak - tedy v závorkách.

A co řekne AutoCAD po načtení lispu. Podle mého by měl odpovědět C:HIDEOBJ. Pokud odpoví něco jiného, bude chyb tam. A v jakém AutoCADu to zkoušíte? V českém to bez úpravy asi nepůjde.

lisp se natahne zrejme v poradku, odpovi skutecne:

Command: (LOAD "D:/Acad/shapes, lines, plt, stafáž/visibility-add-eng.lsp") C:HIDEOBJ

Zkousim to v anglicke verzi 13

Zvlastni, tak pri editaci nebo vytvoreni nekterych bloku me to umozni udelat prvni (visibility_add), behem toho to udela toto:

Command: (visibility_add)
Select point for placing Visibility Set: _.point
Current point modes:  PDMODE=35  PDSIZE=0.0000
Specify a point: 0,0,0
Command: _.BParameter
Enter parameter type [Alignment/Base/pOint/Linear/Polar/Xy/Rotation/Flip/Visibility/looKup]: _V
Specify parameter location or [Name/Label/Description/Palette]: _L
Enter visibility property label <Visibility1>: Visibility-1
Specify parameter location or [Name/Label/Description/Palette]:
Enter number of grips [0/1] <1>:
Command: _.BSAVE
Command: ; error: quit / exit abort

pak (visibility_up):
Command: (visibility-up)
Select required Visibility Set: _.point
Current point modes:  PDMODE=35  PDSIZE=0.0000
Specify a point: 0,0,0
Command: _.point
Current point modes:  PDMODE=35  PDSIZE=0.0000
Specify a point: 0,0,0
Command: _-BVSTATE
Current visibility state: VisibilityState0
Enter an option [New/Set/Delete] <New>: _N
Enter name of new visibility state: W5W
Enter object visibility for new state [Hide all/Show all/Current visibility] <Current visibility>: _H
Command: _.undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: (Lisp Expression) GROUP
Command: _.point
Current point modes:  PDMODE=35  PDSIZE=0.0000
Specify a point: 0,0,0
Command: _.point
Current point modes:  PDMODE=35  PDSIZE=0.0000
Specify a point: 0,0,0
Command: _.BVMODE
Enter new value for BVMODE <1>: 0
Command: _.BVMODE
Enter new value for BVMODE <0>: 1
Command: _.point
Current point modes:  PDMODE=35  PDSIZE=0.0000
Specify a point: 0,0,0
Command: "Visibility-1"

Command: _.BSAVE
Command:  .BSAVE

Command: (command "_.-BVSTATE" "_S" tecuchiy) _.-BVSTATE
Current visibility state: VisibilityState0
Enter an option [New/Set/Delete] <New>: _S
Enter visibility state name to make current or [?]:
Command: nil

Command: _.BSAVE
Command:
.BSAVE


ale dale uz mi to neumozni pridat zadnou dasli visibilitu a vyhodi to tento error:
Command: (visibility_add)
Select point for placing Visibility Set: _.point
Current point modes:  PDMODE=0  PDSIZE=0.0000
Specify a point: 0,0,0
Command: ; error: bad DXF group: (360)



V jinych blocich ale v nekterych blocich me to ale to nefunguje vubec (viz error vyse).


Upravil kryspin - 18.čvc.2013 v 17:50

Nic se nedeje, stejne jsem rad, ze jsem si to vyzkousel, i kdyz to bylanakonec ztrata casu. Jeste jsem zkusil obejit to pres ten ukazkovy soubor, ve ktrerem jsou visibility jiz nadefinovany a po vlozeni to funguje. Tak ze jsem zkusil tento blok editovat, vlozit tam vlastni kresbu, a pridat ji do nejake visibility a funguje to tak napul. Visibilit tam sice je vic, ale navzajem se ovlivnuji, protoze se mi zrejme nedari vyjmout ostatni prvky...
ve verzi 2011 me to jednou sice jakz takz fungovalo, ale pri ulozeni bloku uz neni zobrazeny ani vybratelny, proste se tvari, jako by tam nebyl a jednou mi to uplne shodilo cad... skoda.