_LAYER _Make MojeHladina

tu hladinu vytvoří a přepne na ni (a nevadí mu, pokud už existuje).

Změna hladiny pro jednotlivé čáry lze zařídit jednoduše. Napřed se hladina vytvoří a nadefinuje, protože dopředu nevíme, jestli existuje. Později už víme, že hladina existuje, tak ji lze už jen nastavit jako aktuální.

...

Co znamená to "špatně"? Nejsou tam všechny body? Body jsou jinde než mají být? Nebo jde o ty "čáry s nulovou délkou"? Ty jsou evidentně způsobeny uchopováním. Buď si uchopování zcela vypněte (OSNAP=0) nebo jej vypněte alespoň pro scripty (OSNAPCOORD=1).

používám Autocad 2022 českou lokalizaci a pro vložení skriptu soubor *.scr který obsahuje kód níže, pro vytvoření skriptu používám excel, který vypočítá přesně souřadnice. Vložení skriptu si řeší už samotný cad. Problém nastane při vložení skriptu vykreslí se vše, ale náhodně se dokončí to co chci špatně.

edit:

narazil jsem na chybu v mém vypočtu takže už script dejme tomu funguje i s automatickým exportem do souboru pomoci VBA diky kolegovi.

mám jiný problém potrebuji rozdelit jednotlive obdelniky do ruznych hladin a nedari se mi prijit na to jak to rozdelit aby to fungovalo. Pokud pridam vice hladin do skriptu tak mam vsechny cary v jedne hladine.

edit2:

skript nakonec funguje jak se mu zachce. ted jsem odzkoušel pokud mam zoom na max oddaleny tak vznikaji chyby ve vykresleni praveho horniho rohu. pokud jsem zoom na nejvetsi priblizeni tak se script vykresli spravne. pri pouziti stejneho skriptu.

skript vnejsi obdelnik s dubingem 1mm v ose xy, vnitrni obdelnik se standard rohy to vse v jedne nove hladine:

-Má někdo zkušennosti s rozdělením jednotlivých čar pod různé hladiny?

-setkali jste se s problémem vykreslování při změně zoomu?

Při chybě konzole vypíše tyto hodnoty:

Příkaz: _layer

Aktuální hladina:  "0"

Zadejte možnost [?/vYtvořit/nastavIt/Definovat/přeJmen/Ano/Ne/Barva/Typč/tLčáry/prŮhlednost/Materiál/Vykreslit/Zmrazit/Rozmrazit/zamknOut/odemKnout/Stav/Popis/sjEdnotit/Xref]: Y

Zadejte název pro novou hladinu (stane se aktuální) <0>: 42 Zadejte možnost [?/vYtvořit/nastavIt/Definovat/přeJmen/Ano/Ne/Barva/Typč/tLčáry/prŮhlednost/Materiál/Vykreslit/Zmrazit/Rozmrazit/zamknOut/odemKnout/Stav/Popis/sjEdnotit/Xref]: B

Nová barva [Truecolor/Kniha barev] : T Červená,Zelená,Modrá: 255,0,0

Zadejte seznam názvů hladin pro barvu 255,0,0 <42>:  Zadejte možnost [?/vYtvořit/nastavIt/Definovat/přeJmen/Ano/Ne/Barva/Typč/tLčáry/prŮhlednost/Materiál/Vykreslit/Zmrazit/Rozmrazit/zamknOut/odemKnout/Stav/Popis/sjEdnotit/Xref]:

Příkaz: _line

Určete první bod: 2,1

Zadejte další bod nebo [Zpět]: 498,1

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 498,1

Zadejte další bod nebo [Zpět]: 499,2

Čára s nulovou délkou vytvořena v (498.0000, 1.0000, 0.0000)

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 499,2

Zadejte další bod nebo [Zpět]: 499,398

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 499,398

Zadejte další bod nebo [Zpět]: 498,399

Čára s nulovou délkou vytvořena v (499.0000, 398.0000, 0.0000)

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 498,399

Zadejte další bod nebo [Zpět]: 2,399

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 2,399

Zadejte další bod nebo [Zpět]: 1,398

Čára s nulovou délkou vytvořena v (2.0000, 399.0000, 0.0000)

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 1,398

Zadejte další bod nebo [Zpět]: 1,2

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 1,2

Zadejte další bod nebo [Zpět]: 2,1

Čára s nulovou délkou vytvořena v (2.0000, 1.0000, 0.0000)

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 70.6,74.6

Zadejte další bod nebo [Zpět]: 429.4,74.6

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 429.4,74.6

Zadejte další bod nebo [Zpět]: 429.4,325.4

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 429.4,325.4

Zadejte další bod nebo [Zpět]: 70.6,325.4

Zadejte další bod nebo [Zpět]:

Příkaz: _line

Určete první bod: 70.6,325.4

Zadejte další bod nebo [Zpět]: 70.6,74.6

Zadejte další bod nebo [Zpět]: *Storno*

Při zoom na max a ok vykresleni