Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  CreateEvoluateText

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  CreateEvoluateText (732 mal gelesen)
catia5beginervbs
Mitglied



Sehen Sie sich das Profil von catia5beginervbs an!   Senden Sie eine Private Message an catia5beginervbs  Schreiben Sie einen Gästebucheintrag für catia5beginervbs

Beiträge: 22
Registriert: 02.09.2015

Windows 7, Excel 2010,Catia 5.21

erstellt am: 01. Apr. 2019 11:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Moinsen

ich habe einen punkt auf 10000,50000,0 da soll ein text mit Pfeil dran
benutze ich den Macro Recorder tauscht dieser x mit y und setz y auf 0 ( was ist das mit dem #)

Set annotation1 = annotationFactory1.CreateEvoluateText(userSurface1, 50014.142136, 10014.142136, 0#, True)

die userSurface1 wir als Referenz zu dem punkt gemacht und da liegt der Pfeil, bei den Koordinaten habe ich nun gedacht das da der text steht, also +15 oder so, nein der text ist wirklich kilometerweit vom punkt entfernt.

Wenn ich versuche das im script zu bringen, dann ist der Text kilometerweit vom punkt entfernt.

Function text_with_leader_in_curve_point_new(elec_body_name As String, _
                                                                                  elec_circle As String, _
                                                                                  elec_plane As String, _
                                                                                  elec_point As String, _
                                                                                  elec_text As String)


Set CATIA = GetObject(, "CATIA.Application")

Dim partDocument1 As partDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim annotationSets1 As AnnotationSets
Set annotationSets1 = part1.AnnotationSets

Dim annotationSet1 As AnnotationSet
Set annotationSet1 = annotationSets1.Add("ISO_3D")

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As hybridBody
'Set hybridBody1 = hybridBodies1.Item("ElecRouteBody.1")
Set hybridBody1 = hybridBodies1.Item(elec_body_name)

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

'Dim hybridShapePointOnCurve1 As HybridShapePointOnCurve
Set hybridShapePointOnCurve1 = hybridShapes1.Item(elec_circle)

'Set my_point = part1.FindObjectByName(elec_point)

Dim Coordinates(2)
Set myRef = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)
Set myMes_1 = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench").GetMeasurable(myRef)
myMes_1.GetPoint Coordinates

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromGeometry(hybridShapePointOnCurve1)

'Set reference1 = part1.CreateReferenceFromBRepName("WireREdge Wire Brp GSM" & _
elec_circle & _
";(Brp GSM" & _
elec_plane & _
")));None Limits1 );Limits2 ));Cf11 ));WithTemporaryBody;WithoutBuildError;WithLastFeatureSupport;MFBRepVersion_CXR15)", hybridShapeCircleCtrRad1)


Dim userSurfaces1 As UserSurfaces
Set userSurfaces1 = part1.UserSurfaces

Dim userSurface1 As UserSurface
Set userSurface1 = userSurfaces1.Generate(reference1)

Dim bSTR1 As String
bSTR1 = part1.Name

Dim annotationFactory1 As AnnotationFactory
Set annotationFactory1 = annotationSet1.AnnotationFactory

Dim wert_X As Double
Dim wert_Y As Double
Dim wert_Z As Double
wert_X = Trim(Cells(4, 7))
wert_Y = Trim(Cells(4, 8))
wert_Z = Trim(Cells(4, 9))

'Dim annotation1 As Annotation
Set annotation1 = annotationFactory1.CreateEvoluateText(userSurface1, Coordinates(0) + wert_X, _
                                                                                                                              Coordinates(1) + wert_Y, _
                                                                                                                              Coordinates(2) + wert_Z, _
                                                                                                                              True)
'Set annotation1 = annotationFactory1.CreateEvoluateText(userSurface1, -0, 0, 0, True)

annotation1.Text.Text = elec_text
annotation1.Name = "Measure of Route " & annotation1.Name

part1.Update

End Function

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 01. Apr. 2019 13:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für catia5beginervbs 10 Unities + Antwort hilfreich

Servus

Das # dafür das es sich bei der Zahl um einen Double handelt.
Die Position des Textes sollte über annotation1.SetXY 100, 100 gesetzt werden sollen.
Wie sich der Ursprung und die Ausrichtung der View ergibt weiß ich nicht.

Gruß
Bernd

PS: Bitte Code in entsprechenden Tags posten.

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

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz