Zobrazit plnou verzi pøíspìvku: GetEntity vo VBA

Sirus
24.01.2006, 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:[CODE]Private Sub CommandButton1_Click()Dim returnObj, returnObj2 As AcadMTextDim basePnt, Pnt1, xx As Variantzarovnanie.HideThisDrawing.Utility.GetEntity returnObj, basePnt, "Vyber prvy text"Pnt1 = returnObj.InsertionPointIf vlavo.Value = True Then xx = Pnt1.XEnd IfThisDrawing.Utility.GetEntity returnObj2, basePnt, "Vyber druhy text"returnObj2.InsetrionPoint.X = xxreturnObj2.UpdateEnd Sub[/CODE]

dazky
24.01.2006, 13:09
zkuste
v druhem radku: Dim returnObj As AcadMText, returnObj2 As AcadMText
objekt musi byt typ "AcadEntity", nemuze byt "Variant"
David