---

moin,

ich versuche mit folgendem programm einen block zu erstellen, klappt aber nicht!

(defun c:fb (/)

  (entmake (list
    '(0 . "block")
    '(8 . "0")
    '(100 . "AcDbBlockReference")
    '(2 . "test")
    (cons 10 (list 0 0 0))
  )
  );entmake

  (entmake
    (list
      '(0 . "LINE")
      '(8 . "0")
      (cons 10 (list 1 1 0))
      (cons 11 (list 2 2 0))
    )
  );entmake

  (entmake (list
    (cons 0 "endblk")
  )
  );entmake
 
);defun

fehlermeldung :
"block-flags fehlen"

------------------

MfG
Frank

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

---

dir fehklt der gc 70
(entmake (list
    '(0 . "block")
    '(8 . "0")
    '(100 . "AcDbBlockReference")
    '(2 . "test")
    (cons 10 (list 0 0 0))
    '(70 . 0)
  )
  );entmake

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

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

---

danke, jetzt geht es !

------------------

MfG
Frank

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

---

hallo,

eine frage habe ich noch :

wie stelle ich es an, eine block aus vorher ausgewählten elementen zu erstellen ?

------------------

MfG
Frank

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

---

Hallo,
2 Beiträge unter diesem, wird ein Tool empfohlen, welches, genau das, was du willst, von einem beliebigen Block in eine externe Datei als LISP-Code schreibt. Teste und schaue dir das Ergebnis an, dann weißt du wie es geht.

Bei Fragen ... kann ich wahrscheinlich antworten, da das Tool mal von mir geschrieben wurde.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

  (setq ss (ssget))
  (entmake (list (cons 0  "block") 
                (cons 8  "0") 
                (cons 100  "AcDbBlockReference")
                (cons 2  "test") 
                (cons 10 (list 0 0 0))
                (cons 70 0)))

  (setq i1 0)
  (repeat (sslength ss ) ; alle elemente des auswahlsatzes durchlauf.
    (setq ename (ssname ss i1)); und im block neu erstellen
    (setq edate (entget ename))
    (entmake edate)
    (setq i1 (1+ i1))
  )

  (entmake (list (cons 0 "endblk")))

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

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

---

danke euch beiden, schönes wochenende !

------------------

MfG
Frank

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