---

hallo!

möchte gerne einen block an einer linie ausrichten.
was läuft hier falsch? (block dreht sich nicht)

(DEFUN c:blockdrehen ()
(SETQ wahl (ENTSEL "Linie wählen: ")
      element (ENTGET (CAR wahl))             
      anfp (CDR(ASSOC 10 element))
      endp (CDR(ASSOC 11 element))
      riwi (ANGLE anfp endp)
)                             
(SETQ ele (ENTGET(CAR(ENTSEL))))                      ;block waehlen
(SETQ ele (SUBST (CONS 50 riwi) (ASSOC 50 ele) ele))  ;gruppencode geaendert
(ENTMOD ele)                                          ;block zurueckschreiben
(COMMAND "regen")                                 
) ; ende defun c:blockdrehen

ciao georg

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

---

Der code ist ok. Vielleicht ist der Layer gesperrt?

Versuch mal _align

------------------
Gruß
CADwiesel

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

---

hi cadwiesel!

sorry, hab vergessen dass an dem block noch ein attribut hängt, das
sich auch drehen soll. gibt's eine lisp-funktion, die mir den block samt attr. auf einmal dreht, oder muss ich die attr. extra drehen?
(dummerweise ist der basispinkt des attr. nicht gleich dem basispunkt des blocks; drehung wird dann wohl auf eine transformation rauslaufen).

gruss georg

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

---

Hi,
drehe doch einfach mittels "(command "_.rotate"....)"

------------------
Ciao,
Marc

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

---

Zitat:

---

Original erstellt von gmk:
hi cadwiesel!

...drehung wird dann wohl auf eine transformation rauslaufen).

gruss georg

---

Hi Georg,

genau so ist das. Willst du das ohne (command ...) hinkriegen ist es ein wenig Koordinatenrechnen.
In komplizierten Fällen verschiebe ich dann immer das BKS, damit mir das der (trans ...)-Befehl macht.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Neue Tool's im Free-&Download
Zugang zum Download schon gesichert?

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

---

Servus

Wie wärs damit:

(defun c:drblk-allAttr ()
  (SETQ wahl (ENTSEL "Linie wählen: ")
      element (ENTGET (CAR wahl))             
      anfp (CDR(ASSOC 10 element))
      endp (CDR(ASSOC 11 element))
      riwi (atof (angtos (ANGLE anfp endp) 2 10))
  ) 
  (if (setq obj (entsel "\nZu drehenden Block auswählen: "))
    (progn
      (setq objname (car obj))
      (command "_change" objname "" "" "" riwi)  ; damit ist einmal der Block gedreht
      (if (cdr (assoc 66 (entget objname)))  ; wenn Attribute folgen
        (while (= "ATTRIB" (cdr (assoc 0 (setq attrlist (entget (setq attrname (entnext objname)))))))
          (command "_attedit" "" "" "" "" attrname "wi" riwi "")
          (setq objname (entnext objname))
        )
      )
    )
  )
)

Anmerkung zu ANGTOS:
(angtos Winkel Modus Genauigkeit)

Wir arbeiten mit GON daher hier der Modus 2 -  ist entsprechend anzupassen.

Gruß, Ernst

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

---

Hi Geos,
irre ich mich, oder drehen sich die Attribute bei:
(command "_change" objname "" "" "" riwi)
nicht 'eh schon mit?!

------------------
Ciao,
Marc

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

---

(command "_change" objname "" "" "" riwi)  dreht alles!

danke an alle!

schönes wochenende
georg

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

---

noch ein kleiner nachtrag.

beim aufruf folgender funktion

(defun c:ausrichten ()
(SETQ wahl (ENTSEL "Linie wählen: ")
      element (ENTGET (CAR wahl))
      anfp (CDR(ASSOC 10 element))
      endp (CDR(ASSOC 11 element))
      riwi (atof (angtos (ANGLE anfp endp) 2 10))
)
(setq obj (ENTSEL "\nBlock/Text auswählen: "))
(WHILE obj
    (SETQ art (CDR (CADR (ENTGET (CAR obj)))))
    (if (= art "TEXT") (COMMAND "_change" objname "" "" "" "" "" riwi "")) ; damit ist der text gedreht
    (if (= art "INSERT") (COMMAND "_change" objname "" "" "" riwi))        ; damit ist der block gedreht 
    (SETQ obj (ENTSEL "\nBlock/Text auswählen: "))
)
)
;
;
;Anmerkung zu ANGTOS:
;(angtos Winkel Modus Genauigkeit)

bekomme ich diese fehlermeldung

Befehl: ausrichten
Linie wählen:
Block/Text auswählen: Unbekannter Befehl "AUSRICHTEN". Drücken Sie F1-Taste für
Hilfe.
Unbekannter Befehl "AUSRICHTEN". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "AUSRICHTEN". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "AUSRICHTEN". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "AUSRICHTEN". Drücken Sie F1-Taste für Hilfe.
20.895485

wo liegt der fehler?

gruss georg

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

---

@gmk
1. - checke mal deine variablen obj --> objname <--
2. - würde ich deine routine in z.b. gmk_ausrichten umbennen, da du
    einen autocad-befehl >ausrichten< überschreibst

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

---

@benwisch

natürlich war's die variable!!

ciao georg

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

---

Hi Marc

Hast natürlich recht.

Gruß, Ernst

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