Beiträge von chrisatack

[autoit]

;===============================================================================
;
; Function Name: _INetGetSourcePost()
; Description: Gets the source from an URL without writing a temp file and you can send a Post.
; Parameter(s): $sURL = The URL of the site.
; $sPost = The Post to send
; Requirement(s): -
; Return Value(s): On Success - Return a array with $aReturn[0] = Backheader and $aReturn[1] = Sourcecode
; On Failure - 0 and sets @ERROR
; @error = 1: Post or URL is nothing
; @error = 2: Error by RegularExpression
; @error = 3: $sHost or $sHttp1 is nothing
; @error = 4: Can not get IP of Host
; @error = 5: Can not connect to host
; @error = 6: Nothing can be send
; @error = 7: Connection abborted while receiving
; Author(s): GtaSpider
;
;===============================================================================

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _INetGetSourcePost($sURL, $sPost)
Local $iSocket, $sHeader, $sRecv, $iIP, $sHost, $aRegExp, $sHttp1,$iErr,$iSend,$aReturn[2]

If $sURL = '' Or $sPost = '' Then Return SetError(1, 0, 0)

If StringLeft($sURL, 7) <> 'http://' And StringLeft($sURL, <> 'https://' Then $sURL = "http://" & $sURL
If StringRight($sURL, 1) <> "/" Then $sURL &= "/"

$aRegExp = StringRegExp($sURL, "http?://(.*?)/", 3)
If @error Then Return SetError(2, 0, 0)

$sHost = $aRegExp[0]
If $sHost = '' Then Return SetError(3, 0, 0)

$sHttp1 = StringTrimLeft($sURL,StringInStr($sURL,"/",-1,3)-1)
If $sHttp1 = '' Then Return SetError(3, 0, 0)


$sHeader = "POST " & $sHttp1 & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: AutoIt v3" & @CRLF & _
"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost


TCPStartup() ;If not already done
$iIP = TCPNameToIP($sHost)
If $iIP = '' Or StringInStr($iIP, ".") = 0 Then Return SetError(4, 0, 0)
$iSocket = TCPConnect($iIP, 80)
If @error Or $iSocket < 0 Then Return SetError(5, 0, 0)

$iSend = TCPSend($iSocket, $sHeader)
If @error Or $iSend < 1 Then Return SetError(6, 0, 0)


While 1
$sRecv = TCPRecv($iSocket, 1024)
$iErr = @error
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($iSocket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
If $iErr Then Return SetError(7,0,0)
WEnd

$aReturn[0] = StringLeft($sRecv,StringInStr($sRecv,@CRLF&@CRLF)-1)
$aReturn[1] = StringTrimLeft($sRecv,StringLen($aReturn[0])+4)
Return $aReturn
EndFunc ;==>_INetGetSourcePost

[/autoit]

[autoit]

#include <array.au3>
#include <string.au3>
;~ #include 'Infiniti_Startup.au3'

[/autoit] [autoit][/autoit] [autoit]

Local $_Infiniti_ProgrammName = "Infiniti 2010"
Local $_Infiniti_Programmversion = "0.0.0.1"
Local $_Infiniti_SketchUp_Verzeichnis = "C:\Programme\Google\Google SketchUp 7\SketchUp.exe"
Local $_Infiniti_SketchUp_Main_WindowName = "SketchUp"
Local $_Infiniti_SketchUp_Main_ConsoleName = "Ruby-Konsole"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_SketchUp_Startup()

[/autoit] [autoit][/autoit] [autoit]

Global $AbsoluterNullPunkt_x = 0
Global $AbsoluterNullPunkt_y = 0
Global $AbsoluterNullPunkt_z = 0
Global $RW_Einsprung = 10
Global $RW_Nuttiefe = 6
Global $RW_Mat_dicke = 8
Global $Materialdicke = 19
Global $Totale_Breite = 1200
Global $Totale_Hoehe = 2200
Global $Totale_Tiefe = 400
Global $Sockelhoehe = 60

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_Infiniti_Zeichne_Korpusseite_L($Totale_Hoehe,$Totale_Tiefe,$Materialdicke)
_Infiniti_Zeichne_Korpusseite_R($Totale_Hoehe,$Totale_Tiefe,$Materialdicke)
_Infiniti_Zeichne_OberBoden($Totale_Hoehe,$Totale_Tiefe,$Materialdicke)
_Infiniti_Zeichne_UnterBoden($Totale_Hoehe,$Totale_Tiefe,$Materialdicke)
_Infiniti_Zeichne_RW($Totale_Hoehe,$Totale_Tiefe,$Materialdicke)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Infiniti_Zeichne_RW($_Hoehe,$_Tiefe,$_Mat_Dicke)
Return _SketchUp_Draw_Object($AbsoluterNullPunkt_x + $_Mat_Dicke - $RW_Nuttiefe _; Startpunkt Punkt 1 (Drehrichtung mit Uhrzeigersinn)
,$AbsoluterNullPunkt_y + $_Tiefe - $RW_Einsprung - $RW_Mat_dicke _
,$AbsoluterNullPunkt_z + $_Hoehe - $Materialdicke + $RW_Nuttiefe _
,$AbsoluterNullPunkt_x + $_Mat_Dicke - $RW_Nuttiefe _; Punkt 2
,$AbsoluterNullPunkt_y + $_Tiefe - $RW_Einsprung _
,$AbsoluterNullPunkt_z + $_Hoehe - $_Mat_Dicke + $RW_Nuttiefe _
,$AbsoluterNullPunkt_x + $_Mat_Dicke - $RW_Nuttiefe _;Punkt 3
,$AbsoluterNullPunkt_y + $_Tiefe - $RW_Einsprung _
,$AbsoluterNullPunkt_z + $Sockelhoehe + $_Mat_Dicke - $RW_Nuttiefe _
,$AbsoluterNullPunkt_x + $_Mat_Dicke - $RW_Nuttiefe _;Punkt 4
,$AbsoluterNullPunkt_y + $_Tiefe - $RW_Einsprung - $RW_Mat_dicke _
,$AbsoluterNullPunkt_z + $Sockelhoehe + $_Mat_Dicke - $RW_Nuttiefe _
,-($Totale_Breite - (2*$_Mat_Dicke)+(2*$RW_Nuttiefe))); Pushpull (Extrusion)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Infiniti_Zeichne_UnterBoden($_Hoehe,$_Tiefe,$_Mat_Dicke)
Return _SketchUp_Draw_Object($AbsoluterNullPunkt_x + $_Mat_Dicke _; Startpunkt Punkt 1 (Drehrichtung mit Uhrzeigersinn)
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z + $Sockelhoehe + $_Mat_Dicke _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _;Punkt 2
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z + $Sockelhoehe + $_Mat_Dicke _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _;Punkt 3
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z + + $Sockelhoehe _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _; Punkt 4
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z + $Sockelhoehe _
,($Totale_Breite - (2*$_Mat_Dicke))); Pushpull (Extrusion)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Infiniti_Zeichne_OberBoden($_Hoehe,$_Tiefe,$_Mat_Dicke)
Return _SketchUp_Draw_Object($AbsoluterNullPunkt_x + $_Mat_Dicke _; Startpunkt Punkt 1 (Drehrichtung mit Uhrzeigersinn)
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z + $_Hoehe _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _;Punkt 2
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z + $_Hoehe _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _;Punkt 3
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z + $_Hoehe - $_Mat_Dicke _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _; Punkt 4
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z + $_Hoehe - $_Mat_Dicke _
,($Totale_Breite - (2*$_Mat_Dicke))); Pushpull (Extrusion)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Infiniti_Zeichne_Korpusseite_L($_Hoehe,$_Tiefe,$_Mat_Dicke)
Return _SketchUp_Draw_Object($AbsoluterNullPunkt_x _; Startpunkt Punkt 1 (Drehrichtung mit Uhrzeigersinn)
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _;Punkt 2
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z _
,$AbsoluterNullPunkt_x + $_Mat_Dicke _;Punkt 3
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z _
,$AbsoluterNullPunkt_x _; Punkt 4
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z _
,-$_Hoehe); Pushpull (Extrusion)
EndFunc

Func _Infiniti_Zeichne_Korpusseite_R($_Hoehe,$_Tiefe,$_Mat_Dicke)
Return _SketchUp_Draw_Object($AbsoluterNullPunkt_x + $Totale_Breite _; Startpunkt Punkt 1 (Drehrichtung mit Uhrzeigersinn)
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z _
,$AbsoluterNullPunkt_x + $Totale_Breite - $_Mat_Dicke _;Punkt 2
,$AbsoluterNullPunkt_y _
,$AbsoluterNullPunkt_z _
,$AbsoluterNullPunkt_x + $Totale_Breite - $_Mat_Dicke _;Punkt 3
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z _
,$AbsoluterNullPunkt_x + $Totale_Breite _; Punkt 4
,$AbsoluterNullPunkt_y + $_Tiefe _
,$AbsoluterNullPunkt_z _
,-$_Hoehe); Pushpull (Extrusion)
EndFunc
;~ $hDrawnOnject_Unterboden = _SketchUp_Draw_Object ()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_SketchUp_Camera_ZoomAll()

[/autoit] [autoit][/autoit] [autoit]

;~ MsgBox(0,"", "HandleSeite1: "&$hDrawnOnject_Seite1&@CRLF _
;~ &"HandleSeite2: "&$hDrawnOnject_Seite2)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ _SketchUp_Camera_SetNewView(7000,-7000,7000,1500,1000,0)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ point4 = Geom::Point3d.new 0,0,0
;~ point5 = Geom::Point3d.new 100,100,100
;~ # returns a view
;~ status = view.drawing_color="red"
;~ status = view.draw_lines point4, point5

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Camera_ZoomAll()
_SketchUp_Console_SendAction('viewZoomExtents:')
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Console_SendAction($_action)
_SketchUp_Console_Send('Sketchup.send_action "'&$_action&'"')
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Camera_SetNewView($eyex,$eyey,$eyez,$targetx,$targety,$targetz)
_SketchUp_Console_Send("eye = ["&$eyex&","&$eyey&","&$eyez&"]")
_SketchUp_Console_Send("target = ["&$targetx&","&$targety&","&$targetz&"]")
_SketchUp_Console_Send("up = [0,0,1]")
_SketchUp_Console_Send("my_camera = Sketchup::Camera.new eye, target, up")
_SketchUp_Console_Send("view = Sketchup.active_model.active_view")
_SketchUp_Console_Send("view.camera = my_camera")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Draw_Object($p1x,$p1y,$p1z,$p2x,$p2y,$p2z,$p3x,$p3y,$p3z,$p4x,$p4y,$p4z,$pushpull)
_SketchUp_Console_Send("pt1 = ["&$p1x&", "&$p1y&", "&$p1z&"]")
_SketchUp_Console_Send("pt2 = ["&$p2x&", "&$p2y&", "&$p2z&"]")
_SketchUp_Console_Send("pt3 = ["&$p3x&", "&$p3y&", "&$p3z&"]")
_SketchUp_Console_Send("pt4 = ["&$p4x&", "&$p4y&", "&$p4z&"]")
_SketchUp_Console_Send("face = entities.add_face pt1, pt2, pt3, pt4")
$_return = _SketchUp_Console_Read()
$_now = _StringBetween ($_return,'','>')
If IsArray($_now) Then
_SketchUp_Console_Send("face.pushpull "&$pushpull)
_SketchUp_Console_Send('face.material = m1');##################################
Return $_now[0]
Else
SetError(1)
Return 0
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Console_Send($send)
If WinExists($_Infiniti_SketchUp_Main_ConsoleName) Then
ControlSetText ($_Infiniti_SketchUp_Main_ConsoleName,'','[CLASS:Edit; INSTANCE:1]',$send&@CRLF)
ControlSend ($_Infiniti_SketchUp_Main_ConsoleName,'','[CLASS:Edit; INSTANCE:1]' ,'{enter}')
Else
SetError (1)
Return 0
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Console_Read()
$_readout = StringSplit(ControlGetText($_Infiniti_SketchUp_Main_ConsoleName,'','[CLASS:Edit; INSTANCE:2]'),@CR)
;~ _ArrayDisplay($_readout)
Return $_readout[$_readout[0]-1]
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Console_CheckIfReady()
$_Infiniti_Zeitmessung = TimerInit()
While 1
_SketchUp_Console_Send('# Infiniti Startup')
$_readout = StringSplit(ControlGetText($_Infiniti_SketchUp_Main_ConsoleName,'','[CLASS:Edit; INSTANCE:2]'),@CR)
If StringInStr($_readout[$_readout[0]-1],'nil') Then
Return 1
Else
Sleep(50)
EndIf
If TimerDiff($_Infiniti_Zeitmessung) > 1000 Then
MsgBox ( 16,$_Infiniti_ProgrammName,"SketchUp Konsole nicht bereit!!")
SetError(1)
Return 0
EndIf
WEnd
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SketchUp_Startup()
If Not WinExists($_Infiniti_SketchUp_Main_WindowName) Then
$_Infiniti_SketchUp_PID = Run ($_Infiniti_SketchUp_Verzeichnis)
WinWait ($_Infiniti_SketchUp_Main_WindowName)
WinWait ($_Infiniti_SketchUp_Main_ConsoleName,'',3)
;~ WinSetState ($_Infiniti_SketchUp_Main_ConsoleName,'', @SW_HIDE)
_SketchUp_Console_CheckIfReady()
_SketchUp_Console_Send("model = Sketchup.active_model")
_SketchUp_Console_Send("entities = model.entities")
_SketchUp_Console_Send("materials = model.materials")


_SketchUp_Console_Send('m1 = materials.add "Korpusseite"')

;~ layers = model.layers
;~ layers.add "My Layer"
;~ activelayer = model.active_layer = layers[1]
;~ layer = model.active_layer
EndIf
If Not WinExists($_Infiniti_SketchUp_Main_ConsoleName) Then
MsgBox ( 16,$_Infiniti_ProgrammName,"SketchUp Konsole nicht gefunden!!")
SetError(1)
Return 0
EndIf
EndFunc

[/autoit]