Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.

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