| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Hannover Messe 2026 - Diese Lösungen prägen die Zukunft der Industrie: PNY präsentiert Anwendungen für KI, Edge-Computing und das Metaversum, eine Pressemitteilung
|
|
Autor
|
Thema: Linien der Länge 0.00 (658 mal gelesen)
|
megge Mitglied Bauingenieur

 Beiträge: 66 Registriert: 11.09.2002 Windows 7 Professional AutoCAD 2015 - Deu REVIT ARCHITECTURE 2017 Intel Core i5-2500 3.30 GHz 4,00 GB Ram AMD Radeon HD 6570
|
erstellt am: 16. Sep. 2003 15:01 <-- editieren / zitieren --> Unities abgeben:         
|
CADwiesel Moderator CAD4FM UG
    

 Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 16. Sep. 2003 15:03 <-- editieren / zitieren --> Unities abgeben:          Nur für megge
|
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 2006 Autocad 2006LT + Extender ADT 2007 ArchiCAD
|
erstellt am: 16. Sep. 2003 15:04 <-- editieren / zitieren --> Unities abgeben:          Nur für megge
|
megge Mitglied Bauingenieur

 Beiträge: 66 Registriert: 11.09.2002 Windows 7 Professional AutoCAD 2015 - Deu REVIT ARCHITECTURE 2017 Intel Core i5-2500 3.30 GHz 4,00 GB Ram AMD Radeon HD 6570
|
erstellt am: 16. Sep. 2003 15:19 <-- editieren / zitieren --> Unities abgeben:         
|
Bernhard GSD Mitglied
  
 Beiträge: 505 Registriert: 29.08.2002 AutoCAD 2025(Deu); Revit 2025(Deu); Windows 11 PRO x64(Deu)
|
erstellt am: 16. Sep. 2003 15:22 <-- editieren / zitieren --> Unities abgeben:          Nur für megge
Anbei ein kurzer lisp-Code, der ein Umwandeln in Punkte oder ein Löschen ermöglicht. Auswahl bestimmter Punkte möglich, für alle entsprechend Objektwahl ALLE (ist eh AutoCAD-Standard...) (DEFUN c:L2P (); Linien mit Länge=0 in Punkte konvertieren (SETQ frage (xgetstr "Umwandeln odel Löschen" "U")) (SETQ aws (SSGET '((0 . "LINE")))) (SETQ len (SSLENGTH aws)) (SETQ n 0) (SETQ d 0) (WHILE (< n len) (SETQ el (SSNAME aws n)) (SETQ en (ENTGET el)) (SETQ a (CDR (ASSOC 10 en))) (SETQ b (CDR (ASSOC 11 en))) (SETQ c (DISTANCE a b)) (IF (= c 0.0) (PROGN (ENTDEL el) (IF (= frage "U") (COMMAND "PUNKT" a) ) (SETQ d (1+ d)) ) ) (SETQ n (1+ n)) ) (PRINC d) (PRINC) )
Befehl: L2P .... (Line To Point) Liebe Grüße nach fast 1 Jahr Versenkung Bernhard GSD ------------------ Gruß aus Wien Bernhard  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |