---

hi leute!!

hab mir hiern code geschrieben der aber irgendwie nicht funktioniert-.-

bitte um hilfe

Code:

---

(defun c: ol()(/ TYP LISTE line1 line2 lines2 line3 line4 lines3)
(setq TYP(cdr(assoc 0 (setq LISTE(entget(car(entsel)))))))
(if (= typ "INSERT")
(progn
(setq line1(cadr(assoc 10 liste)))(setq line2(caddr(assoc 10 liste)))
(setq lines2(subst (list 10 line1 line2 0.0)(assoc 10 liste)liste))
(entmod lines2)
)
(if (= typ "LWPOLYLINE")
(progn
(setq lines2(subst (cons 38 0.0)(assoc 38 liste)liste))
(entmod lines2)
)
(if (= typ "LINE")
(progn
(setq line1(cadr(assoc 10 liste)))(setq line2(caddr(assoc 10 liste)))
(setq lines2(subst (list 10 line1 line2 0.0)(assoc 10 liste)liste))
(entmod lines2)
(setq line3(cadr(assoc 11 liste)))(setq line4(caddr(assoc 11 liste)))
(setq lines3(subst (list 11 line3 line4 0.0)(assoc 11 lines2)lines2))
(entmod lines3)
)
)))
(print  " wurde auf Z 0.0 gelegt")(print))

---

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

---

sorry aber (defun c:...()()...
-.-
habs grad selber gesehen beim code reinstellen in der übersicht

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