CAD Fórum : Prepojenie VBA Acad - Excel

Prepojenie VBA Acad - Excel : Ďakujem za usmernenie, mojím cieľom...

Fri, 18 Apr 2008 09:51:19 +0000

Autor: predcis
P�edm�t: 6346
Zasl�no: 18.dub.2008 v 09:51

�akujem za usmernenie,
moj�m cie�om je na��ta� tabu�ku z excelu (v�kaz) a prenies� ju do autocadu, nie ako OLE objekt, ale ako autocadovsk� entity s t�m, aby sa zapam�tali vzorce, t.j. �e ak by som potreboval upravi� v�kaz, tak si cel� blok (alebo acad tabu�ku - t�to novinku autocadu som e�te podrobne nepresk�mal) prenesiem do excelu aj so vzorcami. Tak�e ma �akaj� e�te experimenty s setXData a getXData
Ka�dop�dne pojdem na to t�m druh�m sp�sobom, �e makro pre export do acadu naprogramujem v exceli, ��m bude prenos d�t bezprobl�mov�.

Prepojenie VBA Acad - Excel : Dobrý den, trošku mi uniká smysl...

Wed, 16 Apr 2008 15:03:31 +0000

Autor: pavelstyl
P�edm�t: 6346
Zasl�no: 16.dub.2008 v 15:03

Dobr� den,

tro�ku mi unik� smysl toho �eho se sna��te dos�hnout.

Jestli tomu dob�e rozum�m, tak vy spust�te autocadovsk� makro, kter� spust� excelovsk� makro a z toho excelovsk�ho makra chcete z�skat hodnoty prom�nn�ch do toho autocadovsk�ho makra.

N�vrh �e�en� 1:

upravit to excelovsk� makro tak, aby v�sledek v�po�tu ulo�il do n�jak�ch bu�ek a z autocadosk�ho makra ty hodnoty p�e��st

dim sh as WorkSheet
set sh=ZositExcel.Sheet(1)
prom=sh.Cells(radek,sloupec)

N�vrh �e�en� 2:

p�esunout autocadovsk� makro do excelu a nebo excelovsk� do autocadu

Kdy� budou makra v jedn� aplikaci, tak ten p�enos hodnot bude jednodu��

Nev�m jestli jsem ten dotaz pochopil dob�e. Zkuste n�jak bl�e specifikovat, co ta makra maj� d�lat.

Jestli v�m to pom��e, p�ikl�d�m excelovsk� makro, kter� p�enese hodnoty vybran�ch bu�ek do AutoCADu.

Private Sub ToACAD_Click()
    Dim acad As AcadApplication
    Dim dwg As AcadDocument
    Dim txt_point(0 To 2) As Double
    Dim r As Integer
    Dim s As Integer
    
    On Error Resume Next
    
    txt_point(0) = 0
    txt_point(1) = 0
    txt_point(2) = 0
    
    
    Err.Clear
    Set acad = GetObject(, "AutoCAD.Application.16.2")
    If Err Then
        Err.Clear
        Call MsgBox("AutoCAD Mechanical 2006 nen� spu�tìn", vbCritical)
        Exit Sub
    End If
    Set dwg = acad.ActiveDocument
    
    For r = Selection.Row To Selection.Row + Selection.Rows.Count - 1
        For s = Selection.Column To Selection.Column + Selection.Columns.Count - 1
           txt_point(0) = s * 25
           txt_point(1) = -r * 10
            Call dwg.ModelSpace.AddText(Cells(r, s), txt_point, "5")
        Next s
    Next r
    
    Set dwg = Nothing
    Set acad = Nothing
End Sub

Pavel �tyl

Prepojenie VBA Acad - Excel : Dobry den, zacal som rozmyslat...

Tue, 15 Apr 2008 16:34:03 +0000

Autor: predcis
P�edm�t: 6346
Zasl�no: 15.dub.2008 v 16:34

Dobry den,
zacal som rozmyslat nad jednym programcekom, ktory by z excelu nacitaval data a podla nich by kreslil veci do autocadu. Zatial len testujem ciastkove ulohy a rozmyslam ako na vec.
Zatial som dokazal spustit z autocadu excelovske makro, problem je vsak v tom, ze sa mi nedari "najst" alebo "preniest" premenne z excelackeho makra do acadovskeho makra.
Neviete mi prosim poradit, kde v objektovej skladbe sa nachadzaju globalne premenne (ak vobec) alebo inu fintu ako na to? Jedine co ma napadlo, je vyuzit nejaky externy textovy subor, do ktoreho by som zapisal vysledok excelovskeho makra a nacital ho do acadu, ale taketo riesenie sa mi zda tazkopadne.
Uvadzam priklad :
makro excel :
Public Hodnota As String

Public Sub pokus()
forr.Show
MsgBox Hodnota 'toto zobrazi spravny vysledok
End Sub

formular forr :
obsahuje jedno tlacitko a jedno textove pole (ma nazov hhh)
Private Sub CommandButton1_Click()
    Hodnota = hhh.Value
    Unload Me
End Sub

makro v acade :
Public Sub PokusSexcelom()
    Dim Excelik As Object
    Dim Subor As String
    Dim Adresar As String
    Dim ZositExcel As Workbook

    Set Excelik = CreateObject("Excel.Application")
    Excelik.Visible = True

    Adresar = "d:\"
    Subor = "makro.xls"

    Set ZositExcel = Excelik.Workbooks.Add(Adresar & subor)

    Excelik.Run "pokus"

    MsgBox Excelik.hodnota 'tuto je problem

    ZositExcel.Close
End Sub

Chcel by som sa opytat, ze ako sa dostanem ku globalnej premennej Hodnota vo vnutri acadovskeho makra. Pretoze prikaz MsgBox Excelik.hodnota zobrazuje prazdnu hodnotu.

myslim, ze C-cko pozna nieco ako extern, ale vo VBA som to nenasiel.

Dakujem za kazdy napad a radu !

Lubomir Placek

P.S. Este by som sa opytal, ma VBA ekvivalent k C-ckovym prikazom continue a ++ (trochu mi chybaju) ?

Este raz vdaka.