Zobrazit plnou verzi příspěvku: Selection Set
Ve VBA potrebuji do nejake mnoziny dostat par elementu. V prikladech je vzdy jen vyber v pevne danych mezich (v povelech, ktere znam) z bodu natvrdo zadanych v programu. (V LISPu to umim). Potrebuji do konecneho vyberu, ktere budu moci vybirat oknem i primym vyberem, dostat potrebne elementy, ktere musim kontrolovat na spojitost, eventuelne znat nejvetsi nepresnost.Diky za trpelivost.Apropo, tohle to uz zde bylo nekolikrat. Existuje manual - knizka!!! v cestine(slovenstine, polstine, rustine) (kdyz primhourim vsechny tri oci i v anglictine) k VBA - alespon od verze 2002?
Dobrý den. Myslím, že to nebude žádný problém, ale úplně sem nepochopil, co přesně potřebujete udělat. Potřebujete si sám vybrat nějáké objekty a k těmto vybraným objektům pak přidat nějáké objekty pevně dané?
Vladimír Michl
23.11.2007, 16:41
Ukázky práce s výběrem objektů jsou v několika "lekcích" ukázek VBA programování na stránce:
http://www.cadforum.cz/cadforum/tema.asp (např. Lekce 4).
Knížek k VBA je hodně, vy ale asi spíše hledáte něco k VBA v AutoCADu - celkem podrobný popis je v materiálu "Vývojové prostředky AutoCADu" (viz stránka výše uvedená, popř. přímo zde)
Myslím tím to, že některé elementy můžu vybrat oknem, ale další potřebné musím přidat výběrem konkretního elementu, třeba kvůli místu.
Pane Michl děkuji. O těch elektronických podobách vím, ale právě, že knížka je knížka. Na tu elektronickou adresu jsem trochu pozapoměl. Spiš jsem se domníval, že s verzema 2006, 2008 atd příjde i potřebně vytištěná dokumentace. Nejen ke konstruování, kotování atd ale i programování ať v lispu, dcl či VBA.
Luděk Líkař
17.12.2007, 12:49
Pokusím se odpovědět jen obecně. Co nejdříve vybrat příslušné entity ručně pomocí vyber okno, entitu atd a pak spustit makro které aktuální výběr "ActiveSelectionSet" (případně jednotlivé entity) uloží do vlastní skupiny.
Dim Vyber As AcadSelectionSet
Set Vyber = ThisDrawing.ActiveSelectionSet