Diskuzní fórum, poradna

archiv · (moderátor)

   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 

CZ \| SK \| EN \| DE
Přihlášení
či registrace
	právě nás čte: 4020

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Téma: Delit v meritku Zasláno: 14.čvc.2005 v 13:31
	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
	Lenka M.

Vladimír Michl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21493	Zasláno: 14.čvc.2005 v 13:44
	v jakém makru? např. v LISPu stačí něco jako (setq e (entsel)) (command "_MEASURE" e 123.45)
	Vladimír Michl (moderátor) Arkance Systems s.r.o. - www.arkance-systems.cz (podpora viz hd.cads.cz)

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 14.čvc.2005 v 13:47
	Ve VisualBasicu
	Lenka M.

Vladimír Michl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21493	Zasláno: 14.čvc.2005 v 14:24
	to je horší, DIVIDE/MEASURE a EXPLODE nemají ActiveX rozhraní, takže jedině použít SendCommand
	Vladimír Michl (moderátor) Arkance Systems s.r.o. - www.arkance-systems.cz (podpora viz hd.cads.cz)

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 14.čvc.2005 v 14:39
	Hmmm, tak s tim nemam vubec zadnou zkusenost, ale zkusim to nekde najit. Dekuju
	Lenka M.

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 14.čvc.2005 v 15:12
	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 vyber ThisDrawing.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
	Lenka M.

Seiner Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých CAD/BIM manager Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662	Zasláno: 14.čvc.2005 v 15:32
	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.

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 14.čvc.2005 v 16:00
	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.
	Lenka M.

Seiner Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých CAD/BIM manager Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662	Zasláno: 15.čvc.2005 v 08:18
	A jak tvorite tu vyberovou mnozinu?

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 15.čvc.2005 v 08:19
	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" & vbCr Next i
	Lenka M.

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 15.čvc.2005 v 08:27
	Zatim jen tak provizorne. Mám ve výkresu jen 2 usecky a na tom to zkousim. For i = 0 To 1 Set prvky(i) = ThisDrawing.ModelSpace.Item(i) Next i
	Lenka M.

Seiner Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých CAD/BIM manager Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662	Zasláno: 15.čvc.2005 v 08:41
	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í.

Vladimír Michl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21493	Zasláno: 15.čvc.2005 v 11:00
	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
	Vladimír Michl (moderátor) Arkance Systems s.r.o. - www.arkance-systems.cz (podpora viz hd.cads.cz)

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 15.čvc.2005 v 12:37
	Děkuju moc. Projdu to. Hezký den. L.
	Lenka M.

Asterix Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Nováček Přihlášen: 14.čvc.2005 Lokalita: Czech Republic Stav: Offline Bodů: 10	Zasláno: 15.čvc.2005 v 14:53
	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.
	Lenka M.

Příbuzné CAD tipy:
Tip 4877:		Hromadné přenastavení jednotek ve všech DWG výkresech (nesprávné měřítko vkládání).
Tip 2783:		Jak snadno vytisknout z CADu velký formát na dlaždicově poskládané menší formáty (s přesahem)?
Tip 2124:		Jak změnit měřítko výkresu pouze v jedné ose (jen X, jen Y, jen Z)?
Tip 5570:		Jak vytvořit odvozenou součást s nestejnoměrným měřítkem X/Y/Z ?
Tip 5813:		Jak se zbavit měřítek anotací vtažených z Xrefů?
Tip 2943:		Jak zvětšit nebo natočit několik bloků okolo jejich individuálních vkládacích bodů?

	CAD Fórum - tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360 a další Autodesk aplikace (support firmy Arkance Systems)	ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner	KONTAKT: webmaster.cz@arkance-systems.com tel. +420 910 970 111
	Copyright ©2024 \| Web reklama na tomto serveru \| Ochrana soukromí, podmínky

Diskuzní fórum, poradna

CAD diskuze, rady, výměna zkušeností

Delit v meritku