---

Hallo,

ich suche nach einer Lösung für folgendes Problem.

Ein Punkt auf einem Zeichnungsdokument soll vom Benutzer ausgewählt werden.

Das Makro soll "genau" von diesem Punkt aus bzw. an diesem Punkt eine Linie zeichnen.

Das Makro, das ich erstellt habe, zeichnet zwar eine Linie an einem vom

Benutzer ausgewählten Punkt aber leider nur "ungefähr" an dem Punkt.

(Wenn der Punkt erstellt wird ist er nach dem erstellen automatisch makiert.

Nach dem erstellen muss der Punkt jedoch nochmals neu makiert werden, damit das

Makro seinen Dienst verrichtet.)

Ich hab das Forum durchforstet, die V5Automation.chm und das Buch von Herr Ziehten

aber habe es nicht geschafft daraus eine Lösung für das Problem abzuleiten.

Hier das Makro:

Language="VBSCRIPT"

a = 10

Sub CATMain()

Set Document = CATIA.ActiveDocument

Set DrawingSheets = Document.Sheets

Set DrawingSheet = DrawingSheets.Item("Sheet.1")

Set DrawingViews = DrawingSheet.Views

Set DrawingView = DrawingViews.ActiveView

Set Factory2D = DrawingView.Factory2D

'--------------HIER BEGINNT DIE SELEKTION-----------------------------

Set oSelElem = Document.Selection.Item(1)

Dim myArray(1)

oSelElem.GetCoordinates myArray

'-------------TEILT ARRAY IN 2 KOORDINATEN------------------------------

dPosX = myArray(0)
dPosY = myArray(1)

Set oLine = Factory2D.Createline(dPosX, dPosY+a, dPosX, dPosY)

End Sub

Viele Grüsse

HaWu

[Diese Nachricht wurde von hawu am 21. Nov. 2008 editiert.]

[Diese Nachricht wurde von hawu am 21. Nov. 2008 editiert.]

[Diese Nachricht wurde von hawu am 21. Nov. 2008 editiert.]

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

---

Servus
Warum machst du nihct in deinem andern Beitrag (hier) weiter?
Da steht ja schon die Lösung wie der Punkt ausgelesen wird.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

@Bernd

Hallo,

Bei der dortigen Lösung tritt das selbe Problem auf.

Ich vermute, daß das Problem was mit der Fangzone zu tun hat.

Das heißt,

um den Punkt zu makieren reicht es, in einer Zone von vielleicht

(0,5mm)E2 um den Punkt herum zu klicken.

In der Selektion wird dann der Punkt verwendet, der innerhalb der

Fangzone angeklickt wurde, und nicht der makierten Punkt. 

Das Makro aus dem vorherigen Beitrag mit dem Kreis hat das selbe

Problem, obwohl dort nicht über "getcoordinates" selektiert wird,

sondern über "sStatus = oDrawingDocument.Indicate2D".

Gruss Harry

[Diese Nachricht wurde von hawu am 21. Nov. 2008 editiert.]

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

---

Hallo hawu,

du holst die mit GetCoordinates die Koordinaten des "ClickPoints", weil du die Methode auf ein Objekt des Typs "SelectedElement" anwendest und nicht auf das gewünschte "Point2D"-Objekt.

Dim myArray(1)
Set oSelElem = Document.Selection.Item(1)      '# SelectedElement
oSelElem.GetCoordinates myArray                  '# Klick-Punkt-Koordinaten

Set oSelElem = Document.Selection.Item(1).Value      '# Point2D (Falls ein Punkt selektiert wurde)
oSelElem.GetCoordinates myArray                            '# Koordinaten des selektierten Punktes

Gruß
CAMiCADse

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

---

hi CAMiCADse

Danke und schönes Wochenende

Viele Grüsse Harry

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