Zobrazit plnou verzi příspěvku: Vytvoření křivek pomocí skriptu

whiskeybravo
05.04.2022, 13:18
Dobrý den,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?_layer Y 42 B T 255,0,0 _line2,1498,1_line498,1499,2_line499,2499,398_line499,398498,399_line498,3992,399_line2,3991,398_line1,3981,2_line1,22,1_line70.6,74.6429.4,74.6_line429.4,74.6429.4,325.4_line429.4,325.470.6,325.4_line70.6,325.470.6,74.6Při chybě konzole vypíše tyto hodnoty:Příkaz: _layerAktuá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]: YZadejte 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]: BNová barva [Truecolor/Kniha barev] : T Červená,Zelená,Modrá: 255,0,0Zadejte 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: _lineUrčete první bod: 2,1Zadejte další bod nebo [Zpět]: 498,1Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 498,1Zadejte 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: _lineUrčete první bod: 499,2Zadejte další bod nebo [Zpět]: 499,398Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 499,398Zadejte 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: _lineUrčete první bod: 498,399Zadejte další bod nebo [Zpět]: 2,399Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 2,399Zadejte 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: _lineUrčete první bod: 1,398Zadejte další bod nebo [Zpět]: 1,2Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 1,2Zadejte 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: _lineUrčete první bod: 70.6,74.6Zadejte další bod nebo [Zpět]: 429.4,74.6Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 429.4,74.6Zadejte další bod nebo [Zpět]: 429.4,325.4Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 429.4,325.4Zadejte další bod nebo [Zpět]: 70.6,325.4Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 70.6,325.4Zadejte další bod nebo [Zpět]: 70.6,74.6Zadejte další bod nebo [Zpět]: *Storno*Při zoom na max a ok vykresleniPříkaz: _layerAktuá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]: YZadejte 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]: BNová barva [Truecolor/Kniha barev] : T Červená,Zelená,Modrá: 255,0,0Zadejte 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: _lineUrčete první bod: 2,1Zadejte další bod nebo [Zpět]: 498,1Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 498,1Zadejte další bod nebo [Zpět]: 499,2Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 499,2Zadejte další bod nebo [Zpět]: 499,398Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 499,398Zadejte další bod nebo [Zpět]: 498,399Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 498,399Zadejte další bod nebo [Zpět]: 2,399Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 2,399Zadejte další bod nebo [Zpět]: 1,398Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 1,398Zadejte další bod nebo [Zpět]: 1,2Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 1,2Zadejte další bod nebo [Zpět]: 2,1Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 70.6,74.6Zadejte další bod nebo [Zpět]: 429.4,74.6Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 429.4,74.6Zadejte další bod nebo [Zpět]: 429.4,325.4Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 429.4,325.4Zadejte další bod nebo [Zpět]: 70.6,325.4Zadejte další bod nebo [Zpět]:Příkaz: _lineUrčete první bod: 70.6,325.4Zadejte další bod nebo [Zpět]: 70.6,74.6Zadejte další bod nebo [Zpět]: *Storno*Příkaz: '_.zoomUrčete roh okna, zadejte faktor měřítka (nX nebo nXP), nebo[Vše/Střed/Dynamický/Maximálně/Předchozí/měříTko/Okno/oBjekt] <rychlý>: _e Regeneruji model.


whiskeybravo2022-04-06 10:02:34

Vladimír Michl
20.05.2022, 08:26
(příspěvek se ocitl ve spamu, takže se zpožděním)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).

Petr75
20.05.2022, 11:19
Špatné vykreslení při různém zoom bude dáno nastavením přichytávání, jak už bylo uvedeno.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í._-layer Y 42 B T 255,0,0 42 I 42_line2,1498,1_-layer Y 43 B T 0,255,0 43 I 43_line498,1499,2_-layer I 42_line499,2499,398_-layer I 43_line499,398498,399...


Vladimír Michl
20.05.2022, 12:28
Příkaz:_LAYER _Make MojeHladinatu hladinu vytvoří a přepne na ni (a nevadí mu, pokud už existuje).