| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: umwandlung von linien zu punkten (431 mal gelesen)
|
Kathrin IKD Mitglied Bauzeichner
Beiträge: 35 Registriert: 16.11.2007 Autocad 2008/2009/2010
|
erstellt am: 27. Nov. 2007 11:19 <-- editieren / zitieren --> Unities abgeben:
|
MartinKern Mitglied Mischung Konstrukteur/Werkzeugmacher
Beiträge: 865 Registriert: 30.10.2002
|
erstellt am: 27. Nov. 2007 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für Kathrin IKD
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 27. Nov. 2007 11:44 <-- editieren / zitieren --> Unities abgeben: Nur für Kathrin IKD
ist zwar noch nicht Weihnachten, aber gleich Mittag .. (defun c:L2PKT(/ AWS INDEX OBJ DATA) (if (setq AWS(ssget '((0 . "LINE")))) (progn (setq INDEX -1) (repeat (sslength AWS) (setq OBJ (ssname AWS (setq INDEX(1+ INDEX)))) (setq DATA (Entget OBJ)) (and (equal(distance (cdr(Assoc 10 DATA))(cdr(Assoc 11 DATA))) 0 0.00000001) (entmake (list '(0 . "POINT") '(100 . "AcDbEntity") (cons 67 (cdr(assoc 67 DATA))) (cons 410 (cdr(assoc 410 DATA))) (cons 8 (cdr(assoc 8 DATA))) '(100 . "AcDbPoint") (cons 10 (cdr(assoc 10 DATA))) '(50 . 0.0) ) ) (entdel OBJ) ) ) ) ) ) Lad dir das Lisp in die Zeichnung und ruf die Funktion mit L2PKT auf und laß mich noch dazu diese Randbemerkung anbringen ... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kathrin IKD Mitglied Bauzeichner
Beiträge: 35 Registriert: 16.11.2007 Autocad 2008/2009/2010
|
erstellt am: 27. Nov. 2007 12:56 <-- editieren / zitieren --> Unities abgeben:
|
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 27. Nov. 2007 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für Kathrin IKD
|
Kathrin IKD Mitglied Bauzeichner
Beiträge: 35 Registriert: 16.11.2007 Autocad 2008/2009/2010
|
erstellt am: 27. Nov. 2007 13:19 <-- editieren / zitieren --> Unities abgeben:
|
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 27. Nov. 2007 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für Kathrin IKD
Hi Kathrin, hab' da auch noch was kleines aus der Testecke: Code: (defun c:PointOut(/ ss z n) (setq ss (ssget) z -1) (while (setq ele (ssname ss (setq z (1+ z)))) (foreach n (entget ele) (if (<= 10 (car n) 19) (command "_.point" (cdr n)) ) ) ) )
setzt bei allen Punkten eines Objektes einen Punkt. (Kreise, Polylinien, Texte, Linien .....)Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 27. Nov. 2007 13:35 <-- editieren / zitieren --> Unities abgeben: Nur für Kathrin IKD
Zitat: Original erstellt von wronzky: Hi Kathrin, hab' da auch noch was kleines aus der Testecke:Code: (defun c:PointOut(/ ss z n) (setq ss (ssget) z -1) (while (setq ele (ssname ss (setq z (1+ z)))) (foreach n (entget ele) (if (<= 10 (car n) 19) (command "_.point" (cdr n)) ) ) ) )
setzt bei allen Punkten eines Objektes einen Punkt. (Kreise, Polylinien, Texte, Linien .....)Grüsse, Henning
von dem Punkt aus dem GC10 bei 2D/3DPolylinien hast du aber nicht viel .. der ist immer (0 0 0) (oder sollte es zumindest sein)
------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 27. Nov. 2007 13:43 <-- editieren / zitieren --> Unities abgeben: Nur für Kathrin IKD
bei mir steht PLINETYPE immer auf 2! (OK ich korrigieren: ...(setzt bei allen Punkten eines Objektes einen Punkt. (Kreise, LW-Polylinien, Texte, Linien .....)) Grüsse, Henning ------------------ VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de [Diese Nachricht wurde von wronzky am 27. Nov. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kathrin IKD Mitglied Bauzeichner
Beiträge: 35 Registriert: 16.11.2007 Autocad 2008/2009/2010
|
erstellt am: 27. Nov. 2007 14:19 <-- editieren / zitieren --> Unities abgeben:
|