| |
| 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: Rechteck als Block einfügen (945 mal gelesen)
|
Nano Mitglied
Beiträge: 179 Registriert: 25.10.2004
|
erstellt am: 06. Mrz. 2006 12:45 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen Möchte gerne das Rechteck als Block einfügen. Blockname ist die Variable "blname". Ziel Rechteck als Block einfügen mit Blockname (Variable "blname"). (defun c:recht2 () (setq p1 (getpoint "\nEinfügepunkt: ")) (setq laenge (getdist p1 "\nLänge: ")) (setq breite (getdist p1 "\nBreite: ")) (setq w (getangle p1 "\nEinfügewinkel: ")) (setq blname (strcat (rtos laenge) "-" (rtos breite) "-" (rtos w))) (setq p2 (polar p1 w laenge)) (setq p3 (polar p2 (+(/ pi 2)w) breite)) (setq p4 (polar p3 (+ pi w) laenge)) (command "_pline" p1 "b" "0" "0" p2 p3 p4 "s") (SETQ l005e1 ENTLAST)) (princ) )
Ich bedanke mich.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gmk Mitglied Dipl.-Ing.(FH) Vermessung
Beiträge: 669 Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 06. Mrz. 2006 12:55 <-- editieren / zitieren --> Unities abgeben: Nur für Nano
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 06. Mrz. 2006 13:56 <-- editieren / zitieren --> Unities abgeben: Nur für Nano
Code:
(defun c:recht2 ( / p1 p2 p3 p4 laenge breite w blname) (setq p1 (getpoint "\nEinfügepunkt: ")) (setq laenge (getdist p1 "\nLänge: ")) (setq breite (getdist p1 "\nBreite: ")) (setq w (getangle p1 "\nEinfügewinkel: ")) (setq blname (strcat (rtos laenge) "-" (rtos breite) "-" (angtos w))) (setq p2 (polar p1 w laenge)) (setq p3 (polar p2 (+(/ pi 2)w) breite)) (setq p4 (polar p3 (+ pi w) laenge)) (command "_pline" p1 "b" "0" "0" p2 p3 p4 "s") ; erzeuge Block mit dem Namen, der in blname gespeichert ist (command "_-block" blname p1 (entlast) "") (command "_-insert" blname p1 1.0 1.0 0.0) (princ) )
Zur Verwendung von Variablen empfehle ich MAPCARSs Tutorial. http://www.autolisp-tutorial.mapcar.net/stilfragen1.html
------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |