| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Y-Werte von Punkten (768 mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 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:42 <-- editieren / zitieren --> Unities abgeben:
In Anlehnung an Z-Werte von Punkten wollte ich fragen ob es Möglich ist den Wert an die Y-Werte anzuwenden? (geht sicher einfach aber ich seh es nicht ) Code: (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)
------------------ <----- 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 |
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: 14. Okt. 2010 11:25 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3358 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: 15. Okt. 2010 10:15 <-- editieren / zitieren --> Unities abgeben:
danke Code: (setq pt (list (nth 0 pt) zw 0.0))
funktioniert Code: (setq pt (list (nth 0 pt) zw (nth 2 pt) ))
setzt zuerst Z-Wert und erst bei der 2. Anwendung auf den Block den Y-Wert------------------ <----- 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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|