|
From: | Guillain SEUILLOT |
Subject: | Re: OooLilypond |
Date: | Mon, 16 Jun 2014 08:12:43 +0200 |
Le 13 juin 2014 à 18:57, Père Yves-Marie a écrit :
Bonjour, Moi aussi j'ai eu le problème. Il faut aller bidouiller dans la macro pour mettre les bonnes options de la ligne de commandes. Je ne sais plus exactement ce que j'ai modifié (ça date) mais voici la marche à suivre. J'utilise LibreOffice et OSX mais ça doit être la même chose pour OpenOffice : - Aller au menu Outils/Macros / Gérer les Macros/ LibreOffice Basic - Dans Mes macros, déployer OOoLilyPond. - Cliquer sur Subs. - Dans la colonne de droite, trouver CallLilypond. Cliquer dessus une fois puis sur Editer. Nous avons alors la fonction qui pose problème. Il faut trouver le «-b» et le remplacer par ce qu'il faut. Comme je ne me souviens plus où il devait apparaitre, voici la fonction telle que je l'ai : -------------------------------------------------- Function CallLilyPond() As Boolean Dim sCommand As String If sOSType = "Unix" Then sCommand="cd " & Chr(34) & ConvertFromURL(sTmpPath) & Chr(34) & "; " _ & Chr(34) & sLilyPondExecutable & Chr(34) If sFormat="png" Then sCommand = sCommand & " --ps --png -dresolution=" & iGraphicDPI & " OOoLilyPond.ly >OOoLilyPond.out 2>&1; " ElseIf sFormat="eps" Then sCommand = sCommand & " --ps OOoLilyPond.ly >OOoLilyPond.out 2>&1; " End If sCommand=sCommand & "if [ $? -ge 126 ]; then touch LilyPond-cannot_execute; fi" ' not found -> 127, denied ->126 BashCommand(sCommand) ElseIf sOSType = "Windows" Then sCommand = "cd /d " & Chr(34) & ConvertFromURL(sTmpPath) & Chr(34) & Chr(10) _ & Chr(34) & sLilyPondExecutable & Chr(34) If sFormat="png" Then sCommand = sCommand & " -ps -fpng -dresolution=" & iGraphicDPI & " OOoLilyPond.ly >OOoLilyPond.out 2>&1" &Chr(10) ElseIf sFormat="eps" Then sCommand = sCommand & " -ps -fps OOoLilyPond.ly >OOoLilyPond.out 2>&1" & Chr(10) End If sCommand=sCommand & "if errorlevel 9009 echo cannot execute >LilyPond-cannot_execute" 'ToDo: 9009 OK? Other errors? Wrong Permissions? WindowsCommand(sCommand) End If If FileExists(ConvertFromURL(sTmpPath) & "LilyPond-cannot_execute") then MsgBox "LilyPond cannot be executed." & Chr(10) _ & "Check the path specified for the lilypond executable in the configuration dialog," & Chr(10) _ & "your LilyPond installation and permissions." CallLilyPond=False 'lilypond was not executed Else CallLilyPond=True 'lilypond was executed End If End Function -------------------------------------------------- Bonne chance, Guillain. |
[Prev in Thread] | Current Thread | [Next in Thread] |