---

Servus

ich möchte die Eigenschaft Beschriftung auf ja stellen von mehren Blöcken. Mit dem angehängten Code kann man die Blockeinheit umstellen, geht das auch für die Beschriftung?

Code:

---

(vl-load-com)
(vlax-for x
(vla-get-Blocks
(vla-get-activedocument
(vlax-get-acad-object)))
(vlax-put-property x "Units" 0))

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

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

---

mit dem Code ? .. Nein , das geht nicht.

P.S: das heißt , das Blockdefinitionsscannen ist schon ok .. aber "Beschriftung" ist keine Property !  Das mußt du ins ExtensionDictionary der Blockdefinition

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Mit Lisp (ActiveX) scheint das nicht zu gehen, zumindest gibt vlax-dump-object keine geeigneten Properties oder Methoden aus:

Code:

---

; IAcadBlock: Eine Blockdefinition, die einen Namen und einen Satz von Objekten enthält.
; Eigenschaftswerte:
;  Application (RO) = #<VLA-OBJECT IAcadApplication 00...
;  BlockScaling = 1
;  Comments = ""
;  Count (RO) = 1
;  Document (RO) = #<VLA-OBJECT IAcadDocument 000...
;  Explodable = 0
;  Handle (RO) = "264"
;  HasExtensionDictionary (RO) = 0
;  IsDynamicBlock (RO) = 0
;  IsLayout (RO) = 0
;  IsXRef (RO) = 0
;  Layout (RO) = AutoCAD.Application: Die Eigenschaft ist...
;  Name = "test"
;  ObjectID (RO) = 47
;  ObjectID32 (RO) = 47
;  ObjectName (RO) = "AcDbBlockTableRecord"
;  Origin = (0.0 0.0 0.0)
;  OwnerID (RO) = 44
;  OwnerID32 (RO) = 44
;  Path = AutoCAD.Application: Nicht geeignet
;  Units = 6
;  XRefDatabase (RO) = AutoCAD.Application: Keine Datenbank
; Unterstützte Methoden:
;  Add3DFace (4)
...

---

Aber ich hab hier ein Lisp gefunden, das einfach den Block komplett neu definiert, dabei Command verwendet. Denn bei -BLOCK kann man die Beschriftungsfunktiontät mit angeben.

Code:

---

Befehl: -BLOCK
Blocknamen eingeben oder [?]: test
Einfügebasispunkt angeben oder [Beschriftung]: b
Beschriftungs-Block erstellen [Ja/Nein] <J>: j
...

---

In C# VB.net gibts verschiedene Properties bezüglich Beschriftung/Annotation die man setzen kann.
Stichworte sind  db.AnnotativeDwg, btr.Annotative,  AnnotativeStates.True ...

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

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo

Teste das mal

Code:

---

(setq el (car(nentsel)))
(dumpAllProperties el 1)

(setpropertyvalue el "annotative" 1)

---

------------------
  Heinz  

[Diese Nachricht wurde von Dober Heinz am 23. Mrz. 2012 editiert.]

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

---

setpropertyvalue und dumpAllProperties gibts erst ab Version 2012 und mit nentsel kommt man auch nicht an die Blockdefinition

------------------
       - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Ja stimmt

Muss genauer lesen.

Sorry

------------------
Heinz 

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Hallo zusammen,
ich muss diesen Beitrag nochmal aufgreifen.
Gibts zu dem Thema inzwischen irgendwas funktionierendes außer die Neudefinition über command ?
Gefunden hab ich nix.

Ich hab hier einen Plan mit Blöcken die sooooo sch...  sind dass ich mich entschieden habe die Beschriftungseigenschaft dieser Blöcke auszuschalten. Leider sind es viele (6164 Blockdefinitionen und ich muss erst noch raussuchen welche ich bearbeiten muss).

Wäre super wenn das irgendwie ginge, denn mit command sind dann auch alle dynamischen Eigenschaften weg.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Du hast doch 2012 oder höher(2015), da kannst du ganz einfach das oben erwähnte setpropertyvalue für die Eigenschaft "annotative" verwenden,
natürlich auf den Block und nicht auf die Blockreferenz wie oben gezeigt.

Ein Einzeiler im fertigen Code.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Musste weg, bin wieder da.

Wenn ich es so mache:

Code:

---

(vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
  (setpropertyvalue
    (vlax-vla-object->ename blk)
    "annotative"
    0
  )
)

---

funktioniert es    DANKE

Mit tblnext bzw. einer Konstruktion mit tblobjname hats nicht funktioniert. Komisch, aber jetzt gehts ja.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Hallo,
ich habe noch ein Code-Fragment zum Thema gefunden, vielleicht hilft's:

Code:

---

;;;Flag 0 = Beschriftung aus, 1 = Beschriftung ein
;;;(JBf_Beschriftung:BlockDef "Test" 1)
(defun JBf_Beschriftung:BlockDef (name flag / )
  (regapp "AcadAnnotative")
  (entmod
    (append (entget (cdr (assoc 330 (entget (tblobjname "block" name)))))
      (list(list -3
                (list "AcadAnnotative"
                      '(1000 . "AnnotativeData")
                      '(1002 . "{")
                      (cons 1070 flag)
                      (cons 1070 flag)
                      '(1002 . "}")
                      )
                )
          )
      )
    )
  (princ))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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