Zobrazit plnou verzi příspěvku: srafovanie cez VBA

janusza
03.04.2009, 02:59
Prosim o radu. Potrebujem vysrafovat urcitu cast objektu(zatial ju nemam ako blok), prostrednictvom VBA.Je to nejako mozne v principe ako sa to robi klasickym sposobom v autocade? (vyber bodov, alebo ploch)VELMI PEKNE DAKUJEM za akukolvek radu...

Vladimír Michl
03.04.2009, 07:11
Pokud máte např. v "objPline" uloženu obrysovou křivku, vyšrafujete ji pomocí:
[CODE]
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "SOLID", True)Set Border(0) = objPlineobjHatch.AppendOuterLoop BorderobjHatch.Evaluate[/CODE]