Pro/Engineer VB API und Perl-Script (gelöst) (Allgemeines zu Perl)

[thread]16865[/thread]

Pro/Engineer VB API und Perl-Script [gelöst]

Tags: perl5 Matlab ProE Pro Engineer API ActiveX Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+13 replies

Zulu

2011-10-29 13:09

User since
2011-10-29
8 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

auf dieser Seite gibt es einige Beispiele für die Steuerung des CAD-Programmes Pro/Engineer durch den "ProE API" mit VB, VBA, über ein Javascript und Perl.

Ich möchte als unerfahrener Programierer mit MATLAB eine Verbindung über die ActiveX Schnittstelle zu ProE zu herstellen und als Beispiel die Masse eines 3D-Bauteils auslesen. Mit MATLAB kann ich eine Verbindung zu ProE herstellen, aber ich bekomme die Fehlermeldung "no apropriate method, property or field session for class Interface.IUnknown". Daher der Versuch über perl zu gehen, zu der es in der oben genannten Seite einen Beispiel gibt (lieber wäre mir die Lösung in MATLAB). Zu dem Thema habe ich auf der MATLAB Newsletter Seite bereits einen Thread fortgesetzt, ohne eine Antwort erhalten zu haben. Auf CAD.de habe ich das Problem ebenfalls gepostet.

In dem API Users Guide von ProE gibt es ein VBA-Beispiel für das Auslesen der Masse eines Bautiels mit einem Excel Script (siehe Seite 178, Kapitel "Mass Properties"). Hier der Auszug:

Code: (dl )

Code:Imports pfcls
Public Class pfcSolidExamples
Public Sub printMassProperties(ByRef session As IpfcBaseSession)
Dim model As IpfcModel
Dim solid As IpfcSolid
Dim solidProperties As IpfcMassProperty
Dim gravityCentre As New CpfcPoint3D
Try
'======================================================================
'Get the current solid
'======================================================================
model = session.CurrentModel
If model Is Nothing Then
Throw New Exception("Model not present")
End If
If (Not model.Type = EpfcModelType.EpfcMDL_PART) And
_(Not model.Type = EpfcModelType.EpfcMDL_ASSEMBLY) Then
Throw New Exception("Model is not a solid")
End If
solid = CType(model, IpfcSolid)
'======================================================================
'Get the solid properties. Optional argument in this method is the name
'of the coordinate system to use. If null, uses default
'======================================================================
solidProperties = solid.GetMassProperty(Nothing)
gravityCentre = solidProperties.GravityCenter
MsgBox("The solid mass is: " + solidProperties.Mass.ToString + Chr(13).ToString + _"The solid volume is: " +
solidProperties.Volume.ToString + Chr(13).ToString + _"The Centre of Gravity is at: " + Chr(13).ToString + _"X : " + 
gravityCentre.Item(0).ToString + Chr(13).ToString + _"Y : " + gravityCentre.Item(1).ToString +
Chr(13).ToString + _"Z : " + gravityCentre.Item(2).ToString +
Chr(13).ToString)
Catch ex As Exception
MsgBox(ex.Message.ToString + Chr(13) + ex.StackTrace.ToString)
Exit Sub
End Try
End Sub
End Class

Prinzipiell funktionert der Aufruf von ProE aus Perl aus, aber ich kann in dem Excel Beispiel folgende Zeilen mangels Verständnis für Perl und das VB-Skript nicht nach Perl übersetzen:

solid = CType(model, IpfcSolid)
solidProperties = solid.GetMassProperty(Nothing)

Kann mir jemand erklären, wie die beiden Zeilen in Perl programmiert werden müssen?

Mein Kode sieht bisher so aus:

Code (perl): (dl )

$asynconn = Win32::OLE->new("pfcls.pfcAsyncConnection");
$conn = $asynconn->Connect( "", "", ".", 5 );
#$session = $conn->Session;
#$mdlName = $session->CurrentModel->FileName;
$solidProperties = $session->CurrentModel->GetMassProperty(Nothing);
$Mass = $solidProperties->Mass;
#print "mdlName: $mdlName", "\n";
print "Mass: $Mass", "\n";

Die Antwort ist:
Can't call method "GetMassProperty" on an undefined value at Line 5.

Danke und Grüße
Zulu
Last edited: 2011-10-30 20:35:44 +0100 (CET)

+12 replies

suresh

2011-10-29 19:14

User since
2010-10-12
109 Artikel
BenutzerIn
[default_avatar]

