---

Hallo

Vielleicht kann mir ja jemand helfen habe folgendes Problem.

Ich habe einen Block der in verschiedenen Skalierungen eingefügt wurde und möchte diese Blöcke jetzt alle in der Y-Richtung um 100% vergrößern ohne den Block neu anlegen zu müssen.

Danke schon mal im voraus.
Martin

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

---

hallo,

wenn du den block anklickst, dann kannst du im eigenschaftenfenster die zoomfaktoren in x-, y- und z-beliebige richtung ändern.

carmelli.

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

---

bearb_zu_basis.zip

Servus Martin,

Willkommen im Forum,
trag doch bitte in Deinem Profil Deine ACAD Version ein... http://ww3.cad.de/cgi-bin/ubb/ubbmisc.cgi?action=getannounce&ForumNumber=54&Start=2453183.99&End=2453218&Session=
Zum Thema:
such dir einen 1:1 skalierten Block mit dem entsprechenden Namen
öffne Ihn mit refedit und skaliere alle Objekte darin nur in X
schließe den Block wieder.

schau dir mal das angehängte Lisp an evtl. ist das was für Dich.

oder Guckst Du auch hier: http://ww3.cad.de/foren/ubb/Forum54/HTML/004509.shtml

Gruß Wolfgang

[Diese Nachricht wurde von Wolli am 29. Jul. 2004 editiert.]

[Diese Nachricht wurde von Wolli am 29. Jul. 2004 editiert.]

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

---

@Wolli (Wolfgang)
Danke für deine Mühe aber soweit ich weiß ist es so das wenn ich die Referenz bearbeite der Wert für die Skalierung gleich bleibt.

Das Problem ist das ich den Block nicht neu anlegen kann bzw. ich für die weitere Bearbeitung den Wert für die Y-Skalierung auslesen muss und dieser dann der doppelten Wert des bisherigen Wertes sein soll.
Hört sich umständlich an ist auch so.

Würde wahrscheinlich am besten mit einem Lisp funktionieren.
Da ich damit leider bisher keine Erfahrungen habe dacht ich mir ich könnte mal hier nachfragen ob es auch noch andere Wege gibt.

MfG
Martin

------------------
Intel P4 2,66 GHZ
1GB RAM
WIN XP PRO SP 1
AutoCAD 2004 SP 1a GERMAN

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

---

hast du das denn nicht getestet?

wenn du den block anklickst, dann kannst du im eigenschaftenfenster die zoomfaktoren in x-, y- und z-beliebige richtung ändern.

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

---

Im Eigenschaftsdialog kann man aber nicht mit einem Faktor like "Mal 2" arbeiten - nur mit einem festen Wert.

Dies ist hier aber nötig : "unterschiedlich skalierte Blöcke..."

Oder lese ich das einfach zu umständlich ?

------------------
- Sebastian -

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

---

Im Eigenschaftsfenster kann ich das nicht ändern, da dann immer *VARIIERT* in der jeweiligen Zeile steht. Wie ich schon sagte haben alle verschiedene Skalierungen und ich im Eigenschaftsfenster nun mal nur Absolut Werte eingeben kann (wenn ich mich irre belehrt mich bitte eines besseren.)

Ich könnte jetzt jeden einzelnen im Eigenschaftsfenster ändern was mir bei ein paar hundert Blöcken eigentlich ersparen wollte.

------------------
Es gibt 10 Typen von Menschen.
1. Die Binär lesen können.
2. Die Binär nicht lesen können.

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

---

Zitat:

---

Original erstellt von cadffm:
Im Eigenschaftsdialog kann man aber nicht mit einem Faktor like "Mal 2" arbeiten - nur mit einem festen Wert.

Dies ist hier aber nötig : "unterschiedlich skalierte Blöcke..."

Oder lese ich das einfach zu umständlich ?

---

Nein, Du hast schon Recht. Du kannst die Werte für die X-, Y- und Z-Skalierung aus den Entitylisten der Blockreferenzen auslesen, und Du kannst sie dann recht leicht abändern, z.B. mit dem Tool SSMOD, dass Du Dir kostenfrei aus http://www.archdim.de/SSMOD.LSP downloaden kannst.

Einfacher ist es mit dem Blockmanager aus meinen ArchTools, der hat nämlich genau die von Dir gewünschte Funktion eingebaut. Du kannst Dir die Demoversion aus http://www.archtools.de downloaden und hast hiermit meine Erlaubnis, diese Funktion (nicht die Bemaßungs- oder Flächenermittlungsfunktionen!) für die Demo-Laufzeit auch gewerblich nutzen zu dürfen.

Gruß
Tom Berger

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

---

Zitat:

---

Original erstellt von tom.berger:
Nein, Du hast schon Recht. Du kannst die Werte für die X-, Y- und Z-Skalierung aus den Entitylisten der Blockreferenzen auslesen, und Du kannst sie dann recht leicht abändern, z.B. mit dem Tool SSMOD, dass Du Dir kostenfrei aus http://www.archdim.de/SSMOD.LSP  downloaden kannst.

Einfacher ist es mit dem Blockmanager aus meinen ArchTools, der hat nämlich genau die von Dir gewünschte Funktion eingebaut. Du kannst Dir die Demoversion aus http://www.archtools.de  downloaden und hast hiermit meine Erlaubnis, diese Funktion (nicht die Bemaßungs- oder Flächenermittlungsfunktionen!) für die Demo-Laufzeit auch gewerblich nutzen zu dürfen.

Gruß
Tom Berger

---

Danke

Aber das Lisp ssmod.lsp funktioniert bei mir anscheinend nicht richtig.
Mach ich da was falsch???

Befehl: newscale

