Hallo,
habe ein Makro, das 2 Parameter Dichte und Masse erstellt.
Mit Dichte * smartValue(`Hauptkörper`) wird die Masse berechnet.
siehe hier:
http://ww3.cad.de/foren/ubb/Forum137/HTML/001000.shtml#000002
möchte, dass der man den Körper auswählt welcher dann bei
smartValue verwendet wird.
Dazu lese ich den Namen des Bodys mit selectelemt3 und
myname = selecten.value.name aus.
das auslesen des namens funktioniert lt. msgbox.
versuche ich jetzt smartvalue(`myname`) wird die masse nicht berechnet.
gebe ich im skript den namen des ausgewählten körpers von hand ein.
also zb. smartvalue(`Hauptkörper`)
dann wird die masse berechnet.
Warum funktionrt es nicht, wenn ich die Variable bei smartValue angebe?
'******************************
Language="VBSCRIPT"
Sub CATMain()
Set p1 = CATIA.ActiveDocument
Set part1 = p1.Part
'----------------Body auswählen
Set Koerper = Part1.Bodies
Dim iSel, iStatus, sFilter(0)
set iSel = Catia.ActiveDocument.Selection
sFilter(0) = "Body"
iStatus = iSel.SelectElement3(sFilter, "Part selektieren / ESC bei keine Auswahl", False, CATMultiSelTriggWhenSelPerf, False)
If iStatus = "Normal" Then
Else
MsgBox "Abbruch(Cancel) der Auswahl", vbOKOnly + vbCritical, " Abbruch "
Exit Sub
End If
myName = p1.Selection.Item(1).value.name
msgbox myname, 0, " BodyName"
'----------------Parameter erzeugen
Set parameters1 = Part1.Parameters
Set dimension1 = parameters1.CreateDimension("Masse.3", "MASS", 0.000000)
dimension1.Rename "userMasse"
Set realParam1 = parameters1.CreateReal("`Reelle Zahl.1`", 0.000000)
realParam1.Rename "dichte"
'-----------------Dichte eingeben mit komma nicht mit punkt
dense = inputbox("Wert mit Komma nicht mit Punkt eingeben! " ," Dichte eingeben in KG/m3")
'-------------------------------------------------------
realParam1.Value = dense
Set relations1 = part1.Relations
Set formula1 = relations1.CreateFormula("Formel.10", "", dimension1, "smartVolume(`Hauptkörper`)*10000*dichte")
part1.Update
End Sub
'****************************
Warum funktionrt es nicht, wenn ich die Variable angebe?
Viele Grüsse HaWu
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP