ilogic規則の活発化

[tonygancio]

ciao a tutti, mi servirebbe una dritta per creare una combinazione di tasti per attivare una regola ilogic.
vorrei che premendo ad esempio ctrl+p mi si attivi una regola; questa regola ha il compito di far partire un altra regola e poi un modulo.
con questo automatismo, cioè premendo ctrl+p apro una maschera per inserire le iproperty + delle altre proprietà personalizzate.
grazie mille!
n

 

[Catafratto]

https://www.cadlinecommunity.co.uk/...09-inventor-run-ilogic-rules-from-your-ribbon

 

[Catafratto]

colleghi la tua combinazione di tasti alla macro vba co tasto dx sulla ribbon > personalizza comandi utente

 

[tonygancio]

mi da un messaggio di errore, devo sostituire qualcosa nel listato x caso?

 

[Catafratto]

dipende dal messaggio di errore...

 

[tonygancio]

dipende dal messaggio di errore...

 

[Catafratto]

public sub internal_ilogic()
'from https://www.cadlinecommunity.co.uk/hc/en-us/articles/115000859309
dim addin as applicationaddin
dim addins as applicationaddins

set addins = thisapplication.applicationaddins
    for each addin in addins
        if instr(addin.displayname, "ilogic") > 0 then
                        addin.activate
            dim ilogicauto as object
            set ilogicauto = addin.automation
            exit for
        end if
    next
debug.print addin.displayname
 
 
dim externalrule as string
dim internalrule as string

externalrule = "3d pdf"

internalrule = "regola0"
 
  dim odoc as document
 
  set odoc = thisapplication.activedocument
  if odoc is nothing then
    msgbox "missing inventor document"
    exit sub
  end if
 
ilogicauto.runrule odoc, internalrule 'for internal rule
'ilogicauto.runexternalrule odoc, externalrule 'for external rule

end sub

c'era un errore di sintassi, sistemato (le righe rosse)

nelle righe blu metti il nome della tua regola

 

[Catafratto]

sono spariti i colori ma credo che sia chiaro lo stesso dove mettere i nomi delle regole

 

[tonygancio]

c'era un errore di sintassi, sistemato (le righe rosse)

nelle righe blu metti il nome della tua regola[/QUOTE]
ciao, innanzitutto ti ringrazio per l'aiuto, però ancora non funziona...non ci sono righe blu e non mi è chiaro do ve sostituire il nome regola...
se ti dicessi che la regola si chiama start e vorrei attivarla premendo ctrl+d mi potresti impostare tu?
grazie mille!!
n

 

[Catafratto]

meno male che era solo una dritta

public sub internal_ilogic()
'from https://www.cadlinecommunity.co.uk/hc/en-us/articles/115000859309
dim addin as applicationaddin
dim addins as applicationaddins
set addins = thisapplication.applicationaddins
    for each addin in addins
        if instr(addin.displayname, "ilogic") > 0 then
                        addin.activate
            dim ilogicauto as object
            set ilogicauto = addin.automation
            exit for
        end if
    next
debug.print addin.displayname

'dim externalrule as string
dim internalrule as string

'externalrule = "3d pdf"

' ----- guarda qui! ---------
internalrule = "start"

 
dim odoc as document
set odoc = thisapplication.activedocument
  if odoc is nothing then
    msgbox "missing inventor document"
    exit sub
  end if

ilogicauto.runrule odoc, internalrule 'for internal rule

'ilogicauto.runexternalrule odoc, externalrule 'for external rule

end sub

 

[Catafratto]

per il ctrl-d devi proprio arrangiarti, se leggi più in alto ho già scritto come fare.

 

[Adahm]

少ない悪いのは単なるストレートだった

パブリックサブ内部_ilogic()
「から」 https://www.cadlinecommunity.co.uk/hc/en-us/articles/115000859309
applicationaddin として dim の addin
applicationaddins として dim アドイン
addins = このアプリケーションを設定します。 アプリケーションアドイン
addins の各アドイン
instr(addin.displayname, "ilogic") の場合 > 0 それから
addin.activate ディレクティブ
dim ilogicauto オブジェクトとして
ilogicauto = addin.automation の設定
出口のための
端 もし
次へ
debug.print addin.displayname ディレクティブ

'dim 文字列として外部ルール
文字列として内部ルールを薄くする

'externalrule = "3d pdf"

' ----- ガードアキ! お問い合わせ
内部ルール = "スタート"


odoc をドキュメントとして
odoc = thisapplication.activedocument を設定する
odocが何もない場合、
msgbox 「発明者文書の締結」
出口のサブ
端 もし

ilogicauto.runrule odoc、内部ルール '内部ルール

'ilogicauto.runexternalrule odoc、外部ルール 'for 外部ルール

エンドサブ

要するに、私があなたに投稿したソリューションが必要なたびに:ありがとう!