| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Längen auf geschwungener PLinie abgreifen (1671 mal gelesen)
|
Werner-Maahs.de
Mitglied
CAD-Dozent + Konstrukteur + Autor
   Beiträge: 626
Registriert: 04.05.2005 Win XP
AC 2005/6
AC 2013
|
erstellt am: 11. Jan. 2013 01:01  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich habe eine Polylinie aus mehreren Kreissegmenten und muss nun an einigen Längen Blöcke platzieren bzw. andere Objekte beginnen. Bisher habe ich es so gemacht:
PLinie jeweils kopieren
mit Befehl Länge (Option Gesamt) die kopierte PLinie verkürzen. Der Endpunkt der verkürzten Polylinie ergab dann den richtigen Punkt. Rest der Plinie löschen und wieder von vorn, bis ich alle Punkte habe.
Die Längen/Punkte sind leider sehr unregelmäßig! Hat jemand eine bessere, einfachere Idee, wie ich so etwas hinbekomme? ------------------
strukturiertes Zeichnen mit Werner-Maahs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 11. Jan. 2013 07:08 <-- editieren / zitieren --> Unities abgeben: Nur für Werner-Maahs.de 
Hallo, die folgenden Code-Zeilen setzen einen Punkt auf einer LWPolyline an der angegebenen Länge. Ich denke, mit dem Punkt kannst du dann etwas anfangen. Code:
(defun c:PointOnLength (/ pl pld vlpl len pointonlen point Layer)
(setq pl (entsel "\nPolylinie wählen:"))
(if (and pl
(setq pl(car pl))
(setq pld (entget pl))
(= (cdr(assoc 0 pld)) "LWPOLYLINE")
)
(progn
(setq vlpl (vlax-ename->vla-object pl)
len (vlax-get-Property vlpl 'Length)
)
(princ (strcat"\nGesamtlänge der Polyline: " (rtos len 2 4)))
(setq pointonlen (getreal "\nPunkt auf Länge einfügen:"))
(if (and
(> pointonlen 0.0)
(< pointonlen len)
)
(progn
(setq point (vlax-curve-getPointAtDist vlpl pointonlen)
Layer (cdr(assoc 8 pld))
)
(entmake:Point point layer)
)
)
)
)
)
(defun entmake:Point (Point Layer)
(entmake(list
'(0 . "POINT")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
(cons 8 Layer)
'(100 . "AcDbPoint")
(cons 10 Point)
'(210 0.0 0.0 1.0)
'(50 . 0.0)
)
)
)
Bei Fragen ... Grüße Holger ------------------
Holger Brischke
FREIE SCHULUNGSPLÄTZE -- C#.NET-Schulung im Mai 2013 Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 11. Jan. 2013 07:09 <-- editieren / zitieren --> Unities abgeben: Nur für Werner-Maahs.de
|
cadffm
Moderator
良い精神
Beiträge: 21533
Registriert: 03.06.2002 System: F1
und Google
|
erstellt am: 11. Jan. 2013 07:16 <-- editieren / zitieren --> Unities abgeben: Nur für Werner-Maahs.de
|
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 11. Jan. 2013 07:37 <-- editieren / zitieren --> Unities abgeben: Nur für Werner-Maahs.de
... aber die Abfolge der Beiträge zeigt doch ganz deutlich, dass man schneller programmiert als sucht und findet.  Grüße!
Holger ------------------
Holger Brischke
FREIE SCHULUNGSPLÄTZE -- C#.NET-Schulung im Mai 2013 Bei Interesse bitte melden!
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.
defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Werner-Maahs.de
Mitglied
CAD-Dozent + Konstrukteur + Autor
Beiträge: 626
Registriert: 04.05.2005 Win XP
AC 2005/6
AC 2013
|
erstellt am: 11. Jan. 2013 09:05 <-- editieren / zitieren --> Unities abgeben:
Danke, für Eure schnellen Beiträge. Ich werde Sie mir ansehen, hatte aber gehofft, dass AC etwas direkt anbietet, da ich es in einer Schulung benötige, in der sich einige Landschaftsplaner befinden, die sich auf eine Prüfung vorbereiten wollen. Danke nochmal. ------------------
strukturiertes Zeichnen mit Werner-Maahs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kramer24
Ehrenmitglied V.I.P. h.c.
Architekt
Beiträge: 5881
Registriert: 09.11.2001 Acad Architecture 2023
WIN 10
|
erstellt am: 11. Jan. 2013 09:08 <-- editieren / zitieren --> Unities abgeben: Nur für Werner-Maahs.de
Hallo Werner, was ist mit dem Befehl MESSEN? Damit kann soger der Block abgesetzt werden. Es muss leider jeder Abstand errechnet werden. Vielleicht mit der Taschenrechnerfunktion. Lothar [Diese Nachricht wurde von Kramer24 am 11. Jan. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Werner-Maahs.de
Mitglied
CAD-Dozent + Konstrukteur + Autor
Beiträge: 626
Registriert: 04.05.2005 Win XP
AC 2005/6
AC 2013
|
erstellt am: 11. Jan. 2013 23:57 <-- editieren / zitieren --> Unities abgeben:
Auf Messen wäre ich nie gekommen. Das es den Befehl überhaupt gibt. Ich habe ihn jedenfalls in über 20 Jahren noch nie gebraucht. Danke Lothar, aber auch alle anderen, die mir so schnell geantwortet haben. Das Forum hat nicht ohne Grund einen guten Ruf. ------------------
strukturiertes Zeichnen mit Werner-Maahs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
- 
