---

Zum Reparieren der Blockeinheit habe ich mich hier bedient:
https://ww3.cad.de/foren/ubb/Forum145/HTML/004435.shtml#000002
-----------
Mit dem oberen Beispiel habe ich mir geholfen, aber vielleicht kann ich es auch noch verstehen:

- ich habe eine leere DWG; Einheiten auf Meter, insunits auf m
- ich erstelle mit entmake einen einfachen Block (nur ein Kreuz +)
- der Block hat dabei keine "Blockeinfügeeinheit" und reagiert damit auf INSUNITSDEFSOURCE

Frage: kann man die Blockeinfügeeinheit direkt beim entmake einbauen oder muss man sie im nachhinein setzen so wie ich es gemacht habe?

Hier das entmake mit angehängter Korekturzeile:

Code:

---

(progn

            ;; Blockdefinition starten
            (entmake
                (list
                    '(0 . "BLOCK")
                    (cons 2 "Kreuz2")
                    '(70 . 0)
                    '(10 0.0 0.0 0.0)
                    '(8 . "0")
                )
            )

            ;; Horizontale Linie
            (entmake
                (list
                    '(0 . "LINE")
                    '(8 . "0")
                    '(62 . 0) ; ByBlock
                    '(10 -0.5 0.0 0.0)
                    '(11 0.5 0.0 0.0)
                    '(370 . 20)
                )
            )

            ;; Vertikale Linie
            (entmake
                (list
                    '(0 . "LINE")
                    '(8 . "0")
                    '(62 . 0) ; ByBlock
                    '(10 0.0 -0.5 0.0)
                    '(11 0.0 0.5 0.0)
                    '(370 . 20)
                )
            )

            ;; Blockdefinition beenden
            (entmake '((0 . "ENDBLK") (8 . "0")))
            ;; Blockeinheit auf Meter setzen
;            (vla-put-Units (vla-item (vla-get-Blocks(vla-get-activeDocument(vlax-get-acad-Object))) "Kreuz2") 6)

        )

---

[Diese Nachricht wurde von Peter2 am 24. Mrz. 2026 editiert.]

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

---

Hi,

Da in old AutoLISP die Einheit keine Eigenschaft des Block Objekts war/ist, muss zuerst muß der Block existieren,
dann kann man die Einheit mit anhängen.
In activex geht es easy / dein Beispiel
in Autolisp hängt die Info als xdata der Applikation ACAD an dem BLOCK_RECORD des Blocks,
dort muß man sie dann also nach dem erstellen des Blocks als xdata anhängen.
1000er Keyword ist "DesignCenter Data"

Also bleib dabei wie es jetzt ist.

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

---

 

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