| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Umfang von Ellipsenbogen (680 mal gelesen)
|
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 Win2k IV7-SP1 IV8 IV9
|
erstellt am: 23. Feb. 2006 08:33 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 23. Feb. 2006 08:38 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
Das geht z.B. mit folgender Funktion (defun DT:CURVE-GET-LENGTH (OBJ) (if(and(setq OBJ(cond ((=(type OBJ) 'VLA-object) OBJ) ((=(type OBJ) 'Ename) (vlax-ename->vla-object OBJ)) ) ) (not(vl-catch-all-error-p (setq L (vl-catch-all-apply 'vlax-curve-getDISTAtPARAM (list OBJ (vlax-curve-getEndParam OBJ)) ) ) ) ) ) L ) ) Aufruf z.B.: (DT:CURVE-GET-LENGTH (car(entsel))) ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 Win2k IV7-SP1 IV8 IV9
|
erstellt am: 23. Feb. 2006 08:42 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 23. Feb. 2006 08:51 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
Für alle Kurvenelemente ... Linien, Polylinien, Splines, Bögen KReise, Kreisbögen, Ellipsen, Ellispsenbögen ... ------------------ - Thomas - "Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 Win2k IV7-SP1 IV8 IV9
|
erstellt am: 23. Feb. 2006 09:14 <-- editieren / zitieren --> Unities abgeben:
|
| Ingenieur*in der Fachrichtung Automatisierungstechnik | ls größte Stadt am linken Niederrhein geben wir mehr als 272.000 Menschen mit unterschiedlichen Sprachen, Kulturen und Religionen ein Zuhause. 44 Stadtteile mit lebenswerten Quartieren prägen die Stadt auf vielfältige Weise. Rund 150 verschiedene Nationalitäten leben heute in unserer Stadt zusammen. Ihr Charakter ist geprägt durch urbanes Flair in grüner Umgebung - nicht umsonst nennt man die Stadt mit ihren zahlreichen Parks und Grünanlagen auch "Großstadt im Grünen".... | Anzeige ansehen | Automatisierungstechnik |
|
Brischke Moderator CAD on demand GmbH
Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 23. Feb. 2006 09:21 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
Zitat: Original erstellt von SHP:
Gibt es in dieser Art auch etwas um Start und Endpunkt zu finden?
Sicher: guckst du (defun DT:Curve-GET-Start (OBJ / P ) (if(and(setq OBJ(cond ((=(type OBJ) 'VLA-object) OBJ) ((=(type OBJ) 'Ename) (vlax-ename->vla-object OBJ)) ) ) (not(vl-catch-all-error-p (setq P(vl-catch-all-apply 'vlax-curve-getStartPoint (list OBJ) ) ) ) ) ) P ) ) (defun DT:Curve-GET-Ende (OBJ / P ) (if(and(setq OBJ(cond ((=(type OBJ) 'VLA-object) OBJ) ((=(type OBJ) 'Ename) (vlax-ename->vla-object OBJ)) ) ) (not(vl-catch-all-error-p (setq P(vl-catch-all-apply 'vlax-curve-getEndPoint (list OBJ) ) ) ) ) ) P ) ) ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |