blackman12

I tried but it was not successfull unfortuntaly. By the way, I discovered a point about the Excel VBA. For using the object in Excel, you must add "references" from tools menu. The references are *.TLB files. How can I import them to my script? Or many user who wrote script for SolidEdge, use the Interop.Solidedge tool. But How can I use it on my autoit script. I dont know. Can you find a way to use one of them?

Actually, I think It's not right, but I tried your script. Its same error message. It's not right because I use OleView.Net and in RO Table I can see the SolidEdge.DraftDocument and SolidEdge.Application but there is no SolidEdgeFramework.Application. Additionally when I use the ObjCreate with Solidedge.DraftDocument, it creates a Draft with "Untitled" name. Its related with ObjGet.

😕 Unfortunately, there is no info meaningly.

Thank you Ahmet, I tried also "SolidEdge.Application" it is same. and the error value is also same and it is "-2147352570" I dont know what does it mean If you have an experience about the solidedge could you give me help?

Hi to all, I try to make an automation script for my SolidEdge Drafts, But I have a problem when I try to get objects. Explaining in basic, The code at below returns as an Object and It creates a draft. $de = ObjCreate("SolidEdge.DraftDocument") MsgBox(0,"",VarGetType($de)) But in this, it's a string, so I cant do anything on existing and opened draft. $de = ObjGet("","SolidEdge.DraftDocument") MsgBox(0,"",VarGetType($de)) Whats the problem about the ObjGet? On the other hand, the VB6 codes in Excel works healthy, and I can get info from Table in exist Draft Set objApp = GetObject(, "SolidEdge.Application") Set objDoc = objApp.ActiveDocument Set objTables = objDoc.Tables Set objTable = objTables.Item(1) Set objTitles = objTable.Titles Set objTitle = objTitles.Item(1) Set objColumns = objTable.Columns Set objColumn = objColumns.Item(1) Could you help me about that, what the problem or where do I do wrong? Thank you,

anyone hasnt got an answer?

auh meanwhile i tried this one but, same result: $oIE.document.body.innerhtml = '<style type="text/css">body {width:400px;}</style>' & $mVeri[$l+1][2] --- edit: '<style type="text/css">body {width:100px;}img {max-width:100px;}</style>' & $mVeri[$l+1][2] i tried to write a file as a .html, its work but when i try this in object, it doesnt work

Func _GuiCTRLCreateWebPage($eX,$eY,$eW,$eH,$navigate="about:blank",$border = "none",$bgcolor = "green",$scroll = "auto",$face = "red",$base = "green",$dark = "black",$3d = "white",$arrow = "black",$highlight = "white",$shadow = "gray",$track = "white") $oIE = ObjCreate("Shell.Explorer.2") $html = GUICtrlCreateObj($oIE,$eX,$eY,$eW,$eH) $oIE.navigate($navigate) $oIE.document.body.style.border = $border $oIE.document.body.bgcolor = $bgcolor $oIE.document.body.scroll=$scroll $oIE.document.body.style.scrollbarFaceColor=$face $oIE.document.body.style.scrollbarBaseColor=$base $oIE.document.body.style.scrollbarDarkShadowColor=$dark $oIE.document.body.style.scrollbar3dLightColor=$3d $oIE.document.body.style.scrollbarArrowColor=$arrow $oIE.document.body.style.scrollbarHighlightColor=$highlight $oIE.document.body.style.scrollbarShadowColor=$shadow $oIE.document.body.style.scrollbarTrackColor=$track $oIE.document.body.style.Width=100 ; it's here Return $oIE EndFunc i know css, html or js. and i tried many way for this. but anyone didnt work. "$oIE.document.body.style.Width=100" i want to set a limit for body or image width in shell.explorer.2, i tried <img src="http://i.imgur.com/Hxehe.jpg" style="max-width:250px" alt="" /> but it didnt work.

Oupf :| Thanks a lot

