---

Hallo Leute,

ich will Gruppen in Blöcke umwandeln. Nach einigem probíeren habe ich folgenden Code geschrieben:

  (setq gliste (GET-GNAMESFROMDIC))
  (setq z 0)
  (repeat (length gliste)
    (setq gruppe (cdr(nth z gliste)))
    (if (= "*" (substr gruppe 1 1))
      (setq blockname (substr gruppe 2 (-(strlen gruppe)1)))
      (setq blockname gruppe)
      );if
    (command "_.select" "_group" gruppe "")
    (command "_-block" blockname "0,0" (entlast) "")
    (setq liste (cons blockname liste))
    (setq z (+ z 1))
    )
(setq z 0)
(while (nth z liste)
  (command "_-insert" (nth z liste) "0,0" "1" "1" "0")
  (setq z (+ 1 z))
  )

läuft soweit ganz gut. Zeitmessungen bis zu 1000 Gruppen in einer Zeichnung: 2 mS/Gruppe
Wenn ich jetzt jedoch 5000 Gruppen in Blöcke umwandeln will geht die Zeit extrem nach oben. Bis zu einer Sekunde/Gruppe. Im Mittel so um die 75 mS. Hat jemand eine Erklärung?
Die Abfrage nach dem Stern habe ich für unbenannte Gruppen eingebunden und sollte ohne Relevanz sein.

------------------
Gruss bu

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

---

Vorab: Ein Objekt kann in mehreren Gruppen enthalten sein .. ist das dann sinnvoll in Blöcke zu übernehmen ?

dann
(repeat (length gliste)
    (setq gruppe (cdr(nth z gliste)))
    (setq z (+ z 1))
 

besser
(repeat (length gliste)
    (setq gruppe (cdr(car gliste)))
    ...
    (setq gliste(cdr gliste))
)

sonst sucht der Interpreter sich in langen Listen tot .. wie du ja bemerkt hast

commands schlucken auch noch rechenzeit ....

Gruppen können auch Objekte in anderen Layouts zusammenfassen.
da klappts dann aber nicht mit den commands

usw.

------------------
  - 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,

danke für die schnelle Hilfe. Die Umstellung auf "cdr" hab ich gemacht und bringt auch meines Erachtens etwas. Das mit dem Objekt in mehreren Gruppen, brauche ich nicht zu befürchten da es sich um konvertierte Zeichnungen aus 3D handelt. Es ist ein erster Schuss. Wenn das noch mehr Intelligenz bekommen soll, werden wir profesionelle Hilfe in Anspruch nehmen. Aber vielleicht ist es ausreichend. Ich werd noch probieren mit mehreren Listen zu arbeiten, damit nicht eine einzelne Liste so groß wird.

Grüsse aus dem verregneten Süden der Republik

------------------
Gruss bu

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

---

nochwas

(command "_-block" blockname "0,0" (entlast) "")

funktioniert ?

nach deinem code würde ich eher
(command "_-block" blockname "0,0" (ssgetfirst) "") oder so nehmen

aber wie gesagt .. das ganze wechseln zwischen Auswahlsätzen, Listen , commands  ... reicht IMHO vielleicht um ne Programmlogik zu testen ...

------------------
  - 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 CADmium,

erstmal Danke für die Hilfe. Ja tatsächlich, (entlast) funktioniert gut, ohne Probleme. Mit "ssgetfirst" hatte ich bisher noch keine Berührung. Hm. So lange schon am proggen und hab es bisher noch nicht gebraucht.

------------------
Gruss bu

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

---

du wählst voher was aus ... wenn PICKFIRST auf 1 steht ,nimmt der Blockbefehl die ausgewählten Objekte ... und braucht nach eingabe des Basispunktes nix weiter ..... bei Pickfirst auf 0 wird die vorherige Auswahl ignoriert ( du kannst die den Select befehl also sparen) und dann wird entlast genommen .. was immer dasselbe Objekt ist .....

------------------
  - 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