Objekte wählen: 1 gefunden

Objekte wählen:

Skalierung X,Y(,Z): 1,2,1
; Fehler: Zu wenig Argumente

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

---

Zitat:

---

Original erstellt von marwin79:
Aber das Lisp ssmod.lsp funktioniert bei mir anscheinend nicht richtig.
Mach ich da was falsch???

Befehl: newscale

Objekte wählen: 1 gefunden

Objekte wählen:

Skalierung X,Y(,Z): 1,2,1
; Fehler: Zu wenig Argumente

---

Huch.

Der Befehl NEWSCALE ist nur versehentlich in die Datei reingerutscht, der hilft Dir sowieso nicht weiter, weil der nur absolut skaliert, wenn er nicht sowieso vor Fehlern strotzen würde.

Du kannst mit wenig Aufwand NEWSCALE von den Fehlern bereinigen und auf Deine Bedürfnisse umschreiben, ansonsten musst Du schon die ArchTools-Demo-Version und das darin enthaltene Blockmanager-Modul verwenden, wenn Dir niemand sonst eien Lösung gibt.

Tom Berger

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

---

Ich habs schon mit den ArchTolls probiert und funktionirt einwandfrei.
Danke nochmals für diesen Hinweis.

Martin

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

---

.. Prima ,wenns mit den Archtools geklappt hat!

Und für alle, die Interesse an Open-Source haben, oder sich vielleicht doch mal etwas intensiver mit LISP beschäftigen wollen :

(defun INSERT-SCALE (AUSWAHL X Y Z / NAME OBJEKT OBJEKTDATEN BLOCKDEF INDEX)
  (setq NAME(cdr(assoc 2 (entget (ssname AUSWAHL 0)))))
  ; und jetzt alle Blockreferenzen auf Blattebene updaten ..
  (setq INDEX -1)
  (if(setq AUSWAHL (ssget "_X"  '((0 . "INSERT"))))
  ;(ssget "_X" (list '(0 . "INSERT")(cons 2  NAME) ))) funzt nicht bei unbenannten Blöcken !
    (repeat (sslength AUSWAHL)
      (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX)))))
      (if(=(strcase(cdr(assoc 2 OBJEKTDATEN))) (strcase NAME))
        (progn         
           (setq OBJEKTDATEN(subst(cons 41 (* (cdr(assoc 41 OBJEKTDATEN)) X))
                                  (assoc 41 OBJEKTDATEN)
                                  OBJEKTDATEN
                            )
           )
           (setq OBJEKTDATEN(subst(cons 42 (* (cdr(assoc 42 OBJEKTDATEN)) Y))
                                  (assoc 42 OBJEKTDATEN)
                                  OBJEKTDATEN
                            )
           )
           (setq OBJEKTDATEN(subst(cons 43 (* (cdr(assoc 43 OBJEKTDATEN)) Z))
                                  (assoc 43 OBJEKTDATEN)
                                  OBJEKTDATEN
                            )
           )
           (entmod OBJEKTDATEN)
        )
      )
    )
  )
  ; und jetzt alle Blockreferenzen in verschachtelten Blöcken..         
  (while (setq BLOCKDEF (tblnext "BLOCK" (null BLOCKDEF)))
    (if (and(/=(logand(cdr(assoc 70 BLOCKDEF))4)4)
            (or(/= (logand(cdr(assoc 70 BLOCKDEF))1)1)
               (=(substr (cdr(assoc 2 BLOCKDEF)) 1 2) "*U")
            )
        )
      (progn
        (setq OBJEKT (cdr (assoc -2 BLOCKDEF)))
        (while OBJEKT
          (setq OBJEKTDATEN (entget OBJEKT))
          (if (and (=(cdr(assoc 0 OBJEKTDATEN)) "INSERT") 
                   (=(cdr(assoc 2 OBJEKTDATEN))     NAME)
             )
           (progn
              (setq OBJEKTDATEN(subst(cons 41 (* (cdr(assoc 41 OBJEKTDATEN)) X))
                                     (assoc 41 OBJEKTDATEN)
                                     OBJEKTDATEN
                               )
              )
              (setq OBJEKTDATEN(subst(cons 42 (* (cdr(assoc 42 OBJEKTDATEN)) Y))
                                     (assoc 42 OBJEKTDATEN)
                                     OBJEKTDATEN
                               )
              )
              (setq OBJEKTDATEN(subst(cons 43 (* (cdr(assoc 43 OBJEKTDATEN)) Z))
                                     (assoc 43 OBJEKTDATEN)
                                     OBJEKTDATEN
                               )
              )
              (entmod OBJEKTDATEN)
            )
          )
          (setq OBJEKT (entnext OBJEKT))
        )
        (entupd (cdr (assoc -2 BLOCKDEF)))
      )
    )
  )
)

(defun C:INSERT-SCALE ( / AUSWAHL X Y Z )
  (if (and(setq AUSWAHL (ssget "_:S" '((0 . "INSERT"))))
          (setq X (getreal "\nRelativen Vergrößerungsfaktor X : "))(> X 0)
          (setq Y (getreal "\nRelativen Vergrößerungsfaktor Y : "))(> Y 0)
          (setq Z (getreal "\nRelativen Vergrößerungsfaktor Z : "))(> Z 0)
       )
    (progn
      (INSERT-SCALE AUSWAHL X Y Z)
      (command "._regen")
    )
    (princ "\nKeine Blockreferenz gewählt!\n")
  )
  (princ)
)

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

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

---

Danke auch Dir

Muss Zugeben das mir diese Variante noch besser gefällt :-)

Werd das gleich mal testen

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

---

@CADmium

Danke nochmals funktioniert wunderbar.

mfg
Martin

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