ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.500 registrovaných u nás, celkem 1.094.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor. Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Katalog CAD bloků
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoKótování s excelem

 Odpovědět Odpovědět archiv
Autor
Jarek Zobrazit panel
Nováček
Nováček

Přihlášen: 19.čer.2005
Stav: Offline
Bodů: 9
Přímý odkaz na tuto zprávu Téma: Kótování s excelem
    Zasláno: 11.čvc.2005 v 09:16

Kótuji (asi 6 kót propočítaných v excelu) stále stejné výkresy a nesmím použít tabulkové kótování. Asi rozložím kóty a pomocí OLE to propojím jako text. Nic lepšího mě nenapadá. Nemáte někdo lepší nápad? Používám LT2006.

Zpět nahoru
Augur Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 24.led.2005
Stav: Offline
Bodů: 103
Přímý odkaz na tuto zprávu Zasláno: 13.čvc.2005 v 18:00
Ja osobne by som to robil atributmi. Rozlozil by som koty, text by som definoval ako atribut bloku a potom pomocou exportu a inportu by som menil hodnotu koty. Asi je zlozity sposob, ale ine mna nenapada.
Zpět nahoru
SlepyJack Zobrazit panel
Nováček
Nováček

Přihlášen: 15.čvc.2005
Stav: Offline
Bodů: 2
Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2005 v 13:51
Ono by to šlo hadam aj tak že z excelu to priamo vytvori scr subor ktory sa potom v AutoCADe LT spusti ako demo a vsetko vykresli tak ako treba.
Zpět nahoru
Jarek Zobrazit panel
Nováček
Nováček

Přihlášen: 19.čer.2005
Stav: Offline
Bodů: 9
Přímý odkaz na tuto zprávu Zasláno: 18.čvc.2005 v 06:05

Dík oběma, ale s tím scr bych to potřeboval vysvětlit podrobněji.

Zpět nahoru
Jan Pajerchin Zobrazit panel
Diskutér
Diskutér
Avatar

Přihlášen: 18.čvc.2005
Lokalita: Slovensko
Používám:
ZWCAD, AutoCAD
Stav: Offline
Bodů: 78
Přímý odkaz na tuto zprávu Zasláno: 18.čvc.2005 v 06:49
Skript je textový súbor s jednym príkazom na každom riadku.

Napríklad pre nakreslenie štvorca s absolútnymi súradnicami bude súbor s príponou *.scr obsahovať:

; Začiatok
_line 0,0
0,100
100,100
100,0
_c
"prázdny riadok"
; koniec

Z toho vyplýva že ak chcete z Excelu vygenerovať *.scr súbor, ktorý sa potom v AutoCADe (aj v LT) spustí príkazom "demo", a vykreslí všetko čo treba - je potrebné do súboru z Excelu zapisovať všetky hodnoty v podstate s globálnymi súradnicami spolu s  príslušnými hodnotami kót, ktoré majú byť z Excelu .

Ak sa jedná o rovnaký výkres len s rozdielnymi hodnotami kót - mohlo by to byť celkom dobré riešenie. Najviac práce však bude vytvoriť celú "kostru" príkazov s hodnotami.

To Vám môže uľahčiť len jedna vec - Ak nakreslíte jednu variantu Vášho výkresu so zapnutou voľbou - vytváranie protokolového súboru. T.j. súboru kde sa ukladajú všetky vykonávané príkazy až do chvíle kým sa neukončí AutoCAD. Ukladajú sa síce bez hodnôt - ale ako kostra to stačí. Hodnoty doplníte a máte syntax pre Váš *.scr súbor.

Zpět nahoru
Jarek Zobrazit panel
Nováček
Nováček

Přihlášen: 19.čer.2005
Stav: Offline
Bodů: 9
Přímý odkaz na tuto zprávu Zasláno: 19.čvc.2005 v 07:18
Vypadá to zajímavě, ale nevíte kde bych nějaké příklady stáhnul, abych mohl podle nich postupovat?
Zpět nahoru
Jan Pajerchin Zobrazit panel
Diskutér
Diskutér
Avatar

Přihlášen: 18.čvc.2005
Lokalita: Slovensko
Používám:
ZWCAD, AutoCAD
Stav: Offline
Bodů: 78
Přímý odkaz na tuto zprávu Zasláno: 19.čvc.2005 v 07:49
Hádam príklady ani nie sú veľmi potrebné.
Vyzsie uvedený príklad sa môže napísať aj takto:

_line 0,0 0,100 100,100 100,0 _c

Kde medzera vlastne predtavuje enter.

Takze stačí si to vyskúšať. Vytvorte si súbor napr: priklad.scr a do neho vložte uvedený riadok: _line 0,0 0,100 100,100 100,0 _c
(na konci je medzera)

do AutoCADu ho nacitate prikazom demo. a vykresli to stvorec.
Alebo mate na mysli VisualBasic a Excel ?



Upravil Jan Pajerchin
Zpět nahoru
Jarek Zobrazit panel
Nováček
Nováček

Přihlášen: 19.čer.2005
Stav: Offline
Bodů: 9
Přímý odkaz na tuto zprávu Zasláno: 19.čvc.2005 v 10:12
Už chápu. Dík moc :)
Zpět nahoru
Jan Pajerchin Zobrazit panel
Diskutér
Diskutér
Avatar

