Zobrazit plnou verzi příspěvku: Selection Set

orlik
23.11.2007, 14:06
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?

chose
23.11.2007, 15:44
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)

orlik
23.11.2007, 21:02
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.

orlik
23.11.2007, 21:09
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