| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Z-Werte von Punkten (4588 mal gelesen)
|
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 31. Jul. 2002 09:26 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen Ich habe eine Zeichnung eines Geländemodells. Darin befinden sich etliche Punkte als Block. Diesen Punkten ist ein Attribut "Höhe" zugeordnet, in dem die absolute Höhe des Punktes steht. Diese Höhe sollte ich im Z-Wert des Punktes haben (dieser steht momentan auf 0 ) um ein Geländemodell rechnen zu können. Wer weiß Rat? Gruß Gotti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1973 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 31. Jul. 2002 10:05 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Na Du hast Dich aber bestimmt schon mal besser Ausgedrückt. Aber ich versuch's mal: Du liest das attribut aus und übergibst den Wert dem Befehl Ändern. Dann wird Der Block auf die Höhe gehoben. Ist's so recht?
------------------ Gruß CADwiesel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 31. Jul. 2002 10:12 <-- editieren / zitieren --> Unities abgeben:
|
VMichl Mitglied
Beiträge: 212 Registriert: 04.01.2001
|
erstellt am: 31. Jul. 2002 11:27 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
|
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 31. Jul. 2002 11:41 <-- editieren / zitieren --> Unities abgeben:
|
VMichl Mitglied
Beiträge: 212 Registriert: 04.01.2001
|
erstellt am: 31. Jul. 2002 11:46 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
|
StephanJP Mitglied CAD-Admin
Beiträge: 830 Registriert: 09.11.2000 AutoCAD ,MAP 3D, Civil 3D, P&ID, VehicleTracking alles bis 2022, BBSoft, Win 10 Enterprise, Canon PlotClient Canon TX2000, TX3000
|
erstellt am: 31. Jul. 2002 12:11 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1973 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 31. Jul. 2002 12:52 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Hai Ich hab' Dir mal was gebastelt. Du wirst nach dem Blockname und dem Attribut gefragt. Das Attribut ist die Definition, (der Name des Att's) das den zu ändernden Wert enthält. Es werden aber nur Werte berücksichtigt, die einen Punkt als Trennzeichnen haben und nicht ein Komma. (Integer/Realzahlen) Teste es mal aus. (defun C:Blockänder ( / ) (setq bname (getstring "Blockname:")) (setq aname (strcase(getstring "Attributname:"))) (if(setq as (ssget "_X" (list (cons 2 bname)))) (progn (setq zaehler 0) (repeat (sslength as) (setq bk (entget (ssname as zaehler))) (setq tt (entget (entnext (cdr (assoc -1 bk))))) (while (/= (cdr (assoc 0 tt))"SEQEND") (if (and (= (cdr (assoc 0 tt)) "ATTRIB")(= (cdr (assoc 2 tt)) aname)) (progn (setq Awert (cdr (assoc 1 tt))) (setq tt (subst (cons 10 (reverse (list (atof Awert)(caddr (assoc 10 tt))(cadr (assoc 10 tt)))))(assoc 10 tt)tt)) (entmod tt) (setq bk (subst (cons 10 (reverse (list (atof Awert)(caddr (assoc 10 bk))(cadr (assoc 10 bk)))))(assoc 10 bk)bk)) (entmod bk) ) ) (setq tt (entget (entnext (cdr (assoc -1 tt))))) ) (setq zaehler (1+ zaehler)) ) ) ) )
------------------ Gruß CADwiesel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 31. Jul. 2002 13:43 <-- editieren / zitieren --> Unities abgeben:
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1973 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 31. Jul. 2002 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
|
StephanJP Mitglied CAD-Admin
Beiträge: 830 Registriert: 09.11.2000
|
erstellt am: 31. Jul. 2002 13:49 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Hallo Gotti, was funktioniert nicht? Bei meiner Funktion gibst Du an der Eingabeaufforderung bei Blockname: "*" (Stern) ein, und, soweit ich mich erinner (ist halt schon lange her) berücksicht das auch Texte mit Komma. Es will aber Attribute haben, die "Kanals*" oder "Hoehe*" heissen. Wenn Du in der lsp-Datei diese werte an Deine Blöcke anpasst, sollte es gehen? ------------------
gruß stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 31. Jul. 2002 13:58 <-- editieren / zitieren --> Unities abgeben:
|
StephanJP Mitglied CAD-Admin
Beiträge: 830 Registriert: 09.11.2000
|
erstellt am: 31. Jul. 2002 14:07 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Hallo Gotti, was ist am Datei anhängen so schwer? Darauf achten, das die Datei das richtige Format hat (also im Notfall zippen), dann anhängen, Name und Kennwort, im Beitrag nochmal Name und Kennwort, fertig. ------------------
gruß stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Angelika Hädrich Ehrenmitglied V.I.P. h.c. Application Engineer
Beiträge: 5123 Registriert: 12.07.2000 Der erreicht am meisten, der immer auch anders kann, als er vorhatte.
|
erstellt am: 31. Jul. 2002 14:09 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
... wenn man auf ein Posting antwortet gibt es oben unter Benutzername und Kennwort auch Anhang, dort auf Datei anhängen klicken dann erscheint ein Dialogfenster, dort wieder Name und kenwort eintragen und dann kann man bis zu 3 Files anhängen, die Datei ( es dürfen Max Dateigrösse: 1MB, Erlaubte Dateitypen: .gif , .jpg , .zip , .pdf , .txt , .mid von allen registrieten Mitgliedern "up-ge-loadet" werden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 31. Jul. 2002 14:17 <-- editieren / zitieren --> Unities abgeben:
Hab auch geglaubt daß das nicht so schwer sein kann, aber vielleicht bin ich ja so blöd.. Wenn ich eine Zip_datei anhängen will dann steht nach der Auswahl der Datei im Feld "Anhang:" irgendeine Zahl mit der endung .txt ???? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Angelika Hädrich Ehrenmitglied V.I.P. h.c. Application Engineer
Beiträge: 5123 Registriert: 12.07.2000 Der erreicht am meisten, der immer auch anders kann, als er vorhatte.
|
erstellt am: 31. Jul. 2002 14:55 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Hi Gotti, nicht verzagen, das ist schon OK so, im Posting erscheint dann wieder Deine Datei WASWEISSICH.ZIP, ich war beim allerersten Anhang auch überrascht, hab nur einfach bestätigt und siehe es war richtig. Das ist bestimmt irgendeine interne Notwendigkeit - müsste man höchstens mal die Admins befragen.... Gruss Angelika Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Gotti Mitglied
Beiträge: 67 Registriert: 21.07.2002 P2000 1GB Autocad 2000/Map4
|
erstellt am: 31. Jul. 2002 15:14 <-- editieren / zitieren --> Unities abgeben:
Danke Angelika, ich hoffe es geht. In der Datei ist ein Block drin, muss irgendwie verschachtelt sein?? Es muss schlussendlich die Zahl im Attribut "Wert" vom Block "F0" in der Z-Koordinate vom Block F0 stehen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 830 Registriert: 09.11.2000
|
erstellt am: 31. Jul. 2002 17:39 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Hallo Gotti, so funktioniert es bei deinem Block: (defun C:BLAHOE () (defun dxf (X) (cdr (assoc X el))) (defun dxf1 (X) (cdr (assoc X al))) (setq bn (getstring "\nBlockname : ")) (setq as (ssget (list (cons 2 bn)))) (setq n 0) (setq en (ssname as n)) (while en (setq el (entget en)) (setq pt (dxf 10)) (setq an (entnext en)) (while (wcmatch (cdr (assoc 0 (entget an))) "ATTRIB") (setq al (entget an)) (if (wcmatch (dxf1 2) "HOE*") (setq zw (read (dxf1 1))) ) (setq an (entnext an)) ) (setq pt (list (nth 0 pt) (nth 1 pt) zw)) (setq el (subst (cons 10 pt)(assoc 10 el) el)) (entmod el) (entupd en) (setq n (1+ n)) (setq en (ssname as n)) ) (prompt (strcat "\nEs wurden " (itoa n) " Blöcke auf Höhe gelegt! ")) ) (princ) (princ "\nFunktion geladen. Mit Befehl: BLAHOE aufrufen! ") (princ) Viel Erfolg! ------------------
gruß stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3373 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: 14. Okt. 2010 10:11 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Servus Kann man den Code so ändern das er die Höhe in den Y-Wert und nicht in den Z-Wert schreibt? (Sicher einfach aber ich "sehe" es nicht) ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3373 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: 14. Okt. 2010 10:20 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Servus Kann man den Code so ändern das er die Höhe in den Y-Wert und nicht in den Z-Wert schreibt? (Sicher einfach aber ich "sehe" es nicht) ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3373 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: 14. Okt. 2010 10:22 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
Servus Kann man den Code so ändern das er die Höhe in den Y-Wert und nicht in den Z-Wert schreibt? (Sicher einfach aber ich "sehe" es nicht) ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 2995 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 15. Okt. 2010 09:10 <-- editieren / zitieren --> Unities abgeben: Nur für Gotti
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist! warum erscheint ein so alter Beitrag in der Liste mit Datum 14.10.2010 wenn es keinen Eintrag gibt ?? CU cw
------------------ cadwomen™ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |