| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Mittelpunkt eines Blockes ermitteln (824 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 05. Jun. 2013 11:58 <-- editieren / zitieren --> Unities abgeben:
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 |
reltro Mitglied student
Beiträge: 125 Registriert: 08.11.2009 Acad 2012 - VBA,Lisp Revit 2012 3dsMax 2012 Rhino 5 - GH,Pyhton 3,rhino.Common<P>Win 7 - i7 4x3.2GHz - 8Gb DDR3
|
erstellt am: 05. Jun. 2013 12:07 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 06. Jun. 2013 15:33 <-- editieren / zitieren --> Unities abgeben:
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 |
reltro Mitglied student
Beiträge: 125 Registriert: 08.11.2009 Acad 2012 - VBA,Lisp Revit 2012 3dsMax 2012 Rhino 5 - GH,Pyhton 3,rhino.Common<P>Win 7 - i7 4x3.2GHz - 8Gb DDR3
|
erstellt am: 06. Jun. 2013 15:40 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1832 Registriert: 28.04.2009
|
erstellt am: 06. Jun. 2013 16:11 <-- editieren / zitieren --> Unities abgeben:
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 |