Vytisknout stránku | Zavřít okno

Excel versus Visual Basic

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=2985
Datum vytištění: 13.kvě.2026 v 09:15


Téma: Excel versus Visual Basic
Odeslal: musil
Předmět: Excel versus Visual Basic
Datum odeslání: 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


Odpovědi:
Odeslal: musil
Datum odeslání: 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.

Odeslal: SELM
Datum odeslání: 28.srp.2006 v 14:10
napis celej kod z tohodle se nedá nic urcit, reklbych ze nemas nastavený dde

Odeslal: musil
Datum odeslání: 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)
 
 

Odeslal: SELM
Datum odeslání: 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

Odeslal: musil
Datum odeslání: 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
 

Odeslal: SELM
Datum odeslání: 29.srp.2006 v 07:17
na formu musíte mít textbox text1

Odeslal: musil
Datum odeslání: 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. 

Odeslal: SELM
Datum odeslání: 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?


Vytisknout stránku | Zavřít okno