---

Hallo!

Ich möchte ein Macro erweitern. Mit dem Macro, das ich habe, habe ich bereits 3 Punkte gewählt und diese erscheinen auf meiner Zeichnung.

Wie erweitere ich mein Macro so, dass ich diesen Punkten 3D Koordinaten und Namen in der Zeichnung zuweise (eine Führungslinie zu den Punkten habe ich vorgesehen, aber muß nicht unbedingt sein)?

Kommt das hin:

oDrwTable.Name = " Table_1"

For i = 0 To iCount - 1

oDrwTable.SetCellString i + iTabRows, 1, vFirstSymbol & i + iFirstNumber
oDrwTable.SetCellAlignment i + iTabRows, 1, CatTableMiddleCenter
Set oString = oDrwTable.GetCellObject (i + iTabRows, 1)

oDrwTable.SetCellString i + iTabRows, 2, FormatNumber (Round (cPointsX (i), 1), 1)
oDrwTable.SetCellAlignment i + iTabRows, 2, CatTableMiddleCenter
Set oString = oDrwTable.GetCellObject (i + iTabRows, 2)
oString.SetFontName 0, 0, vFont2D
oString.SetFontSize 0, 0, 3.5

oDrwTable.SetCellString i + iTabRows, 3, FormatNumber (Round (cPointsY (i), 1), 1)
oDrwTable.SetCellAlignment i + iTabRows, 3, CatTableMiddleCenter
Set oString = oDrwTable.GetCellObject (i + iTabRows, 3)
oString.SetFontName 0, 0, vFont2D
oString.SetFontSize 0, 0, 3.5

oDrwTable.SetCellString i + iTabRows, 4, FormatNumber (Round (cPointsZ (i), 1), 1)
oDrwTable.SetCellAlignment i + iTabRows, 4, CatTableMiddleCenter
Set oString = oDrwTable.GetCellObject (i + iTabRows, 4)
oString.SetFontName 0, 0, vFont2D
oString.SetFontSize 0, 0, 3.5
   
'*** Vorderansicht
If vVorderansichtName <> "" Then

Set oDrwView = oDrwViews.Item (vVorderansicht)
oDrwView.Activate

Set Fact2D = oDrwView.Factory2D

For i = 0 To iCount - 1

iXv = cPointsX (i)
iYv = cPointsZ (i)

Set dPoint = Fact2D.CreatePoint (iXv, iYv)
dPoint.Name = " Point_" & iPoints
iPoints = iPoints + 1
Set dText = oDrwView.Texts.Add (vFirstSymbol & i + iFirstNumber, iXv + 10, iYv + 20)
Set dLeader = dText.Leaders.Add (iXv, iYv)
dLeader.HeadSymbol = 20
dText.SetFontName 0, 0, vFont2D
iFontSize = 3.5
dText.SetFontSize 0, 0, iFontSize

dText.Name = "Text_" & iPoints
dLeader.Name = "Leader_" & iPoints

Next

For i = 0 To iCount - 2

iXv = cPointsX (i)
iYv = cPointsZ (i)
iXv1 = cPointsX (i + 1)
iYv1 = cPointsZ (i + 1)

Set dLine2D = Fact2D.CreateLine (iXv, iYv, iXv1, iYv1)
LineSel.Add (dLine2D)
dLine2D.Name = "Line_" & iLines
iLines = iLines + 1

Next

CATIA.ActiveWindow.ActiveViewer.Reframe

End If

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