Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Rechteck als Block einfügen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Rechteck als Block einfügen (866 mal gelesen)
Nano
Mitglied



Sehen Sie sich das Profil von Nano an!   Senden Sie eine Private Message an Nano  Schreiben Sie einen Gästebucheintrag für Nano

Beiträge: 179
Registriert: 25.10.2004

erstellt am: 06. Mrz. 2006 12:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von gmk an!   Senden Sie eine Private Message an gmk  Schreiben Sie einen Gästebucheintrag für gmk

Beiträge: 667
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Nano 10 Unities + Antwort hilfreich

vor princ

(COMMAND "_-block" blname '(0 0) l005e1 "")
(COMMAND "_-insert" ......)

ciao georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



Sehen Sie sich das Profil von CAD-Huebner an!   Senden Sie eine Private Message an CAD-Huebner  Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9732
Registriert: 01.12.2003

One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11

erstellt am: 06. Mrz. 2006 13:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Nano 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz