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]