Polylinien in Blöcken (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Polylinien in Blöcken (443 mal gelesen)
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-) Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD	erstellt am: 29. Apr. 2003 17:16 <-- editieren / zitieren --> Unities abgeben: hallo, ich schon wieder. ich habe in blöcken polylinien. jetzt müsste ich an die flächen kommen ohne den block zu sprengen...möglich??? ------------------ alle wege führen nach rom...bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
mapcar Mitglied CADmin Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)	erstellt am: 29. Apr. 2003 18:56 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010 (vla-get-area(vlax-ename->vla-object(cdr(assoc -1 <geometriedaten> )))) sollte die Zauberformel sein. Gruss, Axel ------------------ Meine AutoLisp-Seiten Meine private Homepage Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze Meine Überzeugung... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
mapcar Mitglied CADmin Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)	erstellt am: 15. Mai. 2003 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010 Nachtrag wg. der PM: Code: ;Lisp-Funktion (defun curve-area(curve-object / ) (vla-get-area(vlax-ename->vla-object curve-object)) ) ;AutoCAD-Befehl (defun c:curve-area( / curve-object) (if (member (cdr(assoc 0(entget(setq curve-object(car(nentsel)))))) '("LWLPOLYLINE""POLYLINE""SPLINE""ELLIPSE""CIRCLE""ARC") ) (curve-area curve-object) ) ) Geht mit Polylinien, Kreisen usw. in Blöcken und ausserhalb. Gruss, Axel ------------------ Meine AutoLisp-Seiten Meine private Homepage Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze Meine Überzeugung... [Diese Nachricht wurde von mapcar am 15. Mai 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)