Code: Select all
xl := comObjCreate("excel.application")
xl.visible := true
Code: Select all
xl := comObjCreate("excel.application")
xl.visible := true
Code: Select all
getSolidworksHandle(file := "")
{
try
{
swApp := ComObjActive("SldWorks.Application")
}
catch
{
run % getSolidworksPath() ;launch SLDWORKS.exe
DHW := A_DetectHiddenWindows
detecthiddenwindows off
loop ;wait for stable state
{
Process, Exist, % "SLDWORKS.exe"
if(ErrorLevel > 0)
{
WinGetTitle,procTitle,ahk_pid %ErrorLevel%
;tooltip % procTitle
if(instr(procTitle,"SOLIDWORKS "))
{
break
}
}
sleep 100
}
DetectHiddenWindows, %DHW%
swApp:=ComObjActive("SldWorks.Application")
}
if(file)
{
type := 1
swApp.openDoc(file,type)
}
return swApp
}
Users browsing this forum: Google [Bot] and 311 guests