---

Hallo zusammen
Ich will Rohrleitungen beschriften mit dem Befehl Höhenbeschriftung.
Das Resultat ist, dass die Angabe z.B. OKK -1500 von Decke ist obwohl das Rohr Z 1500 ab Boden ist.
Beim einfügen der Bemassung kann ich obige Werte verändern, wie z.B. Achse ab Decke, Höhe Decke etc.
Aber kann das Mass auch in cm ausgegeben werden?
Wie kann ich eingefügte Bemasssungen nachträglich bearbeiten?

Danke

------------------
DADAT

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

---

Hallo VDADAT,

so wie ich das verstanden habe handelt es sich um den Eigenschaftssatz " ABeschriftungHöheObjekte". Und hier speziell um die Definition "Wert" des Eigenschaftsdatensatzes. Dies ist eine Formelbasierte Eigenschaft die nicht sichtbar geschaltet ist. Du könntest nun einfach die Formel dahingehend ändern, indem du einen Umrechnungsfaktor in die Formel einfügst.

zB.

Code:

---

[/CODE]
If UCase("[Objekttyp]") = "LUFTKANAL/-ROHR" Then
If UCase("[BerechnungVonDecke]") = "TRUE" Then
RESULT = "[Präfix] " + "[Wert_Höhe]" + " [Suffix_Decke]"
Else
RESULT = "[Präfix] " + "[Wert_Höhe]" + " [Suffix_Boden]"
End If

ElseIf UCase("[Objekttyp]") = "KABELTRASSE" Then
If UCase("[BerechnungVonDecke]") = "TRUE" Then
RESULT = "[Präfix] " + "[Wert_Höhe]" + " [Suffix_Decke]"
Else
RESULT = "[Präfix] " + "[Wert_Höhe]" + " [Suffix_Boden]"
End If

ElseIf UCase("[Objekttyp]") = "ROHR" Then
If UCase("[BerechnungVonDecke]") = "TRUE" Then
              strHoehe =  [Wert_Höhe]/100 <<<< Hier die Umrechnung
RESULT = "[Präfix] " &  strHoehe & " [Suffix_Decke]"
Else
RESULT = "[Präfix] " + "[Wert_Höhe]" + " [Suffix_Boden]"
End If

Else
RESULT = "--"
End If[CODE]

---

Hat aber den Nachteil das dies immer in cm umgerechnet wird. Die bessere Lösung wäre einen neuen Eigenschaftsdatensatz anlegst und die Formeln anpasst. Z.B kannst du die Variable "strHoehe" über eine Listendefinition ( mm; cm  ) vorwählen und diesen dann in obige Formel einbinden.

Code:

---

[/CODE]

ElseIf UCase("[Objekttyp]") = "ROHR" Then
If UCase("[BerechnungVonDecke]") = "TRUE" Then
              strHoehe =  [Wert_Höhe]/[Umrechnungsliste] <<<< Hier die Liste
RESULT = "[Präfix] " &  strHoehe & " [Suffix_Decke]"
Else
RESULT = "[Präfix] " + "[Wert_Höhe]" + " [Suffix_Boden]"
End If
[CODE]

---

Ich hoffe das ist nicht zu kompliziert.
Ein wenig VBA Kenntnisse sind hier von Vorteil.

Gruß Boehri

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

---

Hallo (V)Dadat,

wenn Du VB fit bist, bist Du mit boehris Tips perfekt versorgt, falls nicht, (wie ich  ) , geht es (zumindest für den Anfang und das Verständnis) auch erstmal fast ohne:

Wichtig aber auf jeden fall, Du mussst Dich mit den Eigenschaftsdatensätzen auseinander setzen, ohne die wirst Du mit etwas individuelleren Beschriftungswünschen nicht weiter kommen...Und Du wirst noch öfters die Erfahrung machen, daß die vom Programm mitgelieferten Beschriftungen noch etwas (aähh sagen wir optimierbar  )sind .

Als Einstieg zu dem Thema würde ich die beiden Schriften empfehlen:

http://www.autodesk.de/adsk/servlet/item?siteID=403786&id=12288293    und
http://www.autodesk.de/adsk/servlet/item?siteID=403786&id=12288293 

sowie die Hilfe zu dem Thema Eigenschaftsdatensätze im Handbuch ACA (nicht MEP), denn die Grundlagen stehen bei aca.

Das Meiste in den Formelbasierten Eigenschaften ist nämlich simples rechnen mit den Variablen des Satzes. Wenn Du Dich erst mal reingefummelt hast in das Thema, erscheint es (fast) logisch, und wenn mal ein VB Schnipsel fehlt, dann gibt es hier bestimmt Hilfe, Kollege Boehri scheint da über einen großen Wissenschatz zu verfügen.

Schönes WE wünscht
Joeycool

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