---

Hallöchen zusammen,

gibt es irgendeine möglichkeit in IV5 in einer .idw revisionswolken zu zeichnen. hat jemand ein tool das das möglich macht? jede revisionswolke als skizziertes symbol einzufügen macht wenig sinn meineserachtens.

bin dankbar für jeden tipp

seid gegrüßt

wolfgang

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

---

Hallo Wohngemeinschaftsküstenschiff,
erst mal wilkommen im "lautesten" IV-Forum.
Ob sinnvoll oder nicht ist beim IV nicht immer erste Priorität. Manchmal mußt Du froh sein wenn's irgendwie geht, leider. Hast Du übrigens wirklich noch den 5.0er oder "schon" den 5.3er? Wenn ja welche SPs sind drauf?

------------------
Der gute Geist

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

---

Hallo Nr.1112!
Welcome to pleasureland  .

Skizzierte Symbole sind noch das eleganteste Werkzeug, weil Du da gleich Abfragen für Kommentare mit reinhängen kannst.
Alternativ eine Skizze an die Ansicht hängen und die Wolke mit Spline selber zeichnen.

Die Revisionsfunktion ab IV6 hat kein Wolke, sondern Marken zum Anhängen.

------------------
lg 
Tom
             
mcds Datensystem GmbH

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

---

Hallo!

in IV5 kannst du das nur mit einem skizzierten Symbol machen. Prob wahrscheinlich die konstante Größe.
In IV6 hast du die Möglichkeit diese skizzierten Symbole nach dem Einfügen zu skalieren da wäre dann das GrößenProblem weg.

Alternative wäre was in VBA zu Programmieren das eine Rev.Cloud zeichnet.

Hier ein Bsp. aus der Hilfe (allerdings au IV6) wie man in einer IDW per VBA skizziert.

Private Sub CreateDrawingSketchInView()
    ' Set a reference to the active document.  This assumes it
    ' is a drawing document.
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument

    ' Set a reference to the first drawing view on the active sheet.  This
    ' assumes the active sheet contains at least one drawing view.
    Dim oDrawView As DrawingView
    Set oDrawView = oDoc.ActiveSheet.DrawingViews.Item(1)
   
    ' Create the new drawing sketch.
    Dim oSketch As DrawingSketch
    Set oSketch = oDrawView.Sketches.Add
   
    ' Set a reference to the transient geometry object.
    Dim oTG As TransientGeometry
    Set oTG = ThisApplication.TransientGeometry

    ' Open the sketch for edit.
    oSketch.Edit

    ' Draw two lines in the sketch.
    Call oSketch.SketchLines.AddByTwoPoints(oTG.CreatePoint2d(0, 0), oTG.CreatePoint2d(3, 3))
    Call oSketch.SketchLines.AddByTwoPoints(oTG.CreatePoint2d(0, 3), oTG.CreatePoint2d(3, 0))

    ' Exit from editing the sketch.
    oSketch.ExitEdit
End Sub

mit etwas VBA Knowhow müsste aus den 2 Linien auch was mit ein paar Bögen zu machen sein :-)

------------------
Grüsse
Jürgen

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

---

Guten Morgen zusammen,

erst mal vielen Dank für eure Unterstützung ob moralisch, mit Rat und Tat oder als Expertenlösung...

ja in der tat ich habe noch den IV 5 mit mit sp2. freu mich immer wieder wenn ich der alten Dame noch was neues abringen kann...

Habe mich jetzt entschieden diese Revisionclouds in bestimmten festgelegten Größen abzuspeichern und mit Abfragen zu füllen. Das Ergebnis ist ausreichend aber bei weitem nicht befriedigend.

Meine VBA-Kenntnisse beschränken sich auf das wissen das es da was gibt womit man da was machen könnte... aber nix genaues weiß ich da auch nicht...

in diesem sinne

fröhliches Schwitzen mit Hoch Michaela

Grüsse Wolfgang

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