Přihlášen: 18.čvc.2005
Lokalita: Slovensko
Používám:
ZWCAD, AutoCAD
Stav: Offline
Bodů: 78
Přímý odkaz na tuto zprávu Zasláno: 20.čvc.2005 v 09:33
 Ale lepšia voľba je to priamo vykresliť z Excelu do AutoCADu LT cez DDE kanál

pripájam príklad myslím že na LT 2002 by to malo fungovať LT2000 určite a hádam aj na LT2004-6


Popis zdrojového kódu na vykreslenie tabuľky z Excelu do AutoCADu LT

------------------------
Public Sub Umiestni()


    AppActivate ("AutoCAD LT")
    Urobí aktívnym okno AutoCADu LT

    chanelNumber = Application.DDEInitiate("AutoCAD LT.DDE", "System")
    Umožní AutoCADu LT prijímať príkazy cez prostredie Windowsu (otvorí DDE kanál)

    Application.DDEExecute chanelNumber, " _line 0,0 0,100 100,100 100,0 _c "
    Spustí príkazy inej aplikácie cez nastavený kanál DDE

    Application.DDETerminate chanelNumber
    Zatvorí otvorený kanál DDE na inú aplikáciu

End Sub
------------------------

Procedúru umiestni však môžeme napísať aj inak:

------------------------
Public Sub Umiestni()

    AppActivate ("AutoCAD LT")
    Urobí aktívnym okno AutoCADu LT

    SendKeys "_line{ENTER}0,0{ENTER}0,100{ENTER}100,100{ENTER}100,0{ENTER}_c{ENTER}", True
    pošle znaky na príkazový riadok AutoCADu LT

End Sub
------------------------

viď: http://www.techsoft.sk/SkoleniaAutoCADInternetOld.php?idLekc ia=02&idDoplnok=A
Zpět nahoru
Jarek Zobrazit panel
Nováček
Nováček

Přihlášen: 19.čer.2005
Stav: Offline
Bodů: 9
Přímý odkaz na tuto zprávu Zasláno: 20.čvc.2005 v 13:10
Tak to je dost dobre! Dal jsem to do makra a funguje to. Mohl by jste mi ještě napsat, jak zaměním hodnotu 100,100 hodnotou z buňky - třeba A1? Předem děkuji.
Zpět nahoru
Jan Pajerchin Zobrazit panel
Diskutér
Diskutér
Avatar

Přihlášen: 18.čvc.2005
Lokalita: Slovensko
Používám:
ZWCAD, AutoCAD
Stav: Offline
Bodů: 78
Přímý odkaz na tuto zprávu Zasláno: 20.čvc.2005 v 14:13

Application.DDEExecute chanelNumber, " _line 0,0 0,100 " + Worksheets(1).Cells (1,1 ).Value + " 100,0 _c "

kde Worksheets(1) - je list č.1 a Cells (1,1 ) je adresa prvej bunky v prvom stĺpci - teda A1

 

 

Zpět nahoru
de Forbes Zobrazit panel
Nováček
Nováček

Přihlášen: 12.kvě.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 8
Přímý odkaz na tuto zprávu Zasláno: 20.čvc.2005 v 14:33

Možná by bylo dobré napsat příkaz trochu čitelněji :

Application.DDEExecute chanelNumber, " _line 0,0 0,100 " + Sheets(1).Range(A1 ) + " 100,0 _c "

Sheets(1) je první list kolekce Sheet a Range(A1) znamená adresu buňky. Máte-li list excelu pojmenovaný například Vypocet, pak by měl řádek vypadat asi tak :

Application.DDEExecute chanelNumber, " _line 0,0 0,100 " + Sheets("Vypocet").Range ("A1" ) + " 100,0 _c "

Máte-li pojmenovanou přímo buňku například názvem Kota1, pak napište :

Application.DDEExecute chanelNumber, " _line 0,0 0,100 " + Range("Kota1") + " 100,0 _c "

Zpět nahoru
Jarek Zobrazit panel
Nováček
Nováček

Přihlášen: 19.čer.2005
Stav: Offline
Bodů: 9
Přímý odkaz na tuto zprávu Zasláno: 21.čvc.2005 v 13:36
Teď už si poradím. Dík J.
Zpět nahoru
de Forbes Zobrazit panel
Nováček
Nováček

Přihlášen: 12.kvě.2005
Lokalita: Czech Republic
Stav: Offline
Bodů: 8
Přímý odkaz na tuto zprávu Zasláno: 21.čvc.2005 v 13:50
Já bych snad ještě něco dodal. Jestli potřebujete jenom jednoduché malé výkresy, pak je skoro lepší udělat je přímo v Excelu. Vytvoříte si mustr, kdy technický výkres je vpodstatě naformátovaná tabulka, na kterou připojíte bez problémů veškeré výpočty. My tento způsob používáme celkem úspěšně v naší firmě skoro čtyři roky.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 14144:VIPPodtržené kóty v přerušených pohledech Inventoru (iLogic).
Tip 9885:VIPJak zamezit kótování směru toku média na výkresu isometrie?
Tip 4669:VIPJak zvýšit přesnost odměřování (kótování) v DWF Composeru (Design Review)?
Tip 4022:VIPJak přenést kótu z modelového do výkresového prostoru?
Tip 2183:VIPJak v kótě plochy použít skutečný horní index (m2)?
Tip 1327:VIPJakou proměnnou nastavit mezeru jako oddělovač tisíců v kótování AutoCADu ("1 260,89")?


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,422 sekund.