Du übergibst doch auf Zeile zwei deine Objektreferenz an $conn. Machst dann auf Zeile fünf mit $session weiter, die du aber auf Zeile drei auskommentiert hast. In dem Fall wäre §session einfach undefined und die Referenz, auf die du versuchst zuzugreifen existiert zumindest in dem Beispielcode nicht.

Grüße

+11 replies

Zulu

2011-10-29 21:45

User since
2011-10-29
8 Artikel
BenutzerIn
[default_avatar]

Ja, Du hast Recht. Aber daran alleine leigt es nicht:

Der Kode...

Code (perl): (dl )

use Win32::OLE;

$asynconn = Win32::OLE->new("pfcls.pfcAsyncConnection");
$conn = $asynconn->Connect( "", "", ".", 5 );
$session = $conn->Session;
$mdlName = $session->CurrentModel->FileName;
$solidProperties = $session->CurrentModel->GetMassProperty(Nothing);
$Mass = $solidProperties->Mass;
print "solidProperties: $solidProperties", "\n";
print "mdlName: $mdlName", "\n";
print "Mass: $Mass", "\n";

$conn->Disconnect(2);

...liefert:

Can't call method "Mass" on an undefined value at test.pl line 8

Perl scheint die Zeile 7 zu ignorieren. Ich nehme an, weil sie einen Fehler enthält.

Wenn ich Zeile 7 auskommentiere, läuft der Skript durch, aber ich bekomme nur den Namen des Bauteils "prt0001.prt". Die anderen Variablen sind leer:

solidProperties:
mdlName: prt0001.prt
Mass:

Last edited: 2011-10-29 21:47:00 +0200 (CEST)

+10 replies

Zulu

2011-10-29 22:28

User since
2011-10-29
8 Artikel
BenutzerIn
[default_avatar]

Ich habe den Kode analog zum VBA Beispiel erweitert:

Code (perl): (dl )

#use warnings;
use Win32::OLE;

$asynconn = Win32::OLE->new("pfcls.pfcAsyncConnection");
$conn = $asynconn->Connect( "", "", ".", 5 );
$session = $conn->Session;
$mdlName = $session->CurrentModel->FileName;
$model = $session->CurrentModel;

#VBA code:   solid = CType(model, IpfcSolid)
$solid = IpfcSolid $model; # type casting ???
#VBA code:   solidProperties = solid.GetMassProperty(Nothing)
$solidProperties = $solid->$GetMassProperty();
$Mass = $solidProperties->Mass;

print "model: $model", "\n";
print "solid: $solid", "\n";
print "solidProperties: $solidProperties", "\n";
print "mdlName: $mdlName", "\n";
print "Mass: $Mass", "\n";x

$conn->Disconnect(2);

Das (erste) Problem ist die Übersetzung des type-casting mit CType() aus dem Excel Skript ins perl.

Last edited: 2011-10-30 07:27:00 +0100 (CET)

+2 replies
suresh

2011-10-30 18:11
User since
2010-10-12
109 Artikel
BenutzerIn
Casting ist nicht nötig in Perl. Es gibt genau einen Variablentyp um einen einzelnen Wert abzulegen und das sind Skalare. Ausserdem kann ein Skalarer Wert auch eine Referenz auf eine Datenstruktur sein, so wie es bei dir der Fall zu sein scheint. In deinem Fall würde ich die Zeile 11 weglassen und nach Zeile acht mal ein
Code (perl): (dl )

1 2

use Data:Dumper; print Dumper($model);
einfügen.

Was zeigt es dir an?

Grüße
Last edited: 2011-10-30 18:33:08 +0100 (CET)
- Zulu
  
  2011-10-30 20:26
  
  User since
  2011-10-29
  8 Artikel
  BenutzerIn
  
  Er sagt : "Out of memory!"
  Im Taskmanager steigt dabei die Speicherbelegung kurzzeitig auf 2GB. Der Rechner hat 4GB und das Betriebssystem ist XP 64bit.
  
  Wenn ich den mittleren Abschnitt komplett auskommentiere bekomme ich:
  
  model: Win32::OLE=HASH(0x1ced734)
  solid:
  solidProperties:
  mdlName: prt0001.prt
  Mass:
  Last edited: 2011-10-30 20:33:20 +0100 (CET)
+7 replies

GUIfreund

2011-10-31 17:52

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

2011-10-29T20:28:13 Zulu

Ich habe den Kode analog zum VBA Beispiel erweitert:

Code (perl): (dl )

#use warnings;
use Win32::OLE;

