| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Stationierung von Pline, Höhe aus Blöcken (1185 mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 28. Jun. 2005 08:54 <-- editieren / zitieren --> Unities abgeben:
Morgen Habe 1 Pline auf der Höheninfo als Blöcke liegen. Frage: Ist es möglich das man
die Stationierung der Blöcke auf der Pline und die Höheninfo der Blöcke in eine TXT schreiben kann?Im Anhang ein Beispiel. Ps.: Weiss natürlich das hier kein Wunschkonsert ist, aber vielleicht hat wer etwas. ------------------ "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Bitte Supportangaben eintragen, warum siehst du hier
[Diese Nachricht wurde von Bernd P am 28. Jun. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 28. Jun. 2005 09:40 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
Zitat: Original erstellt von Bernd P: ....Frage: Ist es möglich das man die Stationierung der Blöcke auf der Pline und die Höheninfo der Blöcke in eine TXT schreiben kann?
Ja, ist möglich. ----scherzende----- Ich möchte dich hiermit nur aufmuntern zum suchen ! Bilde mir ein das es dieses Thema schon gab, denke es war aber im RuA-Forum, Lispforum könnte es natürlich auch sein.. Versuch es doch mal mit der Suche, mir ist so als wären hier schon Stationierungen etc. angsprochen worden. Ansonsten sind es mind. alle Puzzlestücke: Werte in Datei schreiben Blöcke über Polylinie auswählen Blockattribute auslesen usw. [Diese Nachricht wurde von cadffm am 28. Jun. 2005 editiert.] [Diese Nachricht wurde von cadffm am 28. Jun. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 28. Jun. 2005 09:52 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
Hi Bernd, ersteres kann ich mir nur schwer vorstellen (woher soll der Bezug zwischen PL und Blöcken herkommen ? Die haben ja nix miteinander zu tun...) Zum zweiten Punkt: Einfach -eattext drüberlaufen lassen (mit passender Template) Wenn du dir die Koordinaten auch noch auswerfen lässt, könntest du natürlich auch die "Stationierung" rechnen... Nur so als Anregung... ------------------ Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 28. Jun. 2005 10:13 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
könnte passen Code:
(if (not (setq listnam (findfile "punkteliste.txt"))) (setq listnam (getfiled "Punktliste anlegen" "punktliste" "txt" 1)) ) ;_ end of if (if listnam (repeat (sslength(setq aws(ssget "_X" '((0 . "INSERT")(2 . "KOT_HOEHE_LP"))))) (setq vlaObj(vlax-ename->vla-object (ssname aws 0)) lstAtts (vlax-safearray->list (vlax-variant-value (vla-Getattributes vlaObj)) ) lstAtts(mapcar 'vla-get-TextString lstAtts) ) (setq DAT_ID (open listnam "a")) (write-line (car lstAtts) DAT_ID) (close DAT_ID) (setq aws(ssdel(ssname aws 0)aws)) ) )
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 28. Jun. 2005 10:29 <-- editieren / zitieren --> Unities abgeben:
Servus @cadffm Jup natürlich hab schon gesucht und ein paar Ansätze gefunden. Nur leider kann ich grad mal minifuzzi Lisp anpassen. Bei den grösseren LISP seh ich nicht mehr drüber. @tunnelbauer Die Blöcke liegen genau auf der Pline. Um den Bezug herzustellen brauch ich ja LISP Die Koordinaten kann ich nicht verwenden da die Pline auch knicke haben kann, wo kein Block liegt und die Reihenfolge bei -eattext verloren geht. @Cadffm THX für die schnelle Antwort Liest alle Attributewerte aus ohne Reihenfolge, ohne Stationierung Mein jetziger "Ansatz" sieht so aus das ich die Höhenpunkte mit Lisp auf die Höhe lege und eine 3DPline drüberzeichne, und diese dann auslese. Da Arbeitskollegen in der Firma wollen/sollen/müssen es auch verwenden und weil sie nicht immer alles verstehen können/wollen, würde ich das gerne vereinfachen. ------------------ "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Bitte Supportangaben eintragen, warum siehst du hier Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 28. Jun. 2005 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
Hallo, ich habe auch nochmal getestet, habe die Höhen aber nicht aus dem Attribut genommen, sondern aus dem Basispunkt des Blockes. Die Ergebnisse müßten aber nochmal geprüft werden. (defun c:hoehe_stat ( / pl aws n pfad datei) (setq pl (car(entsel "\nBitte Polylinie picken:"))) (princ "Bitte Blöcke auswählen:") (if (setq aws (ssget (list(cons 0 "INSERT")(cons 2 "Kot_Hoehe_LP")))) (progn (if (setq pfad (getfiled "Datei:" "" "txt" 1)) (setq datei (open pfad "w"))) (setq n 0) (repeat (sslength aws) (write-line (strcat "Stat. " (rtos(JB_pl_stat pl (cdr(assoc 10 (entget(ssname aws n)))))2 4))datei) (write-line (strcat "Hoehe. " (rtos(last(cdr(assoc 10 (entget(ssname aws n)))))2 4))datei) (setq n (+ n 1))) (close datei) ) (alert "Es wurden keine Blöcke gewählt")) (princ)) (defun JB_pl_stat (obj pkt / ) (vlax-curve-getdistatpoint (vlax-ename->vla-object obj) (vlax-curve-getClosestPointTo(vlax-ename->vla-object obj)pkt))) ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 28. Jun. 2005 11:45 <-- editieren / zitieren --> Unities abgeben:
Servus @joern bosse funkt perfekt die Höhen und die Stationierung passen zusammen THX ------------------ "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Bitte Supportangaben eintragen, warum siehst du hier Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 06. Feb. 2008 15:54 <-- editieren / zitieren --> Unities abgeben:
Servus Ist schon etwas länger her. Kann man bei dem LISP von joern bosse die Höhe doch aus den Attributen nehmen? ------------------ "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. <----- Bitte Systeminfo eintragen, warum siehst du hier. [Diese Nachricht wurde von Bernd P am 06. Feb. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 06. Feb. 2008 15:57 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
läßt du die Zeile weg (write-line (strcat "Hoehe. " (rtos(last(cdr(assoc 10 (entget(ssname aws n)))))2 4))datei) ------------------ - 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 |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 07. Feb. 2008 10:20 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
|