| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Stiegenlauf programmieren (1135 mal gelesen)
|
MONKMUTU Mitglied Techniker
Beiträge: 11 Registriert: 20.12.2012 Acad Mechanical 2011, 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: 07. Jan. 2013 10:02 <-- editieren / zitieren --> Unities abgeben:
Hallo, weiß jemand wie bzw. womit man einen Stufenlauf(2D) programmieren kann? z.B.: Ich will die Länge(4600mm) und die Steigung(32°) eingeben und es soll die Stufenanzahl automatisch berechnet werden und auf dem akt. Layer gezeichnet werden. Hat jemand eine Idee oder sogar eine Lösung. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 07. Jan. 2013 10:20 <-- editieren / zitieren --> Unities abgeben: Nur für MONKMUTU
|
MONKMUTU Mitglied Techniker
Beiträge: 11 Registriert: 20.12.2012 Acad Mechanical 2011, 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:37 <-- 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) )
[MODedit] >> hier << geht's weiter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |