Code: Select all
OnExit, CleanUp
DVC:= ComObjCreate("Dragon.DgnVCmd")
DVC.Register("", 1)
DMnu:= DVC.MenuCreate("SomeRuleName", "", 0, "", 1)
DMnu.hWndMenu:=0
DMnu.Active:=True
LStr:=COMObjCreate("Dragon.DgnStrings")
Lstr.Add("date format short")
Lstr.Add("date format long")
DMnu.ListSetStrings("MyCommands", Lstr)
ObjRelease(Lstr)
DMnu.Add(72, "<MyCommands>","SomeCategory","SomeDescription","Action1",0)
ComObjConnect(DVC, "On_")
On_CommandRecognize(pcom,pID,pact,plist)
{
commandptr := NumGet(ComObjValue(pcom),0,"Ptr")
command := StrGet(commandptr)
id := NumGet(ComObjValue(pID),0,"int")
actptr := NumGet(ComObjValue(pact),0,"Ptr")
act := StrGet(actptr)
listp := NumGet(ComObjValue(plist),0,"Ptr")
lp := ComObject(9,listp,1)
listcnt := lp.Count
if listcnt>0
{
listit := lp.Item(1)
}
else listit:=""
If(Command="date format short")
{
DgnEngine := ComObjCreate("Dragon.DgnEngineControl")
DgnEngine.Register(0)
DgnEngine.Option(45) := 9
DgnEngine.UnRegister(0)
ObjRelease(DgnEngine)
}
If(Command="date format long")
{
DgnEngine := ComObjCreate("Dragon.DgnEngineControl")
DgnEngine.Register(0)
DgnEngine.Option(45) := 1
DgnEngine.UnRegister(0)
ObjRelease(DgnEngine)
}
return
}
CleanUp:
DVC.UnRegister()
ObjRelease(DVC)
ObjRelease(x1)
ObjRelease(oWord)
ExitApp
Code: Select all
Lstr.Add("Sample Command")
If(Command="Sample Command")
{
msgbox sample command
}
DgnEngine.Option(45) := [1, or 2, or 3, or 4, etc...]
October 3, 2018 1
October 03, 2018 2
Oct 3, 2018 3
Oct 03, 2018 4
10/3/2018 5
10/3/18 6
10/03/2018 7
10/03/18 8
10-03-18 9
3 October, 2018 10