| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Linie mit mehreren Haltepunkten (535 mal gelesen)
|
Ex-Mitglied | |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 26. Sep. 2005 18:43 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
|
Ex-Mitglied | |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 27. Sep. 2005 08:28 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
Wie wäre es denn, wenn du ersteinmal die pl erstellst, dir diese dann per (entlast) vornimmst und sie in gleichgroße Teile teilst. Entweder per bruch, oder besser punkte im abstand auf dem linearen Objekt berechnen lässt und eine neue pl mit diesen Stützpunkten zeichnen lässt. Dann die alte löschen lassen - fertig. Der Vorteil wäre immer : du könntest den Startpunkt immer frei bestimmen und es funktioniert auch
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 27. Sep. 2005 09:23 <-- editieren / zitieren --> Unities abgeben: Nur für Rabbit 007
Hallo Rabbit, dann versuch es mal mit diesem Code, der teilt dir die gezeichnete Linie.
Code: (defun c:myPLINE (/ SPT EPT ZPT ptli PL ABST istABST) (setq SPT (getpoint "\nStartpunkt:") EPT (getpoint "\nEndpunkt:") ZPT SPT ABST 35.0 ) (command "_.PLINE" SPT EPT "") (setq PL (entlast)) (while (setq ZPT(getpoint ZPT "\nWeg Zwischenpunkt:")) (entdel PL) (setq ptli (cons ZPT ptli)) (command "_.PLINE" SPT) (mapcar 'command (reverse ptli)) (command EPT "") (setq PL (entlast)) ) (setq istABST 0.0 PL_lengtht (vlax-get-property (setq PL (vlax-ename->vla-object PL)) 'length)) (while (< (+ istABST ABST) PL_lengtht) (setq istABST (+ istABST ABST) ZPT (vlax-curve-getPointAtDist PL istABST) ptli (cons ZPT ptli) ) );while (setvar "OSMODE" 0) (command "_PLINE") (mapcar 'command (mapcar 'cdr (cons (cons 0.0 SPT) (append (vl-sort (mapcar '(lambda (P) (cons (vlax-curve-getParamAtPoint PL P) P) ) ptli ) (function (lambda (PA1 PA2) (< (car PA1) (car PA2)) ) ) ) (list (cons (vlax-curve-getEndParam PL) EPT)) ) ) )) (command "") (vla-erase PL) (princ) )
Bei Fragen ...Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |