Afmetingen plaatsen

[yaryd]

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

[EddyBeerke]

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.:

• 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.

[yaryd]

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

[EddyBeerke]

Heb je al code voor deze actie?

[yaryd]

Nee 

grtz

aanmaken layers en dergelijke is geen probleem. het is hoofdzakelijk het onderstaande die mij parten speelt;

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"

grtz

moi

[yaryd]

Probleem is opgelost. kzal enkel de de hoofdmaten plaatsen en wil men daarna nog afmetingen bijplaatsen kan men dit dan handmatig doen.

Code Selecteer Uitklappen

'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