omtrekken optellen

[silverster]

Weet iemand ofdat het mogelijk is om gesloten polylijnen of hatches bij elkaar op te tellen zodat ik een totale omtrek krijg van de verschillende omtrekken?

alvast bedankt

[silverster]

Heeft dan niemand een oplossing voor deze uitdaging?

[EddyBeerke]

Hier is ie in VBA:

Code Selecteer Uitklappen


Option Explicit
Dim ssetObj As AcadSelectionSet

Code Selecteer Uitklappen

Private Sub acSelOS()

  On Error GoTo DelSet

SetSets:
  Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    ssetObj.SelectOnScreen
 
Exit Sub
DelSet:
  ThisDrawing.SelectionSets.Item("SSET").Delete
GoTo SetSets
End Sub

Code Selecteer Uitklappen


Sub TotOppvlPoly()
Dim Obj As AcadObject
Dim I, ii
Dim Opp As Double
  acSelOS
  I = 0
  ii = 0
  For Each Obj In ssetObj

    If Obj.ObjectName = "AcDbPolyline" Then
      Opp = Opp + Obj.Area
      I = I + 1
    Else
      ii = ii + 1
    End If
  Next
  MsgBox "Totaal van " & I & " polylijnen = " & Opp & Chr(13) & _
         "Aantal andere objecten = " & ii
 
End Sub

[Reimer]

Terwijl EddyBeerke aan het typen was maakte ik het volgende bericht:

Als ik het goed begrijp wil je dus de opgetelde lengte van de polylijnen weten? (de som van de omtrekken)
Hiervoor bestaan verschillende lisproutines. Als je op dit forum zoekt op LENGTES dan vindt je wel wat. Of kijk even naar dit onderwerp: http://www.cadsite.be/smf/index.php/topic,1741.msg9143.html#msg9143

Reimer

[EddyBeerke]

Tja...
Soms ook leuk om eens een VBA-tje te spammen!

[silverster]

Terwijl EddyBeerke aan het typen was maakte ik het volgende bericht:

Als ik het goed begrijp wil je dus de opgetelde lengte van de polylijnen weten? (de som van de omtrekken)
Hiervoor bestaan verschillende lisproutines. Als je op dit forum zoekt op LENGTES dan vindt je wel wat. Of kijk even naar dit onderwerp: http://www.cadsite.be/smf/index.php/topic,1741.msg9143.html#msg9143

Reimer

sorry ik heb de vraag verkeerd gesteld ik wilde graag de oppervlaktes van de polylijnen bij elkaar optellen.

de lisp van lengtes had ik al en die telt inderdaad alle lengtes op dus de omtrek.

[EddyBeerke]

sorry ik heb de vraag verkeerd gesteld ik wilde graag de oppervlaktes van de polylijnen bij elkaar optellen.

de lisp van lengtes had ik al en die telt inderdaad alle lengtes op dus de omtrek.

Had ik het toch goed begrepen want mijn VBA doet wat je eigenlijke vraag had moeten zijn n.l.:
Het optellen van oppervlaktes.

[silverster]

sorry ik heb de vraag verkeerd gesteld ik wilde graag de oppervlaktes van de polylijnen bij elkaar optellen.

de lisp van lengtes had ik al en die telt inderdaad alle lengtes op dus de omtrek.

Had ik het toch goed begrepen want mijn VBA doet wat je eigenlijke vraag had moeten zijn n.l.:
Het optellen van oppervlaktes.

en hoe laad ik deze in?

is dat toevallig via excel?

[EddyBeerke]

...
en hoe laad ik deze in?

is dat toevallig via excel?

Nee dat doe je op de volgende manier:

Voor de meelezers: Ik werk met Acad 2007, dus ik kan het alleen voor deze versie uitleggen en als er veranderingen in nieuwere versies zijn dan graag ook even posten aub

Type het commando: "VBAMAN"
In het venster dat je nu krijgt kies je voor: "New"

Nu sluit je dit venster en open je "Visual Basic" (VB) door op "Alt+F11" te durkken.
Kies nu in het menu van VB: Insert... module.
In het "tekst venster" wat nu open staat plak je één voor één de code die in mijn eerdere bericht staat.(het zijn drie stukjes code!)
Let wel dat de tekst "Option Explicit" boven aan staat en niet twee keer voor komt!

Nu kun je de macro starten door op "Alt+F8" te drukken.
Kies in het venster voor: "TotOppvlPoly" en klik op "Run"
Voor een button in acad kun je dit commando gebruiken:

-vbarun TotOppvlPoly

[HofCAD]

Weet iemand ofdat het mogelijk is om gesloten polylijnen of hatches bij elkaar op te tellen zodat ik een totale omtrek krijg van de verschillende omtrekken?

alvast bedankt

Terwijl EddyBeerke aan het typen was maakte ik het volgende bericht:

Als ik het goed begrijp wil je dus de opgetelde lengte van de polylijnen weten? (de som van de omtrekken)
Hiervoor bestaan verschillende lisproutines. Als je op dit forum zoekt op LENGTES dan vindt je wel wat. Of kijk even naar dit onderwerp: http://www.cadsite.be/smf/index.php/topic,1741.msg9143.html#msg9143

Reimer

sorry ik heb de vraag verkeerd gesteld ik wilde graag de oppervlaktes van de polylijnen bij elkaar optellen.

de lisp van lengtes had ik al en die telt inderdaad alle lengtes op dus de omtrek.

Beste Silvester,

Voor de Oppervlakte van een Hatch moet je kijken naar:
http://www.cadsite.be/smf/index.php/topic,951.msg9441.html#msg9441
of http://www.autocadexchange.com/forum/list_messages/1793
en naar de behorende waarschuwing:
http://www.cadsite.be/smf/index.php/topic,2662.0.html

Met vriendelijke groet, HofCAD CSI

[Matthias]

Terwijl EddyBeerke aan het typen was maakte ik het volgende bericht:

Als ik het goed begrijp wil je dus de opgetelde lengte van de polylijnen weten? (de som van de omtrekken)
Hiervoor bestaan verschillende lisproutines. Als je op dit forum zoekt op LENGTES dan vindt je wel wat. Of kijk even naar dit onderwerp: http://www.cadsite.be/smf/index.php/topic,1741.msg9143.html#msg9143

Reimer

sorry ik heb de vraag verkeerd gesteld ik wilde graag de oppervlaktes van de polylijnen bij elkaar optellen.

de lisp van lengtes had ik al en die telt inderdaad alle lengtes op dus de omtrek.

Hallo

Ik dacht dat je dit gewoon kon doen met 'area' dan 'add' en dan 'objects' (zoveel aanklikken als je maar wenst)?

Mvg

[silverster]

Bedankt voor alle antwoorden, we hebben het opgelost dus deze kan gesloten gaan worden