Wie bekomme ich bei _sweep das Fenster weg?

Begonnen von Martindude, 03 Aug 2006, 17:04

Vorheriges Thema - Nächstes Thema

Martindude

Hallo,
ich habe gerade ein Script geschrieben, bei dem ich den Command befehl _Sweep1 verwende. Es funktioniert auch alles ziemlich gut.

Jetzt das Problem
Der Befehl befindet sich in einer Schleife. Nach dem der Befehl ausgeführt wurde wird immer ein Fenster geöffnet, in dem der Rechner mich fragt, ob ich die Fläche vereinfachen will. Da ich das nicht möchte klicke ich immer nur auf ok.

Dieser Befehl wird ca. 1000 mal hintereinander durchgeführt. Deshalb wäre es super, wenn der Befehl sich automatisch wegklicken würde (oder garnicht erst erscheint)

Kann ich dieses Fenster irgendwie loswerden, oder ein ergebnis automatisch mitteilen? Wenn ja, wie geht das?

MFG
Martin

Hier noch der Quelltext, damit ihr wisst wovon ich spreche.

'***********************
Sub OrientOnCurve

   Dim arrCSBasePt, arrSelectedCurvesForCS, arrPtTypNewBasePt
   Dim arrSelectedCrvStartPt

   Dim strCrossSection, strCopiedCrossSection
   Dim strCommand
   
   Dim lngPtTypNewBasePt

   Dim i

   strCrossSection = Rhino.getObject("Pick cross section profile")
   arrCSBasePt = Rhino.getPoint("Pick base point of cross section profile")
   arrSelectedCurvesForCS = Rhino.getObjects ("Pick objects you want to apply the cross section")

   lngPtTypNewBasePt = Rhino.GetInteger ("orient on: [1]StartPoint [2]Endpoint",1,1,2)
   
   Rhino.UnselectAllObjects
   For i=0 to Ubound(arrSelectedCurvesForCS)

      strCopiedCrossSection = Rhino.CopyObject (strCrossSection)

      If lngPtTypNewBasePt = 1 Then
         arrSelectedCrvStartPt = Rhino.CurveStartPoint(arrSelectedCurvesForCS(i))
      ElseIf lngPtTypNewBasePt = 2 Then
         arrSelectedCrvStartPt = Rhino.CurveEndPoint(arrSelectedCurvesForCS(i))
      End If

      strCommand = ""
      strCommand = strCommand&"_selid "&strCopiedCrossSection&" _Enter"
      strCommand = strCommand&" "&arrCSBasePt(0)&","&arrCSBasePt(1)&","&arrCSBasePt(2)
      strCommand = strCommand&" "&"_selid "&arrSelectedCurvesForCS(i)
      strCommand = strCommand&" "&arrSelectedCrvStartPt(0)&","&arrSelectedCrvStartPt(1)&","&arrSelectedCrvStartPt(2)
      strCommand = "_OrientPerpToCrv "&strCommand
      'msgbox strCommand
      Rhino.Command(strCommand),false

      strCommand = ""
        strCommand = strCommand&"_selid "&arrSelectedCurvesForCS(i)
      strCommand = strCommand&" "&"_selid "&strCopiedCrossSection&" _Enter"
      strCommand = "_Sweep1 "&strCommand
      Rhino.Command(strCommand)       
      End If
   Next
End Sub

Michael Meyer

Hallo Martin,

Du kannst die Befehle mit einem Bindestrich starte, dann wird kein Optionsfenster geöffnet, also z.B. "-_Sweep1".

Hilft Dir das?

Gruß,

Michael

Martindude

Ja!!! Cool.

Das sind die kleinen Dinge, die einen Anfänger in Sachen Scripen fast zur Verzweiflung bringen. Das muss man eben wissen. Ich habe echt in tausenden Tutorials versucht eine Antwort darauf zu finden. Aber das steht so auch nirgends drin.

Vielen Dank erstmal für die Antwort. Hat mir echt weitergeholfen.

Gibt es eigentlich ein (online) Handbuch, in dem diese Kleinigkeiten drin stehen?

Nochmal Danke

Martin

Michael Meyer

Hallo Martin,

es gibt für Skript-Programmierung eine Hilfe im Hilfe-Menü Hilfe->Plug-Ins->Skript-Programmierung

Gruß,

Michael