CADsite forum

hallo

hopelijk kan mij iemand helpen op deze vraag. Welke code heb je nodig om een tekst te centreren in AutoCad Met vba. ik werk met vba in Excel maar ik denk niet dat dit veel verschil uit maakt

groeten

hallo allemaal

Ik werk via vba in Excel met AutoCad. Ik kan AutoCad openen via vba maar ik kan maar geen nieuw blad openen in dat bestand. ik heb dus meerdere pagina's nodig.

Zou iemand mij kunnen helpen hoe ik een ander blad open krijg.

groeten

yf

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

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

groeten

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

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

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??

Hallo allemaal

Ik heb een vraagje

Voor mijn eindwerk moet ik van een kabellijst een kabelplan maken. Mijn rechthoek stelt mijn kast voor en ik kan tellen hoeveel kabels ik nodig heb. Nu is mijn probleem dat mijn  rechthoek variabel gemaalt moet worden. Dus als 10 Kabels van mijn kast vertrekken moet ik mijn rechthoek dus ook 10 cm lang worden. Ik weet niet hoe hieraan moet beginnen.

Hopelijk kan iemand mij helpen want ik zit vast

Alvast bedankt

ik werk met office 2003

dus dat gaat anders werken.

Ik moet voor mijn eindwerk een programma schrijven.
Ik moet met vba in autocad alles van excel kunnen inlezen.
Maar ik kan mijn waardes wat ik heb in excel niet inlezen dus ik krijg zo zelfd geen lijn getekend bij autocad

hopend op een positieve reactie zodat ik verder kan

Hoe moet ik via vba een rechthoek tekenen.