tekst roteren

[Yf]

hallo

Kort vraagje

Hoe kan ik via VBA mijn tekst in Autocad Roteren. Ik kan mijn hoogte instellen maar mijn tekst kan ik niet roteren. Dit is toch mogelijk onder VBA??

[EddyBeerke]

Volgens mij zoek je dit:


textObj.Rotation = ThisDrawing.Utility.GetAngle(, "Rotatie : ")

Groetjes EddyBeerke

[Yf]

ik krijg het hiermee niet geroteerd. Ik moet dus altijd een van boven naar onder schrijven maar ik kand niet instellen.
Dit is mijn progromma voor tekst toe te voegen. weer jij dan waar ik uw bestand moet invoegen.voor dit goed te doen werken??

Ik heb dit echt dringend nodig want ik kan niet verder. Ben er echt allang op aant zoeken

groeten

Code Selecteer Uitklappen

Sub Tekst(TxtRegel, x, y, h)
  Dim invoegPnt(0 To 2) As Double
  Dim tekstObject As Object
  invoegPnt(0) = x
  invoegPnt(1) = y
  invoegPnt(2) = 0
  Set tekstObject = acadMod.AddText(TxtRegel, invoegPnt, h)
  Set textObj.Rotation = ThisDrawing.Utility.GetAngle(, "Rotatie :90 ")
  tekstObject.Update
End Sub

[Yf]

Dit gebeurd ook via VBA in Excel. Ik kan mijn tekst in AutoCad zetten maar ik krijg ze niet omgedraaid

groeten

yf

[willyver]

Gebruik je graden?
Als dit zo is moet je eerst je graden omzetten en wel op deze manier:
new_rotatie = rotatie * (4 * Atn(1)) / 180#

[Yf]

Gebruik je graden?
Als dit zo is moet je eerst je graden omzetten en wel op deze manier:
new_rotatie = rotatie * (4 * Atn(1)) / 180#

dank u wel
probleem is ondertussen opgelost
groeten