Vytisknout stránku | Zavřít okno

GetEntity vo VBA

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=2010
Datum vytištění: 12.kvě.2026 v 00:19


Téma: GetEntity vo VBA
Odeslal: Sirus
Předmět: GetEntity vo VBA
Datum odeslání: 24.led.2006 v 08:53
Dobry den,

mam maly problem s VBA. Pokusam sa vybrat entitu (typu Mtext) ale program hlasi "ByRef argument mismatch". Pritom je to opisane z helpu ku GetEntity. Vie niekdo, kde je chyba?

A samotna funkcia:

Private Sub CommandButton1_Click()
Dim returnObj, returnObj2 As AcadMText
Dim basePnt, Pnt1, xx As Variant
zarovnanie.Hide
ThisDrawing.Utility.GetEntity returnObj, basePnt, "Vyber prvy text"
Pnt1 = returnObj.InsertionPoint
If vlavo.Value = True Then
 xx = Pnt1.X
End If
ThisDrawing.Utility.GetEntity returnObj2, basePnt, "Vyber druhy text"
returnObj2.InsetrionPoint.X = xx
returnObj2.Update
End Sub


Odpovědi:
Odeslal: dazky
Datum odeslání: 24.led.2006 v 13:09
zkuste
v druhem radku: Dim returnObj As AcadMText, returnObj2 As AcadMText
objekt musi byt typ "AcadEntity", nemuze byt "Variant"
David


Vytisknout stránku | Zavřít okno