| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Stiegenlauf programmieren (687 mal gelesen)
|
MONKMUTU Mitglied Techniker
Beiträge: 11 Registriert: 20.12.2012 Acad Mechanical 2011-SP2, Windows 7-SP1-32Bit, HP Compaq 6000 Pro MT PC Intel Core Duo CPU E8000 3.00 Ghz,4GB RAM NVIDIA Quadro 600
|
erstellt am: 08. Jan. 2013 13:54 <-- editieren / zitieren --> Unities abgeben:
Hallo, habe folgenden Lisp-Code jedoch benötige ich jetzt eine kleine Erweiterung.- siehe Zeichung Wer kann mir helfen? (defun C:st (/ p1 p2 os flag anz x y ap epy epx) (command "_.LINE" pause pause "") (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1) p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1) os (getvar "osmode") ) (entdel (entlast)) (setvar "osmode" 0) (setq flag T) (while flag (setq anz (getint "\n Anzahl der Steigungen eingeben: ")) (if (> anz 0) (setq flag nil) ) ) (setq x (/ (- (car p1) (car p2)) anz) y (/ (- (cadr p1) (cadr p2)) anz) ap p2 ) (command "_pline" ap) (repeat anz (setq epy (list (car ap) (+ y (cadr ap))) epx (list (+ x (car epy)) (cadr epy)) ap epx ) (command epy epx) ) (command "") (setvar "osmode" os) (princ (strcat "\n Breite: " (rtos (abs x)) " Höhe: " (rtos (abs y)) " Geschoßhöhe: " (rtos (abs (- (cadr p1) (cadr p2)))) ) ) (princ) ) ; (defun C:st+ (/ p1 p2 os flag anz x y ap epy epx) (command "_.LINE" pause pause "") (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1) p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1) os (getvar "osmode") ) (entdel (entlast)) (setvar "osmode" 0) (setq flag T) (while flag (setq anz (getint "\n Anzahl der Steigungen eingeben: ")) (if (> anz 0) (setq flag nil) ) ) (setq x (/ (- (car p1) (car p2)) (1- anz)) y (/ (- (cadr p1) (cadr p2)) anz) ap p2 ) (command "_pline" ap) (repeat (1- anz) (setq epy (list (car ap) (+ y (cadr ap))) epx (list (+ x (car epy)) (cadr epy)) ap epx ) (command epy epx) ) (command p1 "") (setvar "osmode" os) (princ (strcat "\n Breite: " (rtos (abs x)) " Höhe: " (rtos (abs y)) " Geschoßhöhe: " (rtos (abs (- (cadr p1) (cadr p2)))) ) ) (princ) ) Danke im Vorraus!
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: 08. Jan. 2013 14:46 <-- editieren / zitieren --> Unities abgeben: Nur für MONKMUTU
Erstmal Code: (command "_.LINE" pause pause "")
bewirkt, dass das Programm auf eine Eingabe wartet, das aber nicht sagt. Besser: Mit (getpoint) arbeiten - zB.
Code: (commnad "_.LINE" (getpoint "\nErster Punkt: ") (getpoint "\nZweiter Punkt: ") "" )
Und so wie für Punkte gibt’s auch (getreal) um Gleitkommazahlen abzufragen:
Code: (setq strecke1 (getreal "\nStrecke1 eingeben: "))
Und so, wie Du die Polylinie zeichnest, kannst Du auch weitere Linien zeichnen (mit Koord.Differenzen kannst Du ja umgehen ) Und falls Du mal "schräge" Linien berechnen willst schau Dir die Funktion (polar) an.
------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MONKMUTU Mitglied Techniker
Beiträge: 11 Registriert: 20.12.2012 Acad Mechanical 2011-SP2, Windows 7-SP1-32Bit, HP Compaq 6000 Pro MT PC Intel Core Duo CPU E8000 3.00 Ghz,4GB RAM NVIDIA Quadro 600
|
erstellt am: 08. Jan. 2013 16:00 <-- editieren / zitieren --> Unities abgeben:
Hallo GEOS, danke für die rasche Antwort. Nur kurz zur Aufklärung, dieser Code ist nicht vom mir. Ich habe keine Ahnung was da steht, deswegen auch die Bitte um Hilfestellung. Habe gehofft jemand wäre so net und würde mir den Code erweitern. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|