Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  AUtoCAD 2008: keine anonymen Blöcke mit Attributen möglich?

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  AUtoCAD 2008: keine anonymen Blöcke mit Attributen möglich? (389 mal gelesen)
archtools
Mitglied



Sehen Sie sich das Profil von archtools an!   Senden Sie eine Private Message an archtools  Schreiben Sie einen Gästebucheintrag für archtools

Beiträge: 823
Registriert: 09.10.2004

Entwickler für AutoCAD, BricsCAD u.a., alle Systeme

erstellt am: 14. Mai. 2008 20:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



Sehen Sie sich das Profil von CAD-Huebner an!   Senden Sie eine Private Message an CAD-Huebner  Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9732
Registriert: 01.12.2003

One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11

erstellt am: 14. Mai. 2008 20:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für archtools 10 Unities + Antwort hilfreich

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

archtools
Mitglied



Sehen Sie sich das Profil von archtools an!   Senden Sie eine Private Message an archtools  Schreiben Sie einen Gästebucheintrag für archtools

Beiträge: 823
Registriert: 09.10.2004

Entwickler für AutoCAD, BricsCAD u.a., alle Systeme

erstellt am: 14. Mai. 2008 23:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz