---

Hallo miteinander,

durch eure Hilfe hat das ganze bis jetzt super funktioniert allerdings habe ich jetzt ein Problem.

In einer Zeichnung möchte ich alle Blöcke mit mit dem Namen AQA_did auf den Layer Pumpenblock legen.
Da ich einen Button mit ca. 30 solcher Funktionen hab kann ich das nicht manuell auswählen.
Wenn ich jetzt in einer Zeichnung den Button drücke läuft es soweit durch bis er eine Funktion hat bei der der Block
nicht vorhanden ist.

;legt alle genannten Blöcke auf den Layer Pumpenblock
(defun C:Pumpenblock(/ A)
  (setq A (ssget "_x" '((0 . "INSERT")(2 .
  "*AQA_did*"))))
  (sssetfirst nil nil)
  (command "_change" A "" "_properties" "_layer" "Pumpenblock" "")
)

Es kommt dann folgende Fehlermeldung die ich dann abbrechen muss. Die restlichen Funktionen laufen dann nicht mehr durch.

Befehl: (C:Pumpenblock)
_change
Objekte wählen:
Befehl: Z (LISP-Ausdruck)
Befehl: _properties
Befehl: _layer
Aktueller Layer:  "0"
Option eingeben
[?/Machen/SEtzen/Neu/Umbenennen/EIn/AUs/FArbe/Ltyp/LStärke/MATerial/Plot/FRieren
/Tauen/SPerren/ENtsperren/STatus/Beschreibung/ABstimmen]: Pumpenblock
Ungültiger Optionstitel.
; Fehler: Funktion abgebrochen
Option eingeben

Über die Suche Funktion und google habe ich schon versucht eine Lösung zu finden allerdings ohne Ergebnis. Habt ihr da vielleicht einen Tip wie man da am Besten sucht?

Vielen Dank

Grüße

Daniel Möller

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

---

(defun C:Pumpenblock(/ A)
  (if (setq A (ssget "_x" '((0 . "INSERT")(2 .
  "*AQA_did*"))))
(progn
  (sssetfirst nil nil)
  (command "_change" A "" "_properties" "_layer" "Pumpenblock" "")
)
)

------------------
Gruß
Andreas

http://kraus-cad.de

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

---

nicht goggeln .. nachdenken !!

