---

eingefügter block mit mehreren attr.
wie kann ich die attr. auf einmal verschieben?
(nicht mit den griffen)

ciao georg

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

---

Hallo Georg,

mir ist keine Funktionalität im Standard-AutoCAD-Befehlsumfang bekannt, die dieses macht.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Im grunde garnicht, dafür müßte man xtra was programmieren, was fertiges fällt mir da aber nicht ein.

------------------
- Sebastian Mattis -

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

---

Georg,

möchtest Du generell mit den Griffen nicht arbeiten? Ich verschiebe immer Attribute mit Griffen. Ist natürlich etwas umständlicher als ein Befehl "Atts_move"  , aber geht...

Lothar

[Diese Nachricht wurde von Kramer24 am 09. Mrz. 2004 editiert.]

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

---

hiermit villeicht:

(defun IS_NUM_LISTE (LISTE ANZAHL)
  (and(=(type LISTE) 'LIST)
      (=(length LISTE) ANZAHL)
      (not(vl-member-if-not '(lambda(X)(numberp X))LISTE))
  )
)

(defun MoveAttribs ( INSERT VEKTOR  / OBJEKTDATEN )
  (if (and(=(type INSERT) 'ENAME)   
  (=(cdr(assoc 0 (setq OBJEKTDATEN (entget INSERT)))) "INSERT")
  (IS_NUM_LISTE VEKTOR 3)         
      )
    (progn     
      (if (assoc 66 OBJEKTDATEN)   
        (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") 
          (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN)))))
          (if (= (cdr (assoc 0 OBJEKTDATEN)) "ATTRIB")
            (progn
              (princ "\n ATTRIBUT \n")(prin1 OBJEKTDATEN)
              (setq OBJEKTDATEN (subst(cons 10 (mapcar '+ (cdr(assoc 10 OBJEKTDATEN)) VEKTOR))
                                (assoc 10 OBJEKTDATEN)
                                        OBJEKTDATEN
                                )
              )
              (entmod OBJEKTDATEN)                       
            )
          )    
        )       
      )     
    )
  ) 
)

(defun C:MoveAttribs ( / OBJEKT PKT1 PKT2 VEKTOR)            
  (if (and(setq OBJEKT (ssget "_:S" '((0 . "INSERT")))) (setq OBJEKT (ssname OBJEKT 0)))
    (progn           
      (setq PKT1 (getpoint      " Ursprungspunkt : "))
      (setq PKT2 (getpoint PKT1 " Neuer PUNKT    : "))
      (setq VEKTOR (mapcar '- PKT2 PKT1))     
      (moveattribs OBJEKT VEKTOR)
      (command "._regen")     
    )
    (princ "\nKeine Blockreferenz gewählt!\n")
  ) 
  (princ)
) 

... ohne Errorhandling usw. aber vielleicht hilfts

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

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

---

@kramer

die ausrichtung soll beim verschieben erhalten bleiben (hier z.B: 4x untereinander). ansonsten spricht natürlich nichts gegen griffe.

@thomas

bingo 10u4you.

ps:
deine mapcar-zeilen faszinieren mich immer wieder.
noch 2x trans bei der berechnung des verschiebevektors und das ganze funzt auch im bks.

herzlichen dank!!

ciao georg

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

---

Also,
Thomas Cadmiums Tool ist klasse , aber was macht Ihr, wenn Ihr von 6 Attributen nur 3 verschieben wollt? Ich als Non-Lispler aktiviere mit gehaltener Hochstelltaste die Attribut-Griffe, und schiebe die, die ich will. Und das ganz ohne Lisp.
Wenn ich aber 20 Attribute habe, dann ist "MoveAttribs.lsp" klar im Vorteil...

Grüße, Lothar

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

---

@lothar

das mit der hochstelltaste kannte ich noch nicht.
1a tipp.

ciao georg

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

---

die 2x trans bei Berechnung des Verschiebevektors hatte ich rausgenommen.... Siehe auch http://ww3.cad.de/foren/ubb/Forum145/HTML/000438.shtml
...daraus ist das Tool abgeleitet. Man könnte auch soweit gehen, das die Attribute aller Referenzen eines Blockes berücksichtigt werden und und und ...

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

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