---

Soll_Ist.jpg

Hallo,

hat jemand Erfahrung mit Bemassung in CATScript?
Ich brauche dringend einen Tip.

Habe zwei Bemassungen wie folgt erstellt:

    Dim Point1 As Point2D
    Dim Point2 As Point2D
    Dim iType As catDimType
    Dim myElements1(1)
    Dim selpoints(3)
    Dim MyDim As DrawingDimension

    Set Point1 = Fact.CreatePoint(41.5,45.65)
    Set Point2 = Fact.CreatePoint(41.5,0)
    iType = catDimDistance
    myElements1(1) = Array(Point1,Point2)
    selpoints(3) = Array(0, 0, 0,0)
    Set MyDim = DrwView.Dimensions.Add(iType, myElements1(1), selpoints(3),catDimVert)
    MyDim.Name = "Dim_1"
    MyDim.ValueOrientation = catVertical

    Set Point1 = Fact.CreatePoint(-41.5,-26)
    Set Point2 = Fact.CreatePoint(-41.5,45.65)
    myElements1(1) = Array(Point1,Point2)
    selpoints(3) = Array(0, 0, 0, 0)
    Set MyDim = DrwView.Dimensions.Add(iType, myElements1(1), selpoints(3),catDimVert)
    MyDim.Name = "Dim_2"
    MyDim.ValueOrientation = catVertical

Das funktioniert soweit, nur die Darstellung ist nicht in Ordnung (siehe Anhang).
Wie kann ich es erreichen, dass die Masslinien den gewünschten Abstand haben und Die Werte auf der Masslinie stehen.
Habe schon stundenlang erfolglos probiert; bin mit meinem Latein am Ende.
Bitte um Hilfe.

Gruß
Bertel

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

---

Hallo,

soweit ich mich erinnere geht das mit CATScript und ähnlichem nicht, sondern nur in CAA.
Ich wünschte ich hätte da ne Lösung für...

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo Henry,

danke für Deine Antwort.

Aber ich gebe die Hoffnung noch nicht auf.

Wenn es möglich ist, per CATScript Bemassung zu erzeugen, dann muß es doch auch möglich sein, deren Eigenschaften per CATScript zu verändern.
Bei manchen Eigenschaften funtioniert es ja:

MyDim.ValueOrientation = catVertical  oder catHorizontal
MyDim.Name = "Mass-Name"
MyDim.ValueFrame = catFraCircle      ' Kreis um Masszahl
MyDim.DualValue = catDualBellow      ' Mass unter- und oberhalb der Masslinie
MyDim.DualValue = catDualSideBySide  ' Mass zweimal hintereinander

Leider ist in der Doku meist das Auslesen der Eigenschfat beschrieben; nicht aber die Syntax zum verändern.

o Property DimStatus( ) As CatDimAnalyse (Read Only)

  Returns or sets status of dimension.
Example:
  This example retrieves status of dimension MyDimension drawing dimension.
  oIsStatus = MyDimension.DimStatus

enum CatDimAnalyse {
  catDimOnGenItems,
  catUnUpdatableDim,
  catFakeDim,
  catDrivingDim,
  catBrokenDim,
  catTrueDim,
  catBasic
}

Hatte da schon jemand Erfolg?

Gruß
Bertel

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

---

Schade das es darauf keine Antwort gab, da mich dass auch interessieren würde

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

---

links-OK.jpg

Hallo Cohixu,

habe Deinen Beitrag zu Anlaß genommen, mich wieder mit dem Problem zu beschäftigen.
Bin nun etwas weiter.
Mit

MyDim.MoveValue -55,10,0,0

bekomme ich das linke Maß wie gewünscht hin.
Beim rechten Maß klappt das leider nicht (MyDim.MoveValue 55,20,0,0) - das bleibt unter der Maßlinie stehen.

Der Array selpoints ist mir auch noch ein Rätsel.

Hat noch wer eine Idee?

Gruß
Bertel

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

---

beide-OK.jpg

Hallo,

habs nach viel Rumprobieren endlich hinbekommen

Hier der komplette Aufruf fuer die beiden Bemassungen:

    Set Point1 = Fact.CreatePoint(41.5,45.65)
    Set Point2 = Fact.CreatePoint(41.5,0)
    iType = catDimDistance
    myElements1(1) = Array(Point1,Point2)
    selpoints(3) = Array(0,0,0,0)
    Set MyDim = View.Dimensions.Add(iType, myElements1(1), selpoints(3),catDimVert)
    MyDim.Name = "Dim_1"
    MyDim.MoveValue 55,20,0,0
    MyDim.ValueOrientation = catParallel 
    MyDim.ValueReference = catDimLine   

    Set Point1 = Fact.CreatePoint(-41.5,-26)
    Set Point2 = Fact.CreatePoint(-41.5,45.65)
    myElements1(1) = Array(Point1,Point2)
    selpoints(3) = Array(0, 0, 0, 0)
    Set MyDim = View.Dimensions.Add(iType, myElements1(1), selpoints(3),catDimVert)
    MyDim.Name = "Dim_2"
    MyDim.MoveValue -55,10,0,0
    MyDim.ValueOrientation = catParallel 
    MyDim.ValueReference = catDimLine   

Gruß
Bertel

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

---

Hey super!

Tausend dank für die Antwort.

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