(defun C:Pumpenblock(/ A)
  (if(and(setq A (ssget "_x" '((0 . "INSERT")(2 .  "*AQA_did*"))))
         (>(sslength A)0)
     )
    (progn
      (sssetfirst nil nil)
      (command "_change" A "" "_properties" "_layer" "Pumpenblock" "")
    )
  ) 
)

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo miteinander,

ich habe ein ähnliches Problem, nur muss ich alle Blöcke und Unterblöcke aus der Zeichnung auf einen Layer setzen. Die Unterblöcke findet Autocad mit diesem Tool aber nicht. Leider habe ich gar keine Ahnung vom proggen, ich weiß noch nicht mal ob das mit diesem Ansatz überhaupt funktionieren kann. Hab auch schon gesucht ob nicht ein anderes Programm dafür geeignet ist, bin da aber auch nicht weit gekommen... Vllt kann mir hier ja jemand weiterhelfen?

Gruß Sebastian

[Diese Nachricht wurde von SebastianB am 13. Sep. 2010 editiert.]

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

---

Zitat:

---

Original erstellt von SebastianB:
... Leider habe ich gar keine Ahnung vom proggen,...

---

ok, das ist kein Problem. Willst du es lernen?

Zitat:

---

Original erstellt von SebastianB:
... Vllt kann mir hier ja jemand weiterhelfen?

---

Ja, ich. In welcher Form stellst du dir die Hilfe vor?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Am liebsten hätte ich einfach nur das Programm, sicherlich interessiert mich auch was dahintersteckt, allerdings ist das nicht meine Aufgabe als Endanwender. Und so ein Programm professionell schreiben zu lassen lohnt nicht, die Kosten sind zu hoch für das Ergebnis bzw den Nutzen. Wenn Du z.B. sagst das Du weißt wie es geht und das der Aufwand nicht hoch ist, dann würde ich mich über ein Programm sicherlich freuen, ist der Aufwand aber zu hoch, dann wird es halt nichts 

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

---

ich denke in dem Fall ist der Aufwand ( es muss ja auch jemand Arbeit ins Programm stecken [gesteckt haben] .. und mit einem 5-Zeiler ist es hier nicht getan) zu hoch ....

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

 

Zitat:

---

Original erstellt von SebastianB:
Am liebsten hätte ich einfach nur das Programm, sicherlich interessiert mich auch was dahintersteckt, allerdings ist das nicht meine Aufgabe als Endanwender. ...

---

Ok, das ist ehrlich. Dafür ist das Forum aber nicht gedacht. Hier geht's darum, dass man sich gegenseit bei Problemen in der Programmierung hilft.
 

Zitat:

---

Original erstellt von SebastianB:
... Und so ein Programm professionell schreiben zu lassen lohnt nicht, die Kosten sind zu hoch für das Ergebnis bzw den Nutzen. ...

---

Hast du schon Angebote vorliegen, dass du diese Einschätzung machen kannst? Selbst wenn du dieses Thema in nur einer Zeichnung zu korrigieren hast, wirst du eine gewisse Zeit also einen gewissen eigenen Aufwand investieren müssen. Sagen wir mal eine Stunde. Wenn du einen eigenen Stundensatz von 40,-€ hast, das Tool 80,-€ kostet, dann hast du den job in wenigen Sekunden erledigt und eine Stunde Zeit für andere Aufgaben. Das würde bedeuten, du kannst 80,-€ investieren und bist bei 0,-€ Kosten.

 

Zitat:

---

Original erstellt von SebastianB:
... Wenn Du z.B. sagst das Du weißt wie es geht und das der Aufwand nicht hoch ist, dann würde ich mich über ein Programm sicherlich freuen, ist der Aufwand aber zu hoch, dann wird es halt nichts   

---

Richtige Feststellungen: ich weiß, wie es geht, der Aufwand ist mir jedoch im Rahmen der Forenhilfe zu hoch.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.
   

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

---

Danke erstmal für die Antworten.

Generell geb' ich dir ja recht. Dieses Forum ist zum Austausch da nicht nur zum "nehmen". Allerdings hab ich zu Anfang nicht gesagt, das ich einfach nur das Programm will, ich bin ja schon mit einem Ansatz hier her gekommen  . Wollte ja auch wissen, ob ich es selber schaffen könnte, bzw ob ihr die "fehlende Zeile" ergänzt. Und darauf habe ich ja meine Anwort bekommen, dass ich das nicht selber machen kann und das sowas noch nicht existiert.

Ja, deine Rechnung ist richtig, allerdings verzichten wir lieber generell auf den Aufwand, alle Blöcke auf den Layer zu legen, als viel Geld für ein professionell geschriebenes Tool zu investieren. Wir haben uns schon ein Angebot eingeholt, nur zu diesem Preis kann ich meinen Vorgesetzten sicher nicht überzeugen. Kosten/Nutzen-Verhältnis ist einfach zu klein...

Gruß Sebastian

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

---

Hallo Sebastian,
Du kannst Dir ja mal DIESES Lisp anschauen, vielleicht schaffst Du es ja, das entsprechend Deiner Wünsche anzupassen.

Grüsse, Henning

------------------
zur Abstimmung

Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hi Henning,

vielen Dank für den Hinweis! Dieses Tool schafft es, auch in die Unterblöcke zu gehen, allerdings ändert er alle Objekt, also Blöcke, Linien, Kreise etc. Ich will aber nur die Blöcke auf AM_0 haben.

Wie auch immer, habe versucht das Programm zu verstehen, und ich glaube auch in etwa zu erahnen wie es geht (steht ja auch als Kommentar in den Klammern) aber mir fehlt zur Zeit noch das Verständnis an welcher Schraube ich drehen muss um nur die Blöcke auf den Layer 0 zu setzen... Naja, vllt verstehe ich es noch :-)

Gruß Sebastian

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