ToolbarButton newButton6 = new ToolbarButton("ID_RLEXPORTAR", "RL Exportar", newT, -1) ToolbarButton newButton5 = new ToolbarButton("ID_RLFILTRAR", "RL Filtrar", newT, -1) ToolbarButton newButton4 = new ToolbarButton("ID_RLOSA", "RLosa", newT, -1) ToolbarButton newButton3 = new ToolbarButton("ID_RL_si", "RL si", newT, -1) ToolbarButton newButton2 = new ToolbarButton("ID_RL_Quad", "RL Quadrant", newT, -1) ToolbarButton newButton1 = new ToolbarButton("ID_RL_Xref", "RL Xref", newT, -1) Toolbar newT = new Toolbar("RL", newCS.MenuGroup) = "Exportar refuerzos a archivos de Excel. MenuMacro newMM6 = new MenuMacro(newMG, "RL Exportar", "^C^CRLEXPORTAR", "ID_RLEXPORTAR") = "Filtrar de entre los refuerzos de losa para su visualización en el plano" MenuMacro newMM5 = new MenuMacro(newMG, "RL Filtrar", "^C^CRLFILTRAR", "ID_RLFILTRAR") MenuMacro newMM4 = new MenuMacro(newMG, "RLosa", "^C^CRLOSA", "ID_RLOSA") = "Dibujar refuerzos tipo s e i de una losa" MenuMacro newMM3 = new MenuMacro(newMG, "RL si", "^C^CRLSI", "ID_RL_si") = "Crear cuadrante relacionado a una losa" MenuMacro newMM2 = new MenuMacro(newMG, "RL Quadrant", "^C^CRLQUAD", "ID_RL_Quad") = "Anexar plano original bajo determinadas especificaciones" MenuMacro newMM1 = new MenuMacro(newMG, "RL Xref", "^C^CRLXREF", "ID_RL_Xref") MacroGroup newMG = new MacroGroup("RLMacros", newCS.MenuGroup) _16.Save(baseFolder + "RLEXPORTAR16.bmp") ĬustomizationSection newCS = new CustomizationSection() _16.Save(baseFolder + "RLFILTRAR16.bmp") If( ("CUI already exist.\nDelete?", "CUI Exists",, , 1, 0) = ) If (newPCFC.Contains(mainCUI.Replace(mainCS.CUIFileBaseName + ".cuix", "RL.cuix"))) String test1 = mainCUI.Replace(mainCS.CUIFileBaseName + ".cuix", "RL.cuix") String cuiFileToSend = "\"" + baseFolder + "RL.cuix" + "\"" PartialCuiFileCollection newPCFC = mainCS.PartialCuiFiles String baseFolder = mainCUI.Replace(mainCS.CUIFileBaseName + ".cuix", "") String mainCUI = Application.GetSystemVariable("MENUNAME").ToString() + ".cuix" ĬustomizationSection mainCS = new CustomizationSection(mainCUI, false) Coded by: Lev Villanueva newDocument = ĭatabase newDatabase = newDocument.Database I encourage you to search the forums, the dev blog and the Through the Interface blog as well. Sorry but I'm not explaining it line by line.
Took me weeks of search and testing to get the following code down.
0 kommentar(er)
