CAD Fórum : GetEntity vo VBA https://www.cadforum.cz/forum/ Sun, 10 May 2026 14:32:39 +0000 Tue, 24 Jan 2006 13:09:55 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=2010 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[GetEntity vo VBA : zkuste v druhem radku: Dim returnObj...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2010&PID=8393&title=getentity-vo-vba#8393 Autor: dazky
Předmět: 2010
Zasláno: 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
]]> Tue, 24 Jan 2006 13:09:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2010&PID=8393&title=getentity-vo-vba#8393 <![CDATA[GetEntity vo VBA : Dobry den,mam maly problem s VBA....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2010&PID=8385&title=getentity-vo-vba#8385 Autor: Sirus
Předmět: 2010
Zasláno: 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

]]> Tue, 24 Jan 2006 08:53:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2010&PID=8385&title=getentity-vo-vba#8385