Hallo iedereen,
kzit terug met een vraagje i.v.m. mijn Stage;
Hoe kan ik afmetingen plaatsen in VBA?
hehe, hopelijk kan iemand mij helpen,
alvast bedankt,
yaryd
Wat bedoel je met "afmetingen" is dat maatvoering in de tekening?
En zo "ja", geef eens een voorbeeld van hoe het er uit komt te zien in de tekening en geef eerst eens een opzet met de stappen die je moet doen in VBA.
B.V.:
Citeer
- Klik punt 1 aan.
- Klik volgende punt aan.
- Plaats maatvoering.
Ik zou zeggen vul eerst dit eens aan, daarna komen we wel met de VBA-code.
Hallo,
sry voor de onduidelijke omschrijving van hiervoor.
het zou inderdaad handig zijn mochten we elk punt handmating kunnen kiezen, zo zit je niet met een ellenlange code om dit allemaal te programeren. nadat het ene punt gekozen is, gaan we over naar het volgende en afbreken met "Escape".
Als bijlage zit er een tekening met een voorbeeld hoe het er zou moeten uitzien. Alle afmetingen buiten de tekening staan op een vaste maat en binnen de Tekening ook.
Mvg,
Yaryd
Heb je al code voor deze actie?
Nee :oops:
grtz
aanmaken layers en dergelijke is geen probleem. het is hoofdzakelijk het onderstaande die mij parten speelt;
Citeerhet zou inderdaad handig zijn mochten we elk punt handmating kunnen kiezen, zo zit je niet met een ellenlange code om dit allemaal te programeren. nadat het ene punt gekozen is, gaan we over naar het volgende en afbreken met "Escape"
grtz
moi
Probleem is opgelost. kzal enkel de de hoofdmaten plaatsen en wil men daarna nog afmetingen bijplaatsen kan men dit dan handmatig doen.
'Variabele declareren
Dim Afmetingen As AcadLine
Dim startpunt(1 To 3) As Double
Dim eindpunt(1 To 3) As Double
' Dim Maatpos1(0 To 2) As Double
' Dim Maatpos2(0 To 2) As Double
Dim Mtps(1 To 3) As Double
Dim Maat As AcadDimAligned
With Invulvenster
'Plaatsen Afmetingen Horizontale Doorsnede
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item("Afmetingen")
startpunt(1) = 0: eindpunt(1) = Val(.txtTBK)
startpunt(2) = 0: eindpunt(2) = 0
Mtps(1) = -100: Mtps(2) = -100
Set Maat = ThisDrawing.ModelSpace.AddDimAligned(startpunt, eindpunt, Mtps)
Maat.Update
End With
End Sub
Toch bedankt om mij te proberen helpen
yaryd