$asynconn = Win32::OLE->new("pfcls.pfcAsyncConnection");
$conn = $asynconn->Connect( "", "", ".", 5 );
$session = $conn->Session;
$mdlName = $session->CurrentModel->FileName;
$model = $session->CurrentModel;

#VBA code:   solid = CType(model, IpfcSolid)
$solid = IpfcSolid $model; # type casting ???
#VBA code:   solidProperties = solid.GetMassProperty(Nothing)
$solidProperties = $solid->$GetMassProperty();
$Mass = $solidProperties->Mass;

print "model: $model", "\n";
print "solid: $solid", "\n";
print "solidProperties: $solidProperties", "\n";
print "mdlName: $mdlName", "\n";
print "Mass: $Mass", "\n";x

$conn->Disconnect(2);

Zu Zeile 1: Aktiviere diese Zeile unbedingt wieder. Und setze noch "use strict;" in die Zeile davor. Und falls du die Fehlermeldungen von Perl nicht verstehst, auch noch "use diagnostics;". Je früher du auf Fehler hingewiesen wirst um so besser (inklusive Programmabbruch). Es hat keinen Sinn, mit falschen Werten weiter zu rechnen.

Als Konsequenz dieser Änderungen musst du jeder Perl-Variablen vor dem ersten Gebrauch "my " voranstellen. Das entspricht dem "Dim " in VBA. Wenn du willst, kannst du diese Deklarationen ebenso wie in VBA en bloc am Anfang machen.

Zu Zeile 8: Im VBA-Kode stehen da noch Fehlerprüfungen:

Code: (dl )

If model Is Nothing Then
Throw New Exception("Model not present")
End If
If (Not model.Type = EpfcModelType.EpfcMDL_PART) And
_(Not model.Type = EpfcModelType.EpfcMDL_ASSEMBLY) Then
Throw New Exception("Model is not a solid")
End If

Versuche, möglichst viel davon in den Perlkode herüberzuretten, etwa so:

Code (perl): (dl )

[/c]
if (!defined $model) {   # vielleicht auch "if (! $model) {" 
    die "Model not present";
}
# Und dann versuchsweise:
print 'model.Type ', $model->Type, "\n";
print 'EpfcModelType.EpfcMDL_PART ', EpfcModelType->EpfcMDL_PART, "\n";
print 'EpfcModelType.EpfcMDL_ASSEMBLY ', EpfcModelType->EpfcMDL_ASSEMBLY, "\n";

Zu Zeile 10-14: Wie suresh schon schrieb, benötigt man in Perl kein Type-Casting. Bei Objekten kennt Perl einen anderen Mechanismus: Vererbung. Wenn du Glück hast, kommst du damit weiter. Versuche es mit folgender Änderung:

Code (perl): (dl )

#VBA code:   solid = CType(model, IpfcSolid)
$solid = $model; # nur um weniger ändern zu müssen
#VBA code:   solidProperties = solid.GetMassProperty(Nothing)
$solidProperties = $solid->GetMassProperty();

Beachte dass das $ vor GetMassProperty weg muss. Das ist einer der Fehler, die dir nach der Änderung von Zeile 1 nicht mehr durchrutschen.

Gruß
GUIfreund

+6 replies

suresh

2011-10-31 17:58

User since
2010-10-12
109 Artikel
BenutzerIn
[default_avatar]

Quote
Beachte dass das $ vor GetMassProperty weg muss. Das ist einer der Fehler, die dir nach der Änderung von Zeile 1 nicht mehr durchrutschen.

Gutes Auge GUIFreund :) Den Fehler habe ich selbt auch übersehen.

+5 replies

Zulu

2011-10-31 19:52

User since
2011-10-29
8 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

use strict;
use diagnostics;
use warnings;
use Win32::OLE;

my $asynconn = Win32::OLE->new("pfcls.pfcAsyncConnection");
my $conn = $asynconn->Connect( "", "", ".", 5 );
my $session = $conn->Session;
my $mdlName = $session->CurrentModel->FileName;
my $model = $session->CurrentModel;

##VBA code:   solid = CType(model, IpfcSolid)
my $solid = $model; 
##VBA code:   solidProperties = solid.GetMassProperty(Nothing)
my $solidProperties = $solid->GetMassProperty('');

use Data::Dumper;
print Dumper($solidProperties);
my $Mass = $solidProperties->Mass;

print 'model.Type ', $model->Type, "\n";
print "solidProperties: $solidProperties", "\n";
print "mdlName: $mdlName", "\n";
print "Mass: $Mass", "\n";x

$conn->Disconnect(2);

