---

Dieser Code funktioniert bei einem Anwender unter AutoCAD 2008 nicht - auf älteren AutoCAD Versionen funktioniert er einwandfrei, wenn man den neuerdings notwendigen Gruppencode 280 aus den ATTDEF und ATTRIB Listen entfernt.

Könnte das jemand mal überprüfen?

Danke
Tom

Code:

---

(defun c:bl-test (/ oldattmulti name)
  (setq oldattmulti (getvar "ATTMULTI"))
  (setvar "ATTMULTI" 0)
  (entmake '(
            (0 . "BLOCK")
            (2 . "*A")
            (70 . 3)
            (10 0.0 0.0 0.0)
            )
  )

  (entmake '(
            (0 . "ATTDEF")
            (100 . "AcDbEntity")
            (67 . 0)
            (8 . "TEST")
            (62 . 0)
            (100 . "AcDbText")
            (10 0.0 0.0 0.0)
            (40 . 1.0)
            (1 . "TEST")
            (50 . 0.0)
            (41 . 1.0)
            (51 . 0.0)
            (7 . "STANDARD")
            (71 . 0)
            (72 . 0)
            (11 0.0 0.0 0.0)
            (210 0.0 0.0 1.0)
            (100 . "AcDbAttributeDefinition")
            (3 . "TESTFRAGE")
            (2 . "TEST")
            (70 . 0)
            (73 . 0)
            (74 . 0)
            (280 . 1)
            )
  )

  (if (setq name (entmake '((0 . "ENDBLK"))))
    (progn

      (entmake (list
                '(0 . "INSERT")
                (cons 2 name)
                '(8 . "TEST")
                '(66 . 1)
                '(10 0.0 0.0 0.0)
                '(41 . 1.0)
                '(42 . 1.0)
                '(43 . 1.0)
                '(50 . 0.0)
                '(70 . 0)
                '(71 . 0)
                '(44 . 0.0)
                '(45 . 0.0)
                '(210 0.0 0.0 1.0)
              )
      )

      (entmake '(
                (0 . "ATTRIB")
                (100 . "AcDbEntity")
                (67 . 0)
                (8 . "TEST")
                (100 . "AcDbText")
                (10 0.0 0.0 0.0)
                (40 . 1.0)
                (1 . "TEST")
                (50 . 0.0)
                (41 . 1.0)
                (51 . 0.0)
                (7 . "STANDARD")
                (71 . 0)
                (72 . 0)
                (11 0.0 0.0 0.0)
                (210 0.0 0.0 1.0)
                (100 . "AcDbAttribute")
                (2 . "TEST")
                (70 . 0)
                (73 . 0)
                (74 . 0)
                (280 . 1)
                )
      )

      (entmake '(
                (0 . "SEQEND")
                )
      )
    )
  )
  (setvar "ATTMULTI" oldattmulti)
)

---

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

---

Bei mir gehts (getestet mit AutoCAD Civil 3D 2008 SP1)

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Bei mir gehts (getestet mit AutoCAD Civil 3D 2008 SP1)

---

Danke für's Testen - ich hätte es mir auch kaum anders vorstellen können.

Hast Du denn irgend eine Idee, welche Einstellung auf einem Rechner diesen Codeschnipsel ins Leere laufen lassen könnte? Beim Kunden läuft das Programm ohne jede Fehlermeldung durch, aber die Blockreferenz mit dem ATTRIB wird nicht erzeugt (einfacher Test mit (entlast) zeigt das zuverlässig an). Wenn ich aber statt eines anonymen einen benannten Block erzeuge, dann klappt alles.

Ich steh' da ziemlich auf dem Schlauch, weil mir wirklich nichts mehr einfällt. SP1 hat der Kunde installiert, wie mir bestätigt wurde.

Gruß
Tom

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