Diskuzní fórum, poradna
CAD diskuze, rady, výměna zkušeností |
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 360, 3ds Max a s dalšími CAD 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 Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
iLogic Title Block |
Odpovědět | archiv |
Autor | |||
PopelkaM
Zasloužilý člen Přihlášen: 05.čvc.2010 Lokalita: ČR (PA) Používám: Inventor 2023 Stav: Offline Bodů: 107 |
Téma: iLogic Title Block Zasláno: 01.lis.2019 v 09:40 |
||
Dobrý den,
pokouším se iLogicem vyměnit staré razítko za nové ve výkrese viz. pravidlo níže. Nové razítko vloží do zdrojů výkresu ,ale nevloží do výkresu. Problém je ,že razítko má texty s výzvou a to není v pravidle ošetřeno.... Poradí mě někdo... Děkuji Popelka --------------------------------------------------------------------------- ThisDrawing.ResourceFileName = "cesta ksouboru idw" ThisDrawing.KeepExtraResources = False Dim oSheets As Sheets oDoc = ThisDoc.Document Dim oSheet As Sheet For Each oSheet In oDoc.Sheets oSheet.Activate ActiveSheet.TitleBlock = "nové razítko" Next |
|||
Navara
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
Arkance Systems support Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
Zasláno: 01.lis.2019 v 11:21 | ||
Tohle je trochu složitější úloha. Podle mě na to iLogic žádnou zvláštní podporu neposkytuje a je potřeba to udělat přes plné API.
V nápovědě k API Inventrou je uveden příklad ve VBA na definici a vložení rohového razítka, který není problém upravit pro iLogic. Příklad najdete pod heslem
Pro vložení razítka je potřeba použít přímo metodu
Pokud i původní razítko obsahuje vyplněná zadání s výzvou, které je potřeba přenést, tak se situace ještě více komplikuje, protože je potřeba tyto hodnoty před vymazáním razítka přečíst a správně zapsat do nového razítka.
|
|||
PopelkaM
Zasloužilý člen Přihlášen: 05.čvc.2010 Lokalita: ČR (PA) Používám: Inventor 2023 Stav: Offline Bodů: 107 |
Zasláno: 01.lis.2019 v 13:46 | ||
Děkuji za info.
Vkládání funguje... Makro níže počítá s tím ,že razítko je ve zdrojích aktuálního výkresu. Potřebuji udělat to co bylo v iLogicu. Aby se razítko do výkresu zkopírovalo ze souboru *.idw. Můžete mě ještě poradit? Děkuji Popelka -------------------------------------------------------------------------------------- Public Sub InsertTitleBlockOnSheet() ' Set a reference to the drawing document. ' Nastavte odkaz na výkresový dokument ' This assumes a drawing document is active. Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument ' Obtain a reference to the desired border defintion. Dim oTitleBlockDef As TitleBlockDefinition Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("CNHI") Dim oSheet As Sheet Set oSheet = oDrawDoc.ActiveSheet ' Check to see if the sheet already has a title block and delete it if it does. If Not oSheet.TitleBlock Is Nothing Then oSheet.TitleBlock.Delete End If ' This title block definition contains one prompted string input. An array ' must be input that contains the strings for the prompted strings.' Dim sPromptStrings(1 To 22) As String sPromptStrings(1) = "" sPromptStrings(2) = "" sPromptStrings(3) = "" sPromptStrings(4) = "" sPromptStrings(5) = "" sPromptStrings(6) = "" sPromptStrings(7) = "" sPromptStrings(8) = "" sPromptStrings(9) = "" sPromptStrings(10) = "" sPromptStrings(11) = "" sPromptStrings(12) = "" sPromptStrings(13) = "" sPromptStrings(14) = "" sPromptStrings(15) = "" sPromptStrings(16) = "" sPromptStrings(17) = "" sPromptStrings(18) = "" sPromptStrings(19) = "" sPromptStrings(20) = "" sPromptStrings(21) = "" sPromptStrings(22) = "" ' Add an instance of the title block definition to the sheet. Dim oTitleBlock As TitleBlock Set oTitleBlock = oSheet.AddTitleBlock(oTitleBlockDef, , sPromptStrings) End Sub |
|||
Navara
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
Arkance Systems support Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
Zasláno: 01.lis.2019 v 14:20 | ||
Třeba takhle
|
|||
PopelkaM
Zasloužilý člen Přihlášen: 05.čvc.2010 Lokalita: ČR (PA) Používám: Inventor 2023 Stav: Offline Bodů: 107 |
Zasláno: 01.lis.2019 v 14:42 | ||
Děkuji za ochotu vyzkouším...Popelka
|
|||
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět | |
Přejít na fórum | Oprávnění fóra Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,758 sekund.