I give a basic example for telling to my problem. Opt("GUIOnEventMode", 1) Global $Form1, $Form2 form1() Func form1() $Form1 = GUICreate("Form1", 117, 60, 192, 124) $Button1 = GUICtrlCreateButton("Button1", 16, 16, 75, 25) GUICtrlSetOnEvent(-1,"form2") GUISetState(@SW_SHOW) while 1 wend EndFunc Func form2() $Form2 = GUICreate("Form2", 117, 60, 192, 124) $Button2 = GUICtrlCreateButton("Button2", 16, 16, 75, 25) GUICtrlSetOnEvent(-1,"sil") GUISetState(@SW_SHOW) EndFunc Func sil() GUIDelete($Form1) GUIDelete($Form2) form1() EndFunc if you click button1, it open Form2 and if you click button2, it close form1 and form2 than, open a new form1.But now in this form1, guictrlsetonevent cant work! But why? How can i solve this problem?

I solve my problem with this basic function. func _UyeAdiDurumu($okuma) _FTP_DirSetCurrent($Conn,"/www/uyeler") Local $filesize = _FTP_FileGetSize($Conn,$okuma&".dat") if $filesize > 0 then Return False Return True EndFunc

Up.

The Problem is continue. i try another (basic script)* its work, but in my script it doesnt work.Meanwhile, i try it in scite its again work but when i compiled it, it doesnt work and give an error that is written on my previous messages. i write a different way this script but it doesnt work.if you say, maybe i can solve it, if you want, i send to you all of sources. func _UyeAdiDurumu($okuma) Local $h_Handle $aFile = _FTP_FindFileFirst($Conn, "/www/uyeler", $h_Handle,0x80000000) if @error = 0 Then while @error = 0 if StringRight($aFile[10],4) = ".dat" Then if $okuma = StringTrimRight($aFile[10],4) Then Return False EndIf EndIf $aFile = _FTP_FindFileNext($h_Handle) WEnd _FTP_FindFileClose($h_Handle) Return True ;Local $aFile, $F ;_FTP_DirSetCurrent($Conn,"/www/uyeler") ;$aFile = _FTP_ListToArray($Conn,2,0x00000800) ;if not @error Then ; if IsArray($aFile) Then ; for $F = 1 to $aFile[0] ; if StringRight($aFile[$F],4) = ".dat" Then ; if $okuma = StringTrimRight($aFile[$F],4) Then ; Return False ; EndIf ; EndIf ; Next ; Return True ; Else ; MsgBox(16,"Hata: ","Giriş için gerekli veri FTP'den alınamadı.") ; _exit(1) ; EndIf ;Else ; MsgBox(16,"Hata: ","Giriş için gerekli veri FTP'den alınamadı.") ; _exit(1) EndIf EndFunc * = basic script: #include <FTPEx.au3> $server = 'easyenglish.tc' $username = 'easyenglish.tc' $pass = "xxxxx" $Open = _FTP_Open('Kayit') $Conn = _FTP_Connect($Open, $server, $username, $pass) If @error Then Exit ;_FTP_DirSetCurrent($Conn,"/www/uyeler/") Local $h_Handle $aFile = _FTP_FindFileFirst($Conn, "/www/uyeler/", $h_Handle) if @error = 0 Then while @error = 0 MsgBox(0,"a",$aFile[10]) $aFile = _FTP_FindFileNext($h_Handle) WEnd MsgBox(0,"finish","finish") EndIf

I think I solved the problem.And now It is working smoothly but before that it worked sometimes.i add _FTP_DirSetCurrent to top of the _FTP_* commands.

Unfortunately, The Problem is continue.When i use func _UyeAdiDurumu($okuma) Local $aFile, $F $aFile = __FTP_ListToArray($Conn, 2, 0, 0, 1, 0) ;if not @error Then ;if IsArray($aFile) Then for $F = 1 to $aFile[0] if StringRight($aFile[$F],4) = ".dat" Then if $okuma = StringTrimRight($aFile[$F],4) Then Return False EndIf EndIf Next Return True ;Else ; MsgBox(16,"Hata!: 2","Giriş için gerekli veri FTP'den alınamadı.") ; _exit(1) ;EndIf ;Else ; MsgBox(16,"Hata!: 3"&@error&@extended,"Giriş için gerekli veri FTP'den alınamadı.") ; _exit(1) ;EndIf EndFunc this function. I take this error: "Line 11989 (File "G:\server.exe"):" Error: Subscript used with non-Array variable. Line 11989: for $F = 1 to $aFile[0]