---

Ich versuch mich mal an VB - Journals.
Ich möchte mit einem Journal bestimmte Geometrietypen auf spez. dafür vorgesehene Layer verschieben.
Bei den Datums - DatumCsys funktioniert es nicht.
hier der Auszug aus dem Code:

  For Each obj As DisplayableObject In WP.Datums
      If TypeOf obj Is DatumPlane Then
       objArray(0) = obj
      WP.Layers.MoveDisplayableObjects(10, objArray)
      End If
     If TypeOf obj Is DatumAxis Then
       objArray(0) = obj
      WP.Layers.MoveDisplayableObjects(11, objArray)
     End If
If TypeOf obj Is DatumCsys Then
        objArray(0) = obj
       WP.Layers.MoveDisplayableObjects(12, objArray)
      End If
  Next

der Typ DatumCsys funktioniert nicht
ebenso verschiebt der DatumAxis auch DatumCsys ??? Grrr
Gibts hier ne Lösung -Anregung ?

------------------
mfg
uwe.a

[Diese Nachricht wurde von uwe.a am 27. Feb. 2010 editiert.]

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

---

Hallo Uwe,

such' mal nach "Datum", da findet sich u.a. folgender Beitrag:

[URL=http://ww3.cad.de/foren/ubb/Forum442/HTML/000400.shtml#000000[/URL]

Die Sache mit den Datums ist nicht ganz einfach, da ein Datum Csys z.B. aus (Datum-) Planes und Axis besteht, die bei einer Suche u.U. doppelt auftauchen.

Gruß, Michael

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

---

danke Michael,
bin aber auch noch nicht weitergekommen. noch ne Idee?

------------------
mfg
uwe.a

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

---

fyi
so gehts:
If Left(feat.ToString(), 9) = "DatumCsys" Then

            Dim numObjs As Integer
            Dim objs() As NXOpen.Tag
            ufs.Modl.AskFeatObject(feat.Tag, numObjs, objs)
            For Each thisObj As NXOpen.Tag In objs
              ufs.Obj.SetLayer(thisObj, 138)
            Next
End If

------------------
mfg
uwe.a

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

---

Hallo Uwe,

da hast Du schneller eine Lösung gefunden, als ich Dir die nächste Idee nennen konnte. Der Vorschlag wäre, anstatt über die Collection wp.Datums über einen Cycle (ufs.Obj.cycle...) zu gehen. Aber ausfiltern geht natürlich auch.

Gruß, Michael

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

---

na ich muss nochmal was fragen - ich komm mit vb nicht klar

For Each obj As DisplayableObject In WP.bodies
     
  If  obj.IsSheetBody Then

funktioniert nicht
danke

------------------
mfg
uwe.a

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

---

Hallo Uwe,

die Methode "IsSheetBody" kann nur auf Objekte des Typs "Body" angewandt werden, nicht auf "DisplayableObject". Am einfachsten machst Du das mit

Code:

---

For Each obj As Body In WP.bodies

---

Gruß, Michael

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

---

danke Michael

------------------
mfg
uwe.a

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