CAD Fórum : Kótování s excelem https://www.cadforum.cz/forum/ Fri, 15 May 2026 01:19:27 +0000 Thu, 21 Jul 2005 13:50:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=1084 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Kótování s excelem : Já bych snad ještě něco dodal....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4584&title=kotovani-s-excelem#4584 Autor: de Forbes
Předmět: 1084
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.]]> Thu, 21 Jul 2005 13:50:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4584&title=kotovani-s-excelem#4584 <![CDATA[Kótování s excelem : Teď už si poradím. Dík J. ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4583&title=kotovani-s-excelem#4583 Autor: Jarek
Předmět: 1084
Zasláno: 21.čvc.2005 v 13:36

Teď už si poradím. Dík J.]]> Thu, 21 Jul 2005 13:36:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4583&title=kotovani-s-excelem#4583 <![CDATA[Kótování s excelem : Možná by bylo dobré napsat příkaz...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4565&title=kotovani-s-excelem#4565 Autor: de Forbes
Předmět: 1084
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 "

]]> Wed, 20 Jul 2005 14:33:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4565&title=kotovani-s-excelem#4565 <![CDATA[Kótování s excelem : Application.DDEExecute chanelNumber,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4561&title=kotovani-s-excelem#4561 Autor: Jan Pajerchin
Předmět: 1084
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

 

 

]]> Wed, 20 Jul 2005 14:13:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4561&title=kotovani-s-excelem#4561 <![CDATA[Kótování s excelem : Tak to je dost dobre! Dal jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4558&title=kotovani-s-excelem#4558 Autor: Jarek
Předmět: 1084
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.]]> Wed, 20 Jul 2005 13:10:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4558&title=kotovani-s-excelem#4558 <![CDATA[Kótování s excelem : Ale lepšia voľba je to priamo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4551&title=kotovani-s-excelem#4551 Autor: Jan Pajerchin
Předmět: 1084
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]]> Wed, 20 Jul 2005 09:33:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4551&title=kotovani-s-excelem#4551 <![CDATA[Kótování s excelem : Už chápu. Dík moc :) ]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4523&title=kotovani-s-excelem#4523 Autor: Jarek
Předmět: 1084
Zasláno: 19.čvc.2005 v 10:12

Už chápu. Dík moc :)]]> Tue, 19 Jul 2005 10:12:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4523&title=kotovani-s-excelem#4523 <![CDATA[Kótování s excelem : Hádam príklady ani nie sú veľmi...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4517&title=kotovani-s-excelem#4517 Autor: Jan Pajerchin
Předmět: 1084
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 doneho 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]]> Tue, 19 Jul 2005 07:49:42 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4517&title=kotovani-s-excelem#4517 <![CDATA[Kótování s excelem : Vypadá to zajímavě, ale nevíte...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4513&title=kotovani-s-excelem#4513 Autor: Jarek
Předmět: 1084
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?]]> Tue, 19 Jul 2005 07:18:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4513&title=kotovani-s-excelem#4513 <![CDATA[Kótování s excelem : Skript je textový súbor s jednym...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4480&title=kotovani-s-excelem#4480 Autor: Jan Pajerchin
Předmět: 1084
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ý sapotom v AutoCADe (aj v LT) spustí príkazom "demo", a vykreslí všetko čotreba - je potrebné do súboru z Excelu zapisovať všetky hodnoty vpodstate s globálnymi súradnicami spolu s  príslušnými hodnotamikót, ktoré majú byť z Excelu .

Ak sa jedná o rovnaký výkres len s rozdielnymi hodnotami kót - mohlo byto 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ášhový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 saneukončí AutoCAD. Ukladajú sa síce bez hodnôt - ale ako kostra tostačí. Hodnoty doplníte a máte syntax pre Váš *.scr súbor.

]]> Mon, 18 Jul 2005 06:49:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1084&PID=4480&title=kotovani-s-excelem#4480