Nach der Aktivierung der Fehlerdiagnosen erhielt ich eine Fehlermeldung, und zwar dass die Anzahl der Parameter von GetMassProperty() unpassend wäre. Durch Ausprobieren hat sich der Aufruf mit GetMassProperty('') bewährt. Der Kode oben erzeugt diese Ausgabe:

Code: (dl )

Win32::OLE(0.1709) error 0x8002000e: "Unzulõssige Parameteranzahl"
    in METHOD/PROPERTYGET "Item" at E:/Perl/lib/Data/Dumper.pm line 190
Win32::OLE(0.1709) error 0x8002000e: "Unzulõssige Parameteranzahl"
    in METHOD/PROPERTYGET "Item" at E:/Perl/lib/Data/Dumper.pm line 190
Win32::OLE(0.1709) error 0x8002000e: "Unzulõssige Parameteranzahl"
    in METHOD/PROPERTYGET "Item" at E:/Perl/lib/Data/Dumper.pm line 190
Win32::OLE(0.1709) error 0x8002000e: "Unzulõssige Parameteranzahl"
    in METHOD/PROPERTYGET "Item" at E:/Perl/lib/Data/Dumper.pm line 190
Win32::OLE(0.1709) error 0x8002000e: "Unzulõssige Parameteranzahl"
    in METHOD/PROPERTYGET "Item" at E:/Perl/lib/Data/Dumper.pm line 190
Win32::OLE(0.1709) error 0x8002000e: "Unzulõssige Parameteranzahl"
    in METHOD/PROPERTYGET "Item" at E:/Perl/lib/Data/Dumper.pm line 190
$VAR1 = bless( {
                 'Volume' => '4840878.56642907',
                 'SurfaceArea' => '243951.813242451',
                 'Density' => '1',
                 'Mass' => '4840878.56642907',
                 'GravityCenter' => bless( {
                                             'Item' => undef
                                           }, 'Win32::OLE' ),
                 'CoordSysInertia' => bless( {
                                               'Item' => undef
                                             }, 'Win32::OLE' ),
                 'CoordSysInertiaTensor' => bless( {
                                                     'Item' => undef
                                                   }, 'Win32::OLE' ),
                 'CenterGravityInertiaTensor' => bless( {
                                                          'Item' => undef
                                                        }, 'Win32::OLE' ),
                 'PrincipalMoments' => bless( {
                                                'Item' => undef
                                              }, 'Win32::OLE' ),
                 'PrincipalAxes' => bless( {
                                             'Item' => undef
                                           }, 'Win32::OLE' )
               }, 'Win32::OLE' );
model.Type 1
solidProperties: Win32::OLE=HASH(0x2020a74)
mdlName: prt0001.prt
Mass: 4840878.56642907

Die diversen Fehlerprüfungen in dem VBA Beispiel sind für mich nicht wichtig. Ich wollte mit diesem Kode nur testen, ob und wie die Schnittstelle mit perl funktioniert. Die eigentliche "Aufgabe" besteht in dem Ändern von Modellparametern und eine anschließende Kollisionsprüfung zwischen den Bauteilen.

Ich bin erst mal sehr froh, dass es mit perl so gut klappt und möchte mich bei Euch für eure Hilfe herzlich bedanken.

Grüße
Zulu

Last edited: 2011-10-31 19:54:27 +0100 (CET)

+4 replies

Zulu

2011-11-01 13:02

User since
2011-10-29
8 Artikel
BenutzerIn
[default_avatar]

Folgende Zeile liefen in Visual Basic den "item" der Abmessung mit dem Namen "durchmesser1":
item = CType(model, IpfcModelItemOwner).GetItemByName(EpfcModelItemType.EpfcITEM_DIMENSION, "durchmesser1")

Diese Zeile weist dem "item" einem einen neuen Wert zu, der aber kein double sondern ein "CMpfcModelItem" sein muss:
CType(item, IpfcBaseParameter).Value = ((New CMpfcModelItem).CreateDoubleParamValue(new_value))

Die Frage ist nun wie "((New CMpfcModelItem).CreateDoubleParamValue(new_value))" in Perl aussehen muss. Ich habe bisher folgendes getestet:

Code (perl): (dl )

my $new_value = 110;
##VBA code: item = CType(model, IpfcModelItemOwner).GetItemByName(EpfcModelItemType.EpfcITEM_DIMENSION, "durchmesser1")
my $item = $model->GetItemByName(10,$ParamName);

##VBA code: CType(item, IpfcBaseParameter).Value = ((New CMpfcModelItem).CreateDoubleParamValue(new_value))
##PERL GEHT NICHT: my $my_CMpfcModelItem = Win32::OLE->new("pfcls.CMpfcModelItem"); # FelherM.: "Ung³ltige Klassenzeichenfolge
##PERL GEHT NICHT: my $my_CMpfcModelItem = Win32::OLE->new("CMpfcModelItem"); # FelherM.: "Ung³ltige Klassenzeichenfolge
##PERL GEHT NICHT: $item->Value = $model->CMpfcModelItem->CreateDoubleParamValue($new_value); #FelherM.: "Mitglied nicht gefunden"
##PERL GEHT NICHT: $item->Value = $model->CreateDoubleParamValue($new_value);  #FelherM.: "Mitglied nicht gefunden"
##PERL GEHT NICHT: $item->Value = $session->CMpfcModelItem->CreateDoubleParamValue($new_value); #FelherM.: "Mitglied nicht gefunden"
##PERL GEHT NICHT: $item->Value = $session->CreateDoubleParamValue($new_value); #FelherM.: "Mitglied nicht gefunden"
$item->Value = ...???

Last edited: 2011-11-01 15:17:08 +0100 (CET)

+3 replies
suresh

2011-11-01 17:14

User since
2010-10-12
109 Artikel
BenutzerIn

Du solltst dir die Doku zu deiner API ansehen um zu verstehen auf welche Objekte du wie zugreifen bzw welche Parameter du übergeben musst.
- +2 replies
- Zulu
  
  2011-11-01 19:11
  
  User since
  2011-10-29
  8 Artikel
  BenutzerIn
  
  Wenn ich es richtig verstanden habe, dann wird in VB mit "New CMpfcModelItem" eine neue Objektinstanz erzeugt.
  Die "CMpfcModelItem" Klasse kennt VB, weil
  - durch den Befehl in der ersten Zeile "Imports pfcls" die Typen definert werden und
  - weil ich in den VB.Net Projekteinstellungen den Verweis auf die COM Library Interop.pfcls.dll gesetzt habe.
  
  Wenn ich versuche mit "use pfcls" das Gleiche in perl zu erreichen, dann bekomme ich den Fehler "Can't locate pfcls.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .)". Was ich gerne wissen würde ist, wie in perl
  - die Syntax für das Erzeugen einer Objektinstanz aussieht und
  - wie der Verweis auf die COM Library Interop.pfcls.dll gesetzt werden kann.
  
  Last edited: 2011-11-01 19:26:59 +0100 (CET)
  - Zulu
    
    2011-11-03 18:39
    User since
    2011-10-29
    8 Artikel
    BenutzerIn
    
    Zum Abschluss:
    
    Das Problem war, dass man bei dem Aufruf Win32::OLE->new("pfcls.MpfcModelItem"); den ersten Buchstaben von der vollständigen Bezeichnung CMpfcModelItem weglassen musste (siehe Zeile 22). Darauf muss man aber erst mal kommen.
    
    Hier ein Code, der ein Maß von einem Bauteil verändert und die Masse vor und nach der Änderung ausgibt:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
    
    use strict; #use diagnostics; use warnings; use Win32::OLE; use Win32::OLE::Const; my $asynconn = Win32::OLE->new("pfcls.pfcAsyncConnection"); my $EpfcModelItemType = Win32::OLE::Const->Load($asynconn); my $conn = $asynconn->Connect( "", "", ".", 5 ); my $session = $conn->Session; my $model = $session->CurrentModel; my $solid = $model; my $desired_parameter= $ARGV[0]; # zB 'd0' my $desired_value = $ARGV[1]; # zB 100.0 my $empty; my $old_mass = $solid->GetMassProperty('')->Mass; my $item = $model->GetParam($desired_parameter); my $old_value = $item->Value->Doublevalue; my $my_CMpfcModelItem = Win32::OLE->new("pfcls.MpfcModelItem"); my $my_value = $my_CMpfcModelItem->CreateDoubleParamValue($desired_value); $item->SetScaledValue($my_value,$empty); my $new_value = $item->Value->Doublevalue; $session->RunMacro("~ Command `ProCmdRegenPart`;"); my $new_mass = $solid->GetMassProperty('')->Mass; print 'old_value: ', $old_value, "\n"; print 'old_mass: ', $old_mass, "\n"; print 'new_value: ', $new_value, "\n"; print 'new_mass: ', $new_mass, "\n"; $conn->Disconnect(2);
    
    Danke nochmal für die Hilfe
    
    Zulu

View all threads created 2011-10-29 13:09.