Dobrý den, chtěla bych požádat o radu zkušenějšího programátora než sem já. V cadu je funkce "dělm" (measure), kterou bych potřebovala použít v makru. Bohužel nejsem, schopná nalézt postup jak toho dosáhnout. Poradí někdo? Díky 

v jakém makru?
např. v LISPu stačí něco jako
(setq e (entsel))(command "_MEASURE" e 123.45)
 

Ve VisualBasicu

to je horší, DIVIDE/MEASURE a EXPLODE nemají ActiveX rozhraní, takže jedině použít SendCommand

Hmmm, tak s tim nemam vubec zadnou zkusenost, ale zkusim to nekde najit. Dekuju

Tak sem neco nasla, ale neni to uplne ono. Asi mam spatne paramtery. SendCommand poustim v cyklu, ale provede se to pouze u posledniho prvku. Nemohl byste mi jeste poradit? Zapsane to mam nejspis uplne hrozne takhle:
For Each prvky In vyberThisDrawing.SendCommand "_measure" & vbCr & "vyber" & vbCr & "b" & vbCr & "geohaie2" & vbCr & "a" & vbCr & "10" & vbCr Next prvky
prvky je promenna Dim prvky As AcadEntity
vyber je Dim vyber As AcadSelectionSet
 

Jen při zběžném pohledu mi nesedí ...& vbCr & "vyber" & vbCr & "b"...
Vy tam posíláte text vyber, ale podle mého by tam měla být proměnná prvky.

Ja to zkousela oboji, ale chovalo se stejne. Ted to z nejakeho duvodu nefunguje najednou vubec. V prikazove radce v cadu to hlasi chybu Neplatny vyber.Ocekava se jediny objekt. A to i v pripade, kdy je ve vyberu jen 1 prvek. Pro dnesek to vzdavam. Dekuju za pomoc.

A jak tvorite tu vyberovou mnozinu?

Tak sem tu zas. Zkousela jsem jiny typ cyklu, kde se pouzivaji indexy, ale nepomohlo to.  Nevim jak mam v prikazu SendCommand napsat parametr prvky(i) tak, aby to pak v prikazove radce nehlasilo chybu *Neplatny vyber*, Ocekava se jediny objekt.
Dim prvky(0 To 10) As AcadEntity
For i = 0 To N prvky(i).Offset (-10) ThisDrawing.SendCommand "_measure" & vbCr & "prvky(i)" & vbCr & "b" & vbCr & "geohaie2" & vbCr & "a" & vbCr & "10" & vbCrNext i

Zatim jen tak provizorne. Mám ve výkresu jen 2 usecky a na tom to zkousim.
For i = 0 To 1Set prvky(i) = ThisDrawing.ModelSpace.Item(i)Next i

Podle mého je zásadní nepochopení v tom, že tam nemůžete napsat text "prvky(i)". Metoda SendCommand v podstatě posílá texty na příkazovou řádku. Napsala byste na příkazovou řádku prvky(i) a očekávala nějaký výsledek?Přiznám se, že jsem ještě podobnou konstrukci nepoužil a teď nevím, jak to udělat. V lispu bych se odkazoval na proměnnou, ve které by byla příslušná entita. Možná nějaká konstrukce s příkazem "VYBER" a vybrání Předchozí.

Mrkněte se na kurz 13 na stránce Téma - programování AutoCADu a Inventoru, třeba vám to pomůže:http://www.cadforum.cz/cadforum/tema.asp

Děkuju moc. Projdu to. Hezký den. L.

Funguje. Uz jen nejaky kosmeticky upravy a je hotovo. Klidne pak dam makro k dispozici kdyz bude zajem. Jeste jednou dekuju vsem a preji hezky den.