Teď už si poradím. Dík J.

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

 

 

 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

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

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.

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.

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.