---

Hallo Leute,
Habe ein kleines Problem (Anfänger in Lisp)ich will doch nur die Objektwahl und die folgenden Befehle wiederholen bis der Benutzer abbricht.
Das geht sichlich ganz einfach und ich bin zu blind um das zu erkennen.
Bitte kann mir wer helfen.

Anbei mein selbstgebasteltest Lisp.
(defun c:TEXTDREHEN ()
  (setq ausw (entsel "Linenelement auswählen: "))
  (setq obj (car ausw))
  (setq pkt (cadr ausw))
  (setq orig '(0.0 0.0 0.0))
  (vl-load-com)
  (setq vlaobj (vlax-ename->vla-object obj))
  (setq opkt (vlax-curve-getClosestPointTo vlaobj pkt))
  (setq para (vlax-curve-getParamAtPoint vlaobj opkt))
  (setq vlawink (vlax-curve-getFirstDeriv vlaobj para))
  (setq winkrad (angle orig vlawink))
  (setq wink (angtos (angle orig vlawink)))
;;**************************************************************
  (setq drehobj (entsel "Objekt zum ausrichten wählen: "))
  (setq bl (entget(car drehobj)))
  (setq baspkt (cdr (assoc 10 bl)))
  (setq bl (subst (cons 50 winkrad) (assoc 50 bl) bl))
  (entmod bl)
  (command "_move" drehobj "" baspkt)
)

mfg Markus

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

---

ungetestet :

(defun c:TEXTDREHEN ()
  (while(setq ausw (entsel "Linenelement auswählen: "))
    (setq obj (car ausw))
    (setq pkt (cadr ausw))
    (setq orig '(0.0 0.0 0.0))
    (vl-load-com)
    (setq vlaobj (vlax-ename->vla-object obj))
    (setq opkt (vlax-curve-getClosestPointTo vlaobj pkt))
    (setq para (vlax-curve-getParamAtPoint vlaobj opkt))
    (setq vlawink (vlax-curve-getFirstDeriv vlaobj para))
    (setq winkrad (angle orig vlawink))
    (setq wink (angtos (angle orig vlawink)))
  ;;********************************************************  ******
    (setq drehobj (entsel "Objekt zum ausrichten wählen: "))
    (setq bl (entget(car drehobj)))
    (setq baspkt (cdr (assoc 10 bl)))
    (setq bl (subst (cons 50 winkrad) (assoc 50 bl) bl))
    (entmod bl)
    (command "_move" drehobj "" baspkt)
  )
)

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

---

Danke für die schnelle Antwort, aber es funktioniert nicht.
mfg Markus

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

---

Danke für die schnelle Antwort, aber es funktioniert nicht.
mfg Markus

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

---

mach mal nach dem
(command "_move" drehobj "" baspkt)
noch
(while (/=(getvar "CMDACTIVE")0)(command pause))

oder sowas

------------------
  - 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 Markus,
so wie CADmium es gepostet hat, aber in der Command-Zeile zum Schluß habe ich noch ein pause eingefügt, damit der Benutzer die Position des gedrehten Textes angeben kann.

Code:

---

(defun c:TEXTDREHEN ()
  (while (setq ausw (entsel "Linenelement auswählen: "))
  (setq obj (car ausw))
  (setq pkt (cadr ausw))
  (setq orig '(0.0 0.0 0.0))
  (vl-load-com)
  (setq vlaobj (vlax-ename->vla-object obj))
  (setq opkt (vlax-curve-getClosestPointTo vlaobj pkt))
  (setq para (vlax-curve-getParamAtPoint vlaobj opkt))
  (setq vlawink (vlax-curve-getFirstDeriv vlaobj para))
  (setq winkrad (angle orig vlawink))
  (setq wink (angtos (angle orig vlawink)))
;;**************************************************************
  (setq drehobj (entsel "Objekt zum ausrichten wählen: "))
  (setq bl (entget(car drehobj)))
  (setq baspkt (cdr (assoc 10 bl)))
  (setq bl (subst (cons 50 winkrad) (assoc 50 bl) bl))
  (entmod bl)
  (command "_move" drehobj "" baspkt pause)
    )
)

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Danke an alle,
mit Pause und while hat es dann funktionier.
Ging alles super. Werde auch viele Units verleihen.
mfg Markus

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