---

Ist es möglich via Autolisp den Mittelpunkt eines Blockes zu ermitteln.
HG ist folgender, ich habe eine Zeichnung in der die Einfügepunkte der Blöcke wüst angelegt sind. Diese möchte ich gern auf dem Zentrumpunkt jedes einzelnen Blockes legen.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

aloha...
Wie definierst du Mittelpunkt?

vielleicht über die BoundingBox?
(vlax-invoke-method .... 'getboundingbox ....)

lg

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

---

Danke reltro, bin mit meinen VL kentnissen nur auf das nötigste ausgestattet - danke für deinen Beitrag, kann mich erstmal weiter schlau machen.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

heyho...
schau mal bei LeeMac vorbei ob du da was findest...

http://www.lee-mac.com/searchresults.html?cx=000601037636403028280%3A4lk1vy2g0ji&cof=FORID%3A9&ie=UTF-8&q=boundingbox&siteurl=lee-mac.com%2F

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

---

Danke, auf AfraLisp wurde mir einfachst geholfen

Code:

---

(defun c:bbox ()
    (vl-load-com)
    (setq util (vla-get-utility
                  (vla-get-activedocument
                        (vlax-get-acad-object))))
    (vla-getentity util 'obj 'ip "\nSelect Object: ")
    (vla-GetBoundingBox obj 'minpoint 'maxpoint)

    ;minpoint contains the minimum point of the bounding box
    ;maxpoint contains the maximum point of the bounding box

    (princ (vla-getvalue minpoint)
    (terpri)
    (princ maxpoint)
    (princ)
    )

---

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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