---

Hai Ihr's

Ich bräuchte mal 'n lisp, das mir aus Kreisen geschlossene LWPolylinien macht.

Hat jemand was???

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

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

---

Hallo Martin,

möchtest du das in Bögen oder in Liniensegmenten (dann natürlich nur angenähert?

Holger

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

---

Grüsditsch, Holger

Am liebsten in bögen; Ist genauer.
2 reichen.
Ich würde sonst das Lisp von Jan umarbeiten müssen, hab' aber gerade nicht die Zeit.

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

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

---

Hallo Martin,

biddeschön:

;;;k->pl - Zeichnet Polylinie anstelle Kreis
;;; Kreis wird nicht gelöscht!
;;;
;;;Holger Brischke
;;;Geisberg 84
;;;66132 Saarbrücken
;;;brischke@planet-interkom.de
;;;
(defun c:k->pl (/ li obj mpt ra)
  (if (setq obj (f:select (list "CIRCLE")))
    (setq li (entget obj))
    )
  (if li
    (progn
      (setq mpt (cdr(assoc 10 li))
    ra (cdr(assoc 40 li))
    )
      (entmake (list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
(cons 8 (cdr(assoc 8 li)))
'(100 . "AcDbPolyline")
'(90 . 2)
'(70 . 1)
'(43 . 0.0)
'(38 . 0.0)
'(39 . 0.0)
(cons 10 (list (+ (car mpt) ra) (cadr mpt)))
'(40 . 0.0)
'(41 . 0.0)
'(42 . 1.0)
(cons 10 (list (- (car mpt) ra) (cadr mpt)))
'(40 . 0.0)
'(41 . 0.0)
'(42 . 1.0)
'(210 0.0 0.0 1.0)
)
      )
      )
    )
  )
(defun f:select (sel_objli  / sel_el tmp sel_el_etyp)
  (while (not sel_el)
    (setq tmp (entsel (strcat
"\nSelect "
(apply 'strcat (mapcar '(lambda (TXT)
  (strcat TXT "/ ")
  )
      sel_objli
      )
      )
)
      )
  )
    (if tmp
      (progn
(setq sel_el (car tmp)
      sel_el_etyp (cdr (assoc 0 (entget sel_el))))
(if (not (member sel_el_etyp sel_objli)
      )
  (setq sel_el nil)
  )
)
      (setq sel_el T)
      )
    );while
  (if (= (type sel_el) 'ENAME)
    sel_el
    )
  )

Kannst es Dir ja noch schön machen!

Grüße Holger

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

---

Vielen Dank

!einwandfrei!

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

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