| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | Von Digital Twins bis Hochleistungs-Computing: PNY präsentiert seine Zukunftstechnologien für die Industrie von morgen, eine Pressemitteilung
|
|
Autor
|
Thema: Y-Werte von Punkten (1005 mal gelesen)
|
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
   Beiträge: 3449
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: 3449
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 >>)
 |
Foren auf CAD.de
| 
