| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Punkte auf Polylinien (1107 mal gelesen)
|
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,
|
erstellt am: 24. Sep. 2019 21:46 <-- editieren / zitieren --> Unities abgeben:
Hallo, kennt jemand eventuell eine LSP womit man auf Polylinien die Endpunkte und Knickpunkte automatisch mit beispielweise einem Punkt oder einem Kreis markieren kann. Ich bitte um Hinweise unter was ich eventeull sowas finden könnte. ------------------ Gruß vom Bauvermesser; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 .
|
erstellt am: 25. Sep. 2019 08:21 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
|
Vino Mitglied
Beiträge: 207 Registriert: 24.05.2005 Windows 10 BricsCAD V20-22
|
erstellt am: 25. Sep. 2019 08:34 <-- editieren / zitieren --> Unities abgeben: Nur für Bauvermesser
Zu spät.... Aber weil ichs jetzt schon hab und weils in Lisp ist: Code: (defun c lpoint ( / auswahl n vobj x) (if (setq auswahl (ssget '((-4 . "<or") (0 . "POLYLINE") (0 . "LWPOLYLINE") (-4 . "or>")))) (progn (setq n 0) (repeat (sslength auswahl) (setq vobj (vlax-ename->vla-object (ssname auswahl n))) (setq x 0) (repeat (fix (+ (vlax-curve-getEndParam vobj) 1)) (entmake (list '(0 . "POINT") (cons 10 (vlax-curve-getPointAtParam vobj x)))) (setq x (1+ x)) ) (setq n (1+ n)) ) ) ) (princ) )
Gruß Stefan EDIT: Da war noch eine PRINC-Zeile vom Debuging zu viel drin [Diese Nachricht wurde von Vino am 25. Sep. 2019 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bauvermesser Mitglied Vermesser
Beiträge: 460 Registriert: 18.03.2006 AMD 2600, 2024RAM ,WIN XP PROF-SP3, ACAD 2005, Firmenrechner,
|
erstellt am: 25. Sep. 2019 21:15 <-- editieren / zitieren --> Unities abgeben:
|