---

moin zusammen,

ich suche nach einer Funktion, die mir aus einer punktwolke eine Umrahmung bzw. Eingrenzung als Polygonzug automatisch ermitteln. die funktion soll sich selbstständig die min / max werte der koordinaten ermitteln und die größte bzw die kleinsten punkte mit linien verbinden. eine art GetBoundingBox.

wie hieß die funktion gleich nochmal in autocad? für vba

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

---

Hi,

wenn die Punkte die einzigen Objekte in der Zeichnung sind, dann gibt es die Systemvariable 'EXTMIN' und 'EXTMAX, die Du abfragen kannst, dann hast Du die Extents aller Zeichnungselemente.

Sonst mußt Du mit einer Schleife durch ein SelectionSet (in welchem Deine Punkte enthalten sind) durch und die Min-/Max Werte selbst ermitteln

Code:

---

dim tMin(2) as Double
dim tMax(2) as Double
tMin(0) = 9999999999999.99:tMin(1) = 9999999999999.99:tMin(2) = 9999999999999.99
tMax(0) = -9999999999999.99:tMax(1) = -9999999999999.99:tMax(2) = -9999999999999.99
For Each tPnt in tSSet  'in tSSet sind Deine Punkte drin
  dim tPos as Variant
  tPos = tPnt.Coordinate(0)
  'X
  if tPos(0) < tMin(0) then tMin(0) = tPos(0)
  if tPos(0) > tMax(0) then tMax(0) = tPos(0)
  'Y
  if tPos(1) < tMin(1) then tMin(1) = tPos(1)
  if tPos(1) > tMax(1) then tMax(1) = tPos(1)
  'Z
  if tPos(2) < tMin(2) then tMin(2) = tPos(2)
  if tPos(2) > tMax(2) then tMax(2) = tPos(2)
Next
'und jetzt hast Du in tMin und in tMax die kumulierten Extents drin

---

- alfred -

------------------
www.hollaus.at

---

und wenn aber noch andere punkt in der zeichnung sind?

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

---

Hi, 

Zitat:

---

und wenn aber noch andere punkt in der zeichnung sind?

---

...muss ich das verstehen? Du hast doch (wenn Du meiner Beschreibung folgst) mit dem SelectionSet selbst zusammengestellt, welche Punkte zur Extents-Ermittlung heranziehst und welche nicht.

Meine gezeigte Schleife geht nur durch die Objekte Deines SelectionSets!

- alfred -

------------------
www.hollaus.at