Regelerkennung

Hi Leute,

ich mochte mit dem Prozessmanager ein wenig automatisieren, finde aber die passende Erkennungsregel für mein Feature nicht.

Ich möchte ein 3D-Feature bearbeiten. Den Featuretyp kann ich einstellen, jedoch weis ich bei der Elementerkennungsregel nicht was ich dort nun eintragen muß. Wenn ich das Feld leer lasse funktioniert es nicht.

Was muß ich somit nun dort eintragen damit ich erkenne das es sich um ein 3D-Feature handelt?

"IS3dfeature(Feature)"

Ich konnte auch in den Einträgen nichts passendes finden.

Vielen Dank

MFG
Marco

Nachdem sich der KBM mal wieder aufgehängt hat (mei is das Ding verbuggt, sowas hab ich in meinem Leben noch nicht erlebt) funktioniert es auch mit ISFace(Feature)

Nächstes Problem

Ich brauche die Abmaße meines Fertigteile (muß man da jetzt zwischen Solid und STL unterscheiden?)

Wie kommen ich also an die min und max Werte des Teiles ? Das dürfte etwas heftiger werden was die programmierung angeht, ich bin Neuling in VBA und muß da jetz auf die Schnelle mal eben vieles machen. Wie komme ich an die Werte ran?

Mit klappt das so nicht direkt, oder muß ich bei "Feature" noch etwas spezifisches angeben?
Ich vermute mal Esprit würde gerne wissen was nun eigegntlich mein Piece ist, oder ?


MFG

Der Beitrag wurde von mbc bearbeitet: 15.07.2010, 10:02 Uhr

' ------------------------------------------------------------------------
' Copyright © 1998-2007 DP Technology Corp.
'
' This sample code file is provided for illustration purposes. You have a
' royalty-free right to use, modify, reproduce and distribute the sample
' code files (and/or any modified versions) in any way you find useful,
' provided that you agree that DP Technology has no warranty obligations
' or liability whatsoever for any of the sample code files, the result
' from your use of them or for any modifications you may make. This notice
' must be included on any reproduced or distributed file or modified file.
' ------------------------------------------------------------------------

Option Explicit

Public Sub BoundingBoxSolidDemo()
Dim SolidObj As Esprit.Solid, BoundingObj As Esprit.SimulationSolid
On Error Resume Next ' in case Esc is pressed
Set SolidObj = document.GetAnyElement("Select Solid", espSolidModel)
On Error GoTo 0
If SolidObj Is Nothing Then Exit Sub
'
Set BoundingObj = BoundingBox3DSolid(SolidObj)
'
' With Application.OutputWindow
' .Visible = True
' Call .Text("Bounding Box Height = " & BoundingObj.Height & vbCrLf)
' Call .Text("Bounding Box Length = " & BoundingObj.Length & vbCrLf)
' Call .Text("Bounding Box Width = " & BoundingObj.Width & vbCrLf)
' End With
End Sub

Function ComPointToPoint(ComPointObj As EspritGeometry.ComPoint) As Esprit.Point
With ComPointObj
Set ComPointToPoint = document.GetPoint(.X, .Y, .Z)
End With
End Function

Function BoundingBox3DSolid(ByRef SolidObj As Esprit.Solid) As Esprit.SimulationSolid
Dim Body As EspritSolids.SolidBody
Set Body = SolidObj.SolidBody
'
' initialize the matrix and set the origin and vectors to match the active plane
Dim PlaneMatrix As EspritGeometry.ComMatrix, BoxCorner(1) As EspritGeometry.ComPoint
Set PlaneMatrix = New EspritGeometry.ComMatrix
With document.ActivePlane
Call PlaneMatrix.P.SetXyz(.X, .Y, .Z)
Call PlaneMatrix.u.SetXyz(.Ux, .Uy, .Uz)
Call PlaneMatrix.v.SetXyz(.Vx, .Vy, .Vz)
Call PlaneMatrix.W.SetXyz(.Wx, .Wy, .Wz)
End With
'
' note that the box corners must be initialized before calling the Box method
Set BoxCorner(0) = New EspritGeometry.ComPoint
Set BoxCorner(1) = New EspritGeometry.ComPoint
Call Body.Box(PlaneMatrix, BoxCorner(0), BoxCorner(1))
'
' add a stock block to the built in simulation based on those corner points
With document.Simulation
Set BoundingBox3DSolid = .AddBlock("Solid Box Stock", espSimSolidTypeStock, _
ComPointToPoint(BoxCorner(0)), ComPointToPoint(BoxCorner(1)))
End With
BoundingBox3DSolid.Color = vbBlue
End Function

Das ist ja Super, da hab ich gleich ein tolles Beispiel zum erlernen ...

Ich danke DIr recht herzlich, jetzt kann ich die Schritte nachvollziehen, so ein Beispiel hilft ungemein beim lernen, die Beschreibung der API ist zar auch nicht schlecht, aber manche Zusammenhänge versteht man auch da nicht immer.

Wenn die Kurse mal nicht so kostspielig wären ... kleine Unternehmer können sich die heute noch kaum leisten ...

Danke vielmals für das Beispiel !!!!

Hier schlägt leider der Compiler mit "Benutzerdefiniterter Typ nicht definiert" fehl:



Ich habe wohl keine "ComPoints" als Typen weil ich auch keine "EspritGeometry"-Base habe ...

Ich habe einmal ein bißchen recherchiert, in 2009 gabs die noch. Muß man die ggf. noch extra dazu laden, oder wird die vom VB-Editor automatisch eingebunden?

Der Beitrag wurde von mbc bearbeitet: 21.07.2010, 15:40 Uhr

Wenn Du im VBA-Editor bist aktiviere unter Extras Verweise alles was mit Esprit zu tun hat!

Yupp, das wars, jetzt läufts und funktioniert super !
Jetzt noch den Code verstehen lernen und dann kann ich loslegen.

Vielen Dank !

Der Beitrag wurde von mbc bearbeitet: 22.07.2010, 09:47 Uhr

Wäre es möglich noch einen Rahmen um das Solid zu zeichen ?

hallo profis....

ich stehe noch ganz am anfang von VBA-Regeln...

ich suche noch ein wenig hilfe zum thema KM-Senkungen automatisieren..

ich bin soweit das ich die bohrungen und die senkungen automatisiert hab

bohren mit ikz werkzeug:

GetToolByID(GetToolByDiameter(156,Round(Feature.Diameter,1),False,,"IKZ%",,"aaa_5-Achs"))

das ansenken dazu:

GetToolByID(GetToolByDiameter(156,Round(Feature.Diameter+4,1),False,,"Anbohrer %",,"aaa_5-Achs"))

nu will ich die obere senkung für den kopf mit einem werkzeug spiralförmig aufräsen,
das wkz sollte "kleiner oder gleich" der bohrung sein !
es sollte ein wkz mit der benennung "HPC" sein !
und es sollte aus der kkz datenbank "aaa_5-Achs" kommen !

wer kann helfen ?

lieben dank im vorraus

cnc-olaf
(dernochganzschönviellernenmuss)

wo stehen eigentlich die ID ´s für die werkzeuge...ich suche die id für ein end mill ???

erledigt....

hab es so gelöst

GetToolByID(GetToolByDiameter(155,(Feature.Diameter-1%),False,,"HPC%",,"aaa_5-Achs"))