Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Auflösen von Blöcken

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:  Auflösen von Blöcken (1755 mal gelesen)
Detlef Wischmann
Mitglied
Vermessungstechniker


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

Beiträge: 95
Registriert: 15.02.2003

erstellt am: 16. Sep. 2004 17:40    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 Leute,

ich verzweifle mal wieder an meinen minimalen Lisp-Kenntnissen. Ich möchte gerne einen bestimmten Block in meiner Zeichnung per Lisp-Programm auflösen. Den Block gibt es mehrfach in der Zeichnung. Ich habe schon mal angefangen:

(setq auswahl (ssget "X" (list (cons 2 "tuer"))))
            (command "_explode" auswahl "")

Bei anderen auswahlen ausser Blöcken klappt es eigentlich. Was habe ich hier vergessen?

Viele Grüße

Detlef

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: 16. Sep. 2004 18:42    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 Detlef Wischmann 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Detlef Wischmann:
Hallo Leute,

ich verzweifle mal wieder an meinen minimalen Lisp-Kenntnissen. Ich möchte gerne einen bestimmten Block in meiner Zeichnung per Lisp-Programm auflösen. Den Block gibt es mehrfach in der Zeichnung. Ich habe schon mal angefangen:

(setq auswahl (ssget "X" (list (cons 2 "tuer"))))
            (command "_explode" auswahl "")

Bei anderen auswahlen ausser Blöcken klappt es eigentlich. Was habe ich hier vergessen?

Viele Grüße

Detlef


Ich würde noch den Objekttyp angeben:

Code:

(setq auswahl (ssget "X" (list (cons 0 "INSERT") (cons 2 "tuer"))))
(command "_explode" auswahl "")

Mit freundlichem Gruß

Udo Hübner

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 16. Sep. 2004 21:16    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 Detlef Wischmann 10 Unities + Antwort hilfreich

Probier mal die Übergabe von Einzelobjekten an (command "_explode" ..

(setq auswahl (ssget "X" (list (cons 0 "INSERT")(cons 2 "tuer"))))
(repeat(sslength AUSWAHL) 
  (command "_explode" (setq OBJ(ssname AUSWAHL 0)) "")
  (ssdel OBJ AUSWAHL)
)

------------------
- Thomas -

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

Detlef Wischmann
Mitglied
Vermessungstechniker


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

Beiträge: 95
Registriert: 15.02.2003

erstellt am: 17. Sep. 2004 07: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

Super

Vielen Dank ihr beide. Bei Udo´s Vorschlag nahm sich das Programm wirklich nur immer ein Block aus der Liste vor, Thomas ergänzung führte dann zum Erfolg. Vielen Dank an Euch beide.

Detlef

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

fuchsi
Mitglied
Programmierer c#.net Datawarehouse


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

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 20. Sep. 2004 12:31    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 Detlef Wischmann 10 Unities + Antwort hilfreich

des Rätsels Lösung:

im Gegensatz zum Autocadbefehl über die Kommandozeile/Menü akzeptiert der Befehl URSPRUNG in Lispprogrammen, bzw Scripten immer nur EIN einziges Objekt und keinen Auswahlsatz.
-> man muss über einen Auswahlsatz eine Schleife proggen, und die Elemente einzeln dem Urpsrung-Befehl zuführen.

Warum die Autodeskler das so implemeniert haben - keine Ahnung

------------------

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

mapcar
Mitglied
CADmin



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

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 20. Sep. 2004 20:33    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 Detlef Wischmann 10 Unities + Antwort hilfreich

> Warum die Autodeskler das so implemeniert haben - keine Ahnung

Denke mal, das war wie so oft: Ursprünglich hat sich ja auch der normale Befehl so verhalten - nur Einzelwahl. Das wurde irgendwann geändert, nun waren auch Auswahlsätze und meherere Objekte möglich. In Lisp hätte die Änderung dazu geführt, dass alte Programme nicht mehr laufen, weil ein "" fehlt. Also hat man's aus Gründen Abwärtskompatibiltät dabei belassen und ein paar Jahre später auch einen entsprechenden Hinweis in die Hilfe aufgenommen.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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