| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: points auf 3d-polyline (1334 mal gelesen)
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 05. Okt. 2011 15:40 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13529 Registriert: 30.11.2003 .
|
erstellt am: 05. Okt. 2011 16:09 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 05. Okt. 2011 16:14 <-- editieren / zitieren --> Unities abgeben:
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 05. Okt. 2011 16:15 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Wo denn? an allen Stützpunkten, im regelmäßigen Abstand, bestimmte Anzahl zwischen des Stützpunkten ...?? Ansonsten PL hernehmen, Stützpunkte ermitteln, gewünschten Punkt berechnen und mit (command "point" ...) oder (entmake ...) Punkte setzen. Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 05. Okt. 2011 16:19 <-- editieren / zitieren --> Unities abgeben:
|
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 sw: Win7-x64 Office 365 ProPlus C3D (& LT ) ET; DACH; Extensions ------------------- hw: FX3800 i5 CPU 670 8GB RAM
|
erstellt am: 05. Okt. 2011 16:24 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 05. Okt. 2011 16:25 <-- editieren / zitieren --> Unities abgeben:
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 05. Okt. 2011 16:26 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
Hallo cadplayer mit
Code:
(setq c_pl (ssname AWS i)) holst du dir eine PL aus dem AWS mit (setq subent (entnext c_pl)) hangelst Du Dich durch die einzelnen Unterentities (Vertex) der PL bei (= (cdr (assoc 0 (entget subent))) "SEQEND") bist Du am Ende mit (setq vertex (cdr (assoc 10 (entget subent)))) (setq x_liste (cons (car vertex) x_liste)) (setq y_liste (cons (cadr vertex) y_liste)) (setq z_liste (cons (caddr vertex) z_liste)) hast Du die Koords der Stützstellen
So jetzt bis Du dran. Gruß Thomas
[Diese Nachricht wurde von spider_dd am 05. Okt. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 06. Okt. 2011 09:37 <-- editieren / zitieren --> Unities abgeben:
Danke für die rasche Aw (if (setq AWS (ssget '((0 . "POLYLINE")))) (progn (setq I 0) (repeat (sslength AWS) (setq ENT (ssname AWS I)) (setq SUBENT (entget (entnext ENT))) (if (cdr (assoc 0 SUBENT)) "VERTEX") (setq VERTEX (cdr (assoc 10 SUBENT)) XLISTE (cons (car VERTEX) XLISTE) YLISTE (cons (cadr VERTEX) YLISTE) ZLISTE (cons (caddr VERTEX) ZLISTE) I 1+ I) )))
Ich stehe jetzt vor dem Problem, dass eine Polylinie ja mehrere Stützpunkte hat, die ich einzeln abfragen will. Wie muss die var VERTEX aussehen, dass immer einzeln die Vertex´e abgfragt und
------------------ Gruss Dirk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13529 Registriert: 30.11.2003 .
|
erstellt am: 06. Okt. 2011 09:53 <-- editieren / zitieren --> Unities abgeben: Nur für cadplayer
|
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009 Windows 10 64bit system Autocad Civil3d 2020 ENGLISH Visual Studio 2019 OpenDCL.Runtime.9<P>
|
erstellt am: 06. Okt. 2011 10:37 <-- editieren / zitieren --> Unities abgeben:
|