---

Moin zusammen,

eine kurze Frage habe ich an euch:
Wie bekomme ich eine ausgefüllte Oberfläche innerhalb von Linien per VBA eingesteuert?
Ich habe den Makro-Rekorder laufen lassen, allerdings sagt der nur, dass 4 Linien markiert wurden, den Befehl zum Erstellen der Oberfläche (begrenzt durch diese Linien) lässt dieser aber aus.

Danke schonmal für die Hilfe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Arne,

es gibt ziemlich viele Möglichkeiten Oberflächen zu erzeugen, meinst du vielleicht FeatureManager::InsertFillSurface2 (Einfügen/Oberfläche/Ausfüllen)?

Ich hab da auch kein Beispiel zu, abe reinen Tipp, wie du ggf. an die Funktionen in der API Hilfe kommst: stell dein SolidWorks auf Englisch um, schau, wie die Funktionen in den Menus oder so in englisch heißen und such danach in der API Hilfe, da sind dann sehr oft gute Treffer dabei.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Stefan,

oh, das klingt gut! Muss ich heute abend direkt mal ausprobieren, wenn ich wieder am SW-Rechner sitze.

Braucht der denn dann auch noch diese ganzen ()-Bedingungen dahinter, so wie man es von anderen Befehlen kennt? Also das in der Klammer sowas wie (true,false,0,0,schlag mich tot) steht? (Kanns leider gerade nicht genauer schreiben, da wie gesagt momentan kein SW in der Nähe ist! 

Gruß, Arne

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Arne T.:
Braucht der denn dann auch noch diese ganzen ()-Bedingungen dahinter, so wie man es von anderen Befehlen kennt? Also das in der Klammer sowas wie (true,false,0,0,schlag mich tot) steht?

---

Oh ja, das braucht es, und schon die Paramterübergabe scheint nicht so ganz trivial:

Zitat:

---

Auszug aus der API Hilfe zu InsertFillSurface2
Inserts a fill-surface feature in the model.
.NET Syntax
Visual Basic (Declaration) 
Function InsertFillSurface2( _
  ByVal Resolutions As Integer, _
  ByVal Options As Integer, _
  ByVal VPatchBoundaries As Object, _
  ByVal VCurvatureControlType As Object, _
  ByVal VFaces As Object, _
  ByVal VConstraintCurves As Object _
) As Feature

Visual Basic (Usage) Copy Code
Dim instance As IFeatureManager
Dim Resolutions As Integer
Dim Options As Integer
Dim VPatchBoundaries As Object
Dim VCurvatureControlType As Object
Dim VFaces As Object
Dim VConstraintCurves As Object
Dim value As Feature

value = instance.InsertFillSurface2(Resolutions, Options, VPatchBoundaries, VCurvatureControlType, VFaces, VConstraintCurves)

C# 
Feature InsertFillSurface2(
  int Resolutions,
  int Options,
  object VPatchBoundaries,
  object VCurvatureControlType,
  object VFaces,
  object VConstraintCurves
)

C++/CLI 
Feature^ InsertFillSurface2(
&  int Resolutions,
&  int Options,
&  Object^ VPatchBoundaries,
&  Object^ VCurvatureControlType,
&  Object^ VFaces,
&  Object^ VConstraintCurves
)

NOTE: See Differences Between Unmanaged C++ and C++/CLI Code.
Parameters
Resolutions
Controls the resolution or quality of the surface (see Remarks)

Options
Options as defined in swFeatureFillSurfaceOptions_e

VPatchBoundaries
Array of edges or sketches for the patch boundaries
VCurvatureControlType
Array of curve control methods as defined in swContactType_e
VFaces
Array of faces to use for direction
VConstraintCurves
Array of constraint curves (edges or sketches)
Return Value
Pointer to the IFeature object
Visual Basic for Applications (VBA) Syntax
See FeatureManager::InsertFillSurface2.
Remarks
You must use IModelDocExtension::SelectByID2 and the following Mark values to select edges that bound the surface to be filled:

Boundary curves = 1

Boundary with contact curvature control = 257

Boundary with tangent curvature control = 513

Constraint curves or internal curves = 4

The resolution argument can be set to 1, 2, or 3. The higher the value, the better the resolution.

Use the IBody2::Diagnose and the IDiagnoseResult APIs to get the gaps to fill.
 
See Also
IFeatureManager Interface
IFeatureManager Members
IFillSurfaceFeatureData Interface

Availability
SolidWorks 2007 FCS, Revision Number 15.0

---

Da hast du dann wohl schon was zu Knobeln, bis alle Parameter stehen, richtig angeordnet sind und was vernünftiges dabei herauskommt 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

na herzlichen Glückwunsch, ich freu mich jetzt schon auf heute abend ... 

Aber wenn man sich das genauer anschaut, dann geht es ja - weisst du ob man direkt einen Namen für die Oberfläche vergeben kann oder ist man an die automatische Namensvergabe für ein Feature (in diesem Falle die Oberfläche) gebunden?
Ich weiss, tut mir leid, immer wieder neue Fragen ... 

Danke schonmal für deine Hilfe, da bin ich auf jeden Fall wieder schlauer!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP