| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
Autor
|
Thema: vla-GetLoopAt - Schraffurumgrenzungen (1293 mal gelesen)
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung und AutoLISPler
    
 Beiträge: 1781 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 07. Jun. 2012 12:46 <-- editieren / zitieren --> Unities abgeben:         
Hallo, ich wollte mir von Schraffuren die Begrenzugskoordinaten rauslesen, mit dem unteren Code klappt das auch ganz gut, aber nur, wenn die Schraffuren assoziativ sind (dann erhalte ich eine Liste von VLA-Objekte => Polylinies). Wie komme ich an die Koordinaten, wenn die Schraffur nicht assoziativ ist??? Dann gibt vla-GetLoopAt nur NIL zurück, aber irgendwo müssen die Koordinaten doch stecken??? Bin wie immer dankbar für jeden Tip Code:
(defun c:HatchBoundary ( / OBJ VLA-OBJ VLA-PL-ARRAY VLA-PL-ARRAYLIST N) (if(setq obj (car(entsel "\nSchraffur:"))) (progn (setq n -1) (repeat (vla-get-numberofloops (setq vla-obj (vlax-ename->vla-object obj))) (vla-GetLoopAt vla-obj (setq n (+ n 1)) 'vla-Pl-array) (if vla-Pl-array (setq vla-Pl-arrayList (cons (vlax-safearray->list vla-Pl-array) vla-Pl-arrayList))) ) ) ) (reverse vla-Pl-arrayList))
------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer

 Beiträge: 9812 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 07. Jun. 2012 12:52 <-- editieren / zitieren --> Unities abgeben:          Nur für joern bosse
|

| |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung und AutoLISPler
    
 Beiträge: 1781 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 07. Jun. 2012 12:57 <-- editieren / zitieren --> Unities abgeben:         
|