maken van een variabele rechthoek naargelang het aantal punten

[Yfke]

Hallo allemaal

ik heb een vraagje.

ik moet een variabele rechthoek maken.

Het probleem is dat ik al mijn verschillende punten heb gezocht naargelang dat aantal van punten moet mijn rechthoek groter worden en dat moet de hele tijd aangepast kunnen worden. Zou mij hier iemand kunnen helpen.

Alvast bedankt

 

[Wigi]

Nog eens een vraagje voor het eindwerk?

En ben je bereid om hier meer tijd zelf in te steken?

 

[Yfke]

ja mr ik weet niet hoe ik eraan moet beginnen. als ge mij de gedachtengang geeft. zoek ik de rest wel zelf uit

 

[Wigi]

Geef dan uitleg.

Ben je in een grafiek bezig?

 

[Yfke]

nee de bedoeling is dat ik van een kabellijst een kabelplan maak. Dus ik moet weten hoeveel kabels er uit een kast vertrekken. Een rechthoek wordt voorgesteld als een kast. Dus wanneer ik geteld hoeveel kabels er uit die kast vertrekken moet ik van hieruit mijn rechthoek aanpassen. Dus ik neem Bv. 1 cm tussen elke lijn. als ik dan 10 lijnen heb moet ik een rechthoek van 10 cm hebben. dit is hier de bedoeling ervan. Er wordt dus eigenlijk gewoon gewerkt met een Database

 

[Wigi]

Als je het aantal kabels kent, waarom is het dan niet gewoon:

=1*aantalkabels

de 1 komt van 1 cm.

Wigi

 

[Yfke]

Mr ik moet dit in Autocad hebben. Dit is was ik heb voor mijn rechthoek te maken.
Moet ik deze dan aanpassen of heb ik dit dan niet nodig misschien. Ik dacht dat ik dan hiermee moest werken

Sub Rechthoek(x1, y1, x2, y2)
Dim Punt1(0 To 2) As Double
Dim Punt2(0 To 2) As Double
Dim Punt3(0 To 2) As Double
Dim Punt4(0 To 2) As Double
Dim RecthoekObject As Object

Punt1(0) = x1
Punt1(1) = y1
Punt2(0) = x1
Punt2(1) = y2
Punt3(0) = x2
Punt3(1) = y1
Punt4(0) = x2
Punt4(1) = y2

Set RechthoekObject = acadMod.AddLine(Punt1, Punt2)
Set RechthoekObject = acadMod.AddLine(Punt1, Punt3)
Set RechthoekObject = acadMod.AddLine(Punt2, Punt4)
Set RechthoekObject = acadMod.AddLine(Punt3, Punt4)

RechthoekObject.Update
End Sub

 

[Wigi]

Zelf nog nooit mee gewerkt. Hopelijk voor jou iemand anders wel.