---

Hallo,

ich möchte Zahlen auf einer Zeichnung in einer bestimmten Ansicht einbringen, als Text. Dies klappt auch soweit. Für die Positionierung des Textes muss ich aber auf Parameter im 3-D Modell zugreifen, weiß aber nicht wie ich das hinbekommen kann oder ist das gar nicht möglich? Das erste Script ist ein CATScript und in dem zweiten sollen die Zahlen in die vorher selektierte Ansicht eingefügt werden.

Sub CATMain()
...
writeNumbers
End Sub

Sub writeNumbers()
...
End Sub

Vielen Dank.

Gruß Timo

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

---

Servus
Um was für Parameter handelt es sich?
Falls diese von der Ausrichtung der Ansicht abhängig sind kann es etwas komplexer werden (zB Koordinaten bestimmen, aus Ausrichtungsvektoren den Projektionspunkt bestimmen, ....)
Was hast du genau vor? Wie weit bis du bis jetzt gekommen?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Guten Morgen Bernd,

es handelt sich dabei um Parameter des Typs Length und diese befinden sich in dem 3D Modell. Die Parameter geben die Abstände von den Teilen an, die ich vervielfältige (Pattern). Mit den Zahlen möchte ich auf der Zeichnung die vervielfältigen Teile durchnummerieren von 1...n. Die Zahlen sollen dabei immer mittig auf den jeweiligen Teilen liegen. Alle Parameter, die ich hierfür benötige sind im 3D MOdell und im CATScript vorhanden. Ich weiß nur nicht, wie ich von dem einen Sub die Parameter in dem anderen Sub verwenden kann? Oder gibt es da noch eine andere Lösung?

Sub CATMain()    'CATScript
...

End Sub

'+++++++++++++++++++++++++++++++++++
Function UserSelection()
'+++++++++++++++++++++++++++++++++++
'Der Anwender wird aufgefordert eine Ansicht auszuwählen.
Dim choice(0)
choice(0) = "DrawingView"
Set DrwSelection = DrwDoc.Selection
DrwSelection.Clear
Dim E As CATBSTR
E = DrwSelection.SelectElement2(choice, "View auswählen.", False)
If E = "Normal" Then
UserSelection = True
Set DrwSelectedView = DrwSelection.Item(1).Value
Else
UserSelection = False
End If
'-----------------------------------
End Function
'-----------------------------------

'+++++++++++++++++++++++++++++++++++
Sub writeNumbers()
'+++++++++++++++++++++++++++++++++++
DrwSelection.Clear
DrwSelection.Add DrwSelectedView
DrwSelectedView.Activate
DrwSelectedView.LockStatus = False
For i = 1 To d
    Set DrwText = DrwSelectedView.Texts.Add(CStr(i), 0, 0)
    DrwText.SetFontSize 0, 0, 5
Next

'-----------------------------------
End Sub
'-----------------------------------

Vielen Dank.

Gruß Timo

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

---

Servus
Entweder die Routinen7Funktionen mit Übergabeparameter ausstatten (siehe VB(A)-Doku oder hier) oder mit globalen Parametern/Objekten arbeiten.
(1. Lösung ist sauberer)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo Bernd,

vielen Dank, funktioniert super!

Gruß Timo

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