---

Hallo Profis
Möchte eine Symbol so drehen das es z.B 280 Grad hat, egal was vorher für Winkel eingestellt wahr.
Mächte mir ein Makro machen das mir alles Symbole auf diese einstellung Dreht
danke heinz
hoffe es ist verständlich
die symbole sind einmal mit 275, 285 usw. Grad dargestellt es ist einfach nur schlampig gezeichnet worden ich muss das wiedermal hinbiegen.

------------------
Heinz 

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

---

Hallo Heinz,
meinst du Blockreferenzen oder wirklich Symbole ?
na egal, ich würde einfach markieren, ggf über Schnellauswahl und den neuen Winkel im Eigenschaftenfenster eintragen

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

gruß
CADdog,
the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

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

---

Zitat:

---

Original erstellt von CADdog:
Hallo Heinz,
meinst du Blockreferenzen oder wirklich Symbole ?
na egal, ich würde einfach markieren, ggf über Schnellauswahl und den neuen Winkel im Eigenschaftenfenster eintragen

---

Hallo
Es sind Elektrosymbole (Schalter, Steckdose und so)
das mit schnell auswahle habe ich versucht das funkt nicht so richtig muss allle symbole auch noch auf den richtigen Platz schieben und alles symbole sind ja nicht falsch.
mit einem Makro wäre mir geholfen da kann ich mit dan den winkel einstellen anklicken fertig
danke für antwort

------------------
Heinz 

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

---

Hallo Heinz,
So kann man es auch versuchen, eine Linie im gewünschen Winkel zeichnen und dann die Symbole mit der 3D-Option "Ausrichten" an ihr ausrichten.

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

---

Zitat:

---

Original erstellt von guru2005:
Hallo Heinz,
So kann man es auch versuchen, eine Linie im gewünschen Winkel zeichnen und dann die Symbole mit der 3D-Option "Ausrichten" an ihr ausrichten.

---

Ja danke
Bin immer noch der Meinung mit Markro bin ich schneller.
weis nur nicht wie ich es angehn soll.

------------------
Heinz 

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

---

...wenn die Blöcke schon bei der Definition schief gezeichnet waren kannst Du nichts machen, außer Handarbeit.
Wenn die Blöcke aber nur unterschiedlich gedreht sind, brauchst Du, wie oben erwähnt, kein Makro, Du wählst einfach alle Blöcke aus, die den gleichen Drehwinkel haben sollen, im Eigenschaften-Fenster steht unter Drehung nun "variiert" oder so, dann gibtst Du den gewünschten Winkel ein, Tab Taste fertig!
meint
Matthias

------------------
dranbleiben...

science center kiel?

[Diese Nachricht wurde von planmatsch am 09. Feb. 2005 editiert.]

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

---

Zitat:

---

Original erstellt von planmatsch:
...wenn die Blöcke schon bei der Definition schief gezeichnet waren kannst Du nichts machen, außer Handarbeit.
Wenn die Blöcke aber nur unterschiedlich gedreht sind, brauchst Du, wie oben erwähnt, kein Makro, Du wählst einfach alle Blöcke aus, die den gleichen Drehwinkel haben sollen, im Eigenschaften-Fenster steht unter Drehung nun "variiert" oder so, dann gibtst Du den gewünschten Winkel ein, Tab Taste fertig!
meint
Matthias

ok danke versuch werde es so machen

---

------------------
Heinz 

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

---

Richtet (dreht am Basispunkt) gleichnamige Blöcke am angeklickten Referenzblock aus ... vielleicht hilft es ja in dem Fall.

Code:

---

(defun C:alignsameblocks
      (/ block blockname blockwinkel #bloecke z BLK nw)
  (command "_.undo" "_G")
  (setq block (entsel "\nVORGABEBLOCK WÄHLEN:")
block (if block
(car block)
      )
  )
  (if (and block
  (= "INSERT" (cdr (assoc 0 (entget block))))
      )
    (setq blockname  (cdr (assoc 2 (entget block)))
  blockwinkel (* (/ (cdr (assoc 50 (entget block))) pi) 180.0)
  #bloecke    (ssget "x" (list (cons 0 "INSERT") (cons 2 blockname)))
  z       0
    )
  )
  (if #bloecke
    (progn
      (princ (sslength #bloecke))
      (repeat (sslength #bloecke)
(setq block (entget (setq BLK (ssname #bloecke z)))
      z     (1+ z)
      nw    (* (/ (cdr (assoc 50 block)) pi) 180.0)
)
(command "_.rotate"
BLK
""
(cdr (assoc 10 block))
"B"
nw
blockwinkel
)
      )
    )
  )
  (command "_.undo" "_E")
)
(princ)

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Zitat:

---

Original erstellt von Proxy:
Richtet (dreht am Basispunkt) gleichnamige Blöcke am angeklickten Referenzblock aus ... vielleicht hilft es ja in dem Fall.

Code:

---

(defun C:alignsameblocks
       (/ block blockname blockwinkel #bloecke z BLK nw)
  (command "_.undo" "_G")
  (setq block (entsel "\nVORGABEBLOCK WÄHLEN:")

@Proxy
Ich will ja nicht alle Symbole drehn nur ein paar, die was nicht passen. sind immer nur ein paar pro Symbol aber bei 5 stockwerke kommt was zusammen
danke für programm kann ich auch gebrauchen
schicke dir 10 u

block (if block
(car block)
      )
  )
  (if (and block
   (= "INSERT" (cdr (assoc 0 (entget block))))
      )
    (setq blockname   (cdr (assoc 2 (entget block)))
  blockwinkel (* (/ (cdr (assoc 50 (entget block))) pi) 180.0)
  #bloecke    (ssget "x" (list (cons 0 "INSERT") (cons 2 blockname)))
  z       0
    )
  )
  (if #bloecke
    (progn
      (princ (sslength #bloecke))
      (repeat (sslength #bloecke)
(setq block (entget (setq BLK (ssname #bloecke z)))
      z     (1+ z)
      nw    (* (/ (cdr (assoc 50 block)) pi) 180.0)
)
(command "_.rotate"
BLK
""
(cdr (assoc 10 block))
"B"
nw
blockwinkel
)
      )
    )
  )
  (command "_.undo" "_E")
)
(princ)

---

---

------------------
Heinz 

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

---

so kann man auch Beiträge schinden 

------------------
dranbleiben...

science center kiel?

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