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.098.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ů.
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
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
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,211 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img