---

Ist es möglich auf jeden Kontrollpunkt einer Polylinie einen Block einzufügen? Die Kontrollpunkte haben unregelmäßige Abstände (somit fällt "messen" aus)!

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

---

Hallo Harry,

mit Standard Acad wüßte ich keine Lösung - mit Lisp schon.
Folgende Zeilen sollten das für Dich erledigen:

Code:

---

(defun c:bpk ( / pl attreq bnam)
(princ "\nLWPolylinie wählen:")
(setq attreq (getvar "ATTREQ")
pl (entsel)
pl (if pl (entget(car pl)))
bnam "")
(setvar "ATTREQ" 0)
(if (and pl
(= "LWPOLYLINE" (cdr (assoc 0 pl)))
)
(progn
(while (not (tblobjname "BLOCK" bnam))
(initget 1)
(setq bnam (getstring "\nBlockname: "))
)
(bpk pl bnam)
)
(princ "\nKeine Polylinie gewählt!")
)
(setvar "ATTREQ" attreq)
(princ)
)
(defun bpk (pldata bname /)
(mapcar '(lambda (D)
(if (= 10 (car D))
(command "_.INSERT" bname (cdr D) "" "" "")
)
)
pldata
)
)
(princ "\nBPK.lsp geladen - Start mit \"BPK\"")
(princ "\nCADlon - Lisp over night!")
(princ "\nhttp://www.CADlon.de")

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

---

Funktioniert bestens. Danke

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

---

Zitat:

---

Original erstellt von Brischke:
Hallo Harry,

mit Standard Acad wüßte ich keine Lösung - mit Lisp schon.
Folgende Zeilen sollten das für Dich erledigen:

Code:

---

(defun c:bpk ( / pl attreq bnam)
  (princ "\nLWPolylinie wählen:")
  (setq attreq (getvar "ATTREQ")
        pl (entsel)
        pl (if pl (entget(car pl)))
        bnam "")
  (setvar "ATTREQ" 0)
  (if (and pl
          (= "LWPOLYLINE" (cdr (assoc 0 pl)))
          )
    (progn
      (while (not (tblobjname "BLOCK" bnam))
        (initget 1)
        (setq bnam (getstring "\nBlockname: "))
        )
      (bpk pl bnam)
      )
    (princ "\nKeine Polylinie gewählt!")
    )
  (setvar "ATTREQ" attreq)
  (princ)
  )
(defun bpk (pldata bname /)
  (mapcar '(lambda (D)
            (if (= 10 (car D))
              (command "_.INSERT" bname (cdr D) "" "" "")
              )
            )
          pldata
          )
  )
(princ "\nBPK.lsp geladen - Start mit \"BPK\"")
(princ "\nCADlon - Lisp over night!")
(princ "\nhttp://www.CADlon.de")

---

Bei Fragen ...

Grüße Holger

---

Hi.
Mal ne grundsätzliche Frage zu den LISPs: Wie kann ich LISPs in ACAD laden/anwenden. Hier im Forum werden oft Probleme mit LISPs gelöst.

Ich finde das sehr interessant und würde das auch gerne lernen, aber ich weiß noch nicht mal wie und wo ich die Textinfos (siehe Beitrag von "Brischke") speichern muss und wo/wie ich sie in ACAD lade. Das Dateiformat *.lsp ist mir bekannt - da hört's dann aber auch schon auf. 

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

---

@ VIP
Hier mein Lesezeichen (->lese den Schachinger): http://ww3.cad.de/foren/ubb/Forum54/HTML/003874.shtml
Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

[Diese Nachricht wurde von Kramer24 am 25. Juni 2003 editiert.]

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