---

moin,moin

Ich möchte folgenden CODE aus der V5 Automation.chm so abändern
das statt der Standardbemassung eine Kettenbemassung erzeugt wird.
Dort finde ich zwar den Hinweis auf den Property CumulateMode,
kann ihn aber nicht umsetzen.
Kann jemand helfen

Dim MyView As DrawingView
Set MyView = MySheet.Views.ActiveView
Dim Fact2D  As Factory2D
Set Fact2D = MyView.Factory2D
Dim Line1 As Line2D
Dim Line2 As Line2D
Set Line1 = Fact2D.CreateLine(50, 10, 150, 10)
Set Line2 = Fact2D.CreateLine(50, 10, 120, 100)
Dim Ellipse1 As Ellipse2D
Set Ellipse1 = Fact2D.CreateEllipse(-40, 100, 120, 180,120,90,0, 3)
Dim Point1 As Point2D
Dim Point2 As Point2D
Set Point1 = Fact2D.CreatePoint(-10,190)
Set Point2 = Fact2D.CreatePoint(-120,90)
Dim iType As catDimType
iType = catDimAngle
Dim myElements1(1)
myElements1(1) = Array(Line1,Line2)
Dim selpoints(3)
selpoints(3) = Array(150, 10, 120, 100)
Dim MyDimension1 As DrawingDimension
Set MyDimension1 = MyView.Dimensions.Add(iType, myElements1(1), selpoints(3),catDimAuto)
iType = catDimLengthCurvilinear
Dim myElements2(2)
myElements2(2) = Array(Point1,Point2,Ellipse1)
selpoints(3) = Array(0, 0, 0, 0)
Dim MyDimension2 As DrawingDimension
Set MyDimension2 = MyView.Dimensions.Add(iType, myElements2(1), selpoints(3),catDimOffset)

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

---

Hallo macroversager,
ich habe gerade kein V5 verfügbar, aber es sollte so funzen:

Dim MyDimension2 As DrawingDimension
Set MyDimension2.CumulateMode = true
Set MyDimension2 = MyView.Dimensions....

Probiers mal aus

Gruß V5-Maxe

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

---

hi,

hab ich probiert, funzt leider nicht.
... Object erforderlich MyDimension2

Sorum...
Dim MyDimension2
Set MyDimension2 = MyView.Dimensions.Add(iType,myElements1(1),selpoints(3),catDimAuto)
Set MyDimension2.CumulateMode = true

hat Cati zwar kein Fehler aber dann ist die Standard Bemassung ja schon da und keine Kettenbemassung.

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

---

Hallo nochmal

...ich komme immer noch nicht weiter Koordinatenbemassung (bzw. Kettenbemassung; Cumulate Dimensions) zu erstellen. Erzeugt wird nur Standard Bemassung.

Dies zB erstellt 2 Linien und vermasst sie zueinander. Will aber eben Kettenbemassung. Weiss jemand Rat? Bekomm das nicht hin!

Sub CATMain()

Dim oView
Set oView = CATIA.ActiveDocument.Sheets.Item("Blatt .1")
Dim MyView As DrawingView
Set MyView = oView.Views.ActiveView
Dim Fact2D As Factory2D
Set Fact2D = MyView.Factory2D
Dim Line1 As Line2D
Set Line1 = Fact2D.CreateLine(30, 50, 80, 50)
Dim Line2 As Line2D
Set Line2 = Fact2D.CreateLine(30, 100, 80, 100)
Dim iType As catDimType

iType = catDimDistance

Dim myElements(1)
Dim selpoints(3)
myElements(1) = Array(Line1,Line2)

selpoints(3) = Array(0, 0, 0, 0)
Dim MyDimension As DrawingDimension
Set MyDimension = MyView.Dimensions.Add(iType, myElements(1), selpoints(3), catDimVert)

End Sub

Rudi

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