---

Guten Tag
leider gibt es wohl nicht in ACAD 2002 .perimeter für ACADLWPlylinie

ich habe mal eine Berechnungsfunktion gefunden, aber die rechnet leider auch falsch. Gibt es keine Möglichkeit per VBA die Länge der Polylinie zu ermitteln?

In ACAD selbst kann ich ja mit List, wie macht das ACAD?

Gruß
T

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Da sollte doch auch Object.Length ausreichen, oder?!

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo
in ACAD 2002 gibt es anscheinend nicht

dim aobj as acadobject

aobj. .... gibt kein length

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Tom,

Schau mal hier. So wie es aussieht ist die length-Eigenschaft erst ab Autocad 2004 vorhanden.

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Die vorgefunden Funktionen scheinen einen Fehler bei geschlossenem Polylinien zu haben.

ich hatte zuerst diese Funktion verwendet, bis mir auffiel, dass es einen Fehler bei geschl. Polylinie produzierte. Die Länge stimmt dann nicht mehr.

Gibt es da keine Lösung für geschl. und da am besten, eine Prüfroutine, wenn offen, die eine Fkt, wenn geschl. die andere Fkt.

ist das ein Murrks 

Code:

---

Public Function PlineLenEX(objPline As _
AcadLWPolyline) As Double
Dim intVCnt As Integer
Dim varCords As Variant
Dim varVert As Variant
Dim varCord As Variant
Dim varNext As Variant
Dim intCrdCnt As Integer
Dim dblTemp As Double
Dim dblArc As Double
Dim dblAng As Double
Dim dblChord As Double
Dim dblInclAng As Double
Dim dblRad As Double
Dim intDiv As Integer
On Error GoTo Err_Control
intDiv = 2
varCords = objPline.Coordinates
For Each varVert In varCords
intVCnt = intVCnt + 1
Next
For intCrdCnt = 0 To intVCnt / intDiv - 1
If intCrdCnt < intVCnt / intDiv - 1 Then
varCord = objPline.Coordinate(intCrdCnt)
varNext = objPline.Coordinate(intCrdCnt + 1)
ElseIf objPline.Closed Then
varCord = objPline.Coordinate(intCrdCnt)
varNext = objPline.Coordinate(0)
Else
Exit For
End If
If objPline.GetBulge(intCrdCnt) = 0 Then
'computes a simple Pythagorean length
dblTemp = dblTemp + Sqr((Sqr(((varCord(0) - _
varNext(0)) ^ 2) + ((varCord(1) - varNext(1)) ^ 2)) ^ 2))
Else
'If there is a bulge we need to get an arc length
dblChord = Sqr((Sqr(((varCord(0) - varNext(0)) ^ 2) _
+ ((varCord(1) - varNext(1)) ^ 2)) ^ 2))
'Bulge is the tangent of 1/4 of the included angle between
'vertices. So we reverse the process...
dblInclAng = Atn(Abs(objPline.GetBulge(intCrdCnt))) * 4
dblAng = (dblInclAng / 2) - ((Atn(1) * 4) / 2)
dblRad = (dblChord / 2) / (Cos(dblAng))
dblArc = dblInclAng * dblRad
dblTemp = dblTemp + dblArc
End If
'End If
Next
PlineLenEX = dblTemp
Exit_Here:
Exit Function
Err_Control:
Select Case Err.Number
Case Else
MsgBox Err.Description
Err.Clear
Resume Exit_Here
End Select
End Function

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,

wenn eine Polylinie geschlossen ist musst du den ersten Punkt als letzten Punkt wieder hinten anhängen. Dann geht es.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Will man was Simples haben, kann man
auch ein
Sendcommand mit _AREA Object
durchführen und hinterher die Systemvariable PERIMETER abfragen.

------------------
Mit freundlichem Gruß

Udo Hübner

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Abend

klingt alles so einfach .. aber da ich so selten damit arbeite:

a) wie erkenne ich per VBA, dass die LWPolylinie geschlossen ist, damit automatisch der erste Punkt wieder dran gehangen wird.

b) wenn ich einen sendcommand los schicke, wie erhalte ich den Wert in VBA zurück? ich brauche die Länge um weitere Berechnungen durchführen zu können.

hoffe, ihr schüttelt nicht so arg den Kopf

LG
Tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,

du musst einfach nur genau lesen 
tip doch mal lw. und schau was es da für Eigenschaften gibt.

Dim lw As AcadLWPolyline
if lw.Closed then

Nach Udo's Methode schickst du dein Kommando per Sendkommand ab.
Der letzte ermittelte Wert steht da in der erwähnten Systemvariable.
Thisdrawing.GetVariable ("Perimeter")

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke schön Euch beiden!
oft braucht man für das Öffnen einer großen schweren Tür nur einen kleinen Schlüssel oder das Wissen von Experten 

Bis zum nächsten male
Tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP