ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.500 registrovaných u nás, celkem 1.096.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů. Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

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

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenosrafovanie cez VBA

 Odpovědět Odpovědět archiv
Autor
janusza Zobrazit panel
Nováček
Nováček

Přihlášen: 02.dub.2009
Lokalita: Slovensko
Používám:
AutoCAD2005, AutoCAD2006, Inventor11
Stav: Offline
Bodů: 6
Přímý odkaz na tuto zprávu Téma: srafovanie cez VBA
    Zasláno: 03.dub.2009 v 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...
Jana
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21944
Přímý odkaz na tuto zprávu Zasláno: 03.dub.2009 v 07:11
Pokud máte např. v "objPline" uloženu obrysovou křivku, vyšrafujete ji pomocí:

Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "SOLID", True)
Set Border(0) = objPline
objHatch.AppendOuterLoop Border
objHatch.Evaluate
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 9321:VIPNefunguje mi VBA v Inventoru 2016, 2015, 2014 nebo 2013 - příčiny.
Tip 6790:VIPPřidání ikony vlastního příkazu/makra v Inventoru.
Tip 6490:VIPVBA aplikace v 64bitové verzi AutoCADu (kompatibilita, migrace)
Tip 6122:Nastavení úhlu a hustoty šraf v řezu materiálu sestavy Inventoru.
Tip 7247:Chyba C0000005 v AcVBA.arx při pokusu o spuštění VBA makra.
Tip 6603:V AutoCADu 2010 mi nejde načíst VBA aplikace (.DVB)


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,121 sekund.