ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Registrujte se na konferenci CADfórum 2025 - automatizace navrhování
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řenoExcel versus Visual Basic

 Odpovědět Odpovědět archiv
Autor
musil Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 03.srp.2005
Lokalita: ČR (VY)
Používám:
Cad 2002LT EN
Stav: Offline
Bodů: 162
Přímý odkaz na tuto zprávu Téma: Excel versus Visual Basic
    Zasláno: 22.srp.2006 v 08:09

Zdravim potřeboval bych poradit.

Mam v Excelu neco hotového co mě chodi na Acad 2002 LT.

A ted se pokušim o podobnou věc v VB 2005 Expres Editon a moc se mě nedaří,mohl někdo na to mrknout a popostrčit mě trochu  diky moc všem.

Private Sub CommandButton1_Click()
With Dialog1
vpr = 20 * CDbl(TextBox1.Text)
End With
str1 = "_circle 0,0 " + CStr(vpr) + " "
AppActivate ("AutoCAD LT")
    chanelNumber = Application.DDEInitiate("AutoCAD LT.DDE", "System")
    Application.DDEExecute chanelNumber, str1
    Unload Me
End Sub

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

Přihlášen: 03.srp.2005
Lokalita: ČR (VY)
Používám:
Cad 2002LT EN
Stav: Offline
Bodů: 162
Přímý odkaz na tuto zprávu Zasláno: 25.srp.2006 v 06:16
Velmi dik postrčím se sám.
Příspěvky co jsem našel se týkají Excelu a nebo Vba v plném cadu.
Tím pádem se budu muset opet vrátit do Excelu.
A doinstalovat Ofice od Microsoftu.
Zpět nahoru
SELM Zobrazit panel
Diskutér
Diskutér

Přihlášen: 25.lis.2005
Stav: Offline
Bodů: 59
Přímý odkaz na tuto zprávu Zasláno: 28.srp.2006 v 14:10
napis celej kod z tohodle se nedá nic urcit, reklbych ze nemas nastavený dde
Zpět nahoru
musil Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 03.srp.2005
Lokalita: ČR (VY)
Používám:
Cad 2002LT EN
Stav: Offline
Bodů: 162
Přímý odkaz na tuto zprávu Zasláno: 28.srp.2006 v 14:41
Předem dik za váš čas.
Ještě chci upozornit že toho o vb moc nevim,ten kod co jsem publikoval výše je vyjmutej z Excelu.
 
Mam tam jednoduchej formulář s jednim tlacitkem a textovým oknem a ten kod je z toho tlacitka.Které v acad2002LT nakreslí kružnici na bode 0,0  a poloměrem 20*vetší ze zadané hodnoty v textbox1.
 
Instaloval VB 2005 Expres Editon že bych si neco podobného zkusil zkompilovat do spustitelné podoby (*.exe)
 
 
Zpět nahoru
SELM Zobrazit panel
Diskutér
Diskutér

Přihlášen: 25.lis.2005
Stav: Offline
Bodů: 59
Přímý odkaz na tuto zprávu Zasláno: 28.srp.2006 v 15:38
snad vam pomuye toto
 
Private Sub Command1_Click()  
Text1.LinkMode = 0 '0 = reset
Text1.LinkTopic = "AutoCAD LT.DDE|system" 'establish DDE link
Text1.LinkMode = 2  '2 = manual connection
Text1.LinkExecute "_filedia" & Chr(13) & "0" & Chr(13)  
Text1.LinkExecute "_plot" & Chr(13)  
Text1.LinkExecute "L" & Chr(13) & "N" & Chr(13)  
Text1.LinkExecute "_filedia" & Chr(13) & "1" & Chr(13)  
End Sub
Zpět nahoru
musil Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 03.srp.2005
Lokalita: ČR (VY)
Používám:
Cad 2002LT EN
Stav: Offline
Bodů: 162
Přímý odkaz na tuto zprávu Zasláno: 28.srp.2006 v 16:43
Dik zkoušel jsem to a asi mě něco uniká deklaroval jsem Text1
 
Toto mě naběhne :
 
Warning 1 Variable 'Text1' is used before it has been assigned a value. A null reference exception could result at runtime. 
 
 
deklaroval jsem: Dim Text1
 
Zpět nahoru
SELM Zobrazit panel
Diskutér
Diskutér

Přihlášen: 25.lis.2005
Stav: Offline
Bodů: 59
Přímý odkaz na tuto zprávu Zasláno: 29.srp.2006 v 07:17
na formu musíte mít textbox text1
Zpět nahoru
musil Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 03.srp.2005
Lokalita: ČR (VY)
Používám:
Cad 2002LT EN
Stav: Offline
Bodů: 162
Přímý odkaz na tuto zprávu Zasláno: 29.srp.2006 v 14:28
Na frm. mam :  command1
 
                        text1
 
Warning 1 Variable 'Text1' is used before it has been assigned a value. A null reference exception could result at runtime. 
Zpět nahoru
SELM Zobrazit panel
Diskutér
Diskutér

Přihlášen: 25.lis.2005
Stav: Offline
Bodů: 59
Přímý odkaz na tuto zprávu Zasláno: 31.srp.2006 v 06:56
Pise vám to že používáte text1 aniž došlo k jeho inicializaci, provádíte s ním něco přeh load form?
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 1738:Jak propojit aplikaci v C++ nebo Visual Basicu s AutoCADem, Desktopem nebo Inventorem?
Tip 7325:Design Review hlásí chybu "Microsoft Visual C++ 2008 SP1 required".
Tip 5865:Mohu použít Visual Studio 2008 pro tvorbu aplikací pro AutoCAD?
Tip 3523:Jak vytvářet ARX aplikace pro AutoCAD?
Tip 13479:Mohu používat bezplatný read-only přístup k Vault úložišti pro non-CAD uživatele?
Tip 10706:VIPInventor: Vstupní bod procedury __crtCreateSymbolicLinkW nebyl nalezen


 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,270 sekund.