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??
Volgens mij zoek je dit:
textObj.Rotation = ThisDrawing.Utility.GetAngle(, "Rotatie : ")
Groetjes EddyBeerke
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
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
Dit gebeurd ook via VBA in Excel. Ik kan mijn tekst in AutoCad zetten maar ik krijg ze niet omgedraaid
groeten
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#
Citaat van: willyver op wo 09 05 2007, 10:25:36
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