---

Hallo Forum

Viele Fragen konnete ich durch die Suchfunktion lösen.
Aber bei dieser hänge ich irgendwie obwohl ich einige ähnliche Beiträge gefunden habe.

Ich habe einen Zeichnungskopf als Block namens "CAL-TITLE"
In diesem befinden sich ca. 20 Attribute.

Wenn ich den Block in Ursprung setze kann ich die einzelnen Attribute über:

(setq a (ssget "X" '((0 . "Attdef") (2 . "GEN-TITLE-KON*"))))
(setq liste1 (entget (ssname a 0)))
(setq liste1 (subst (cons 1 "test")(assoc 1 liste1) liste1))
(entmod liste1)

Ansprechen und abändern.

Aber wie kann ich die Attribute ansprechen wenn der Block noch "ganz" ist?

Grüsse Dolcetto

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

---

dieser Beitrag sollte dir weiterhelfen, Speziell die Funktion
(UPDATE-Title-Block  INSERTNAME ATTRIBNAME  ATTRIBWERT)

------------------
      - 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

---

Habe diesen Beitrag sicherlich schon x-mal gesehen,
aber erst jetzt richtig verstanden...

habe es gefunden was ich gesucht habe.

DANKE

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

---

Hallo Zusammen,

wie kann ich den Vorgabewert eines Attributes abfragen ?

Gruß
Paul

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

---

 

Zitat:

---

Original erstellt von mundal:
Hallo Zusammen,

wie kann ich den Vorgabewert eines Attributes abfragen ?

Gruß
Paul

---

indem du die Eigenschaften-konkret den Textstring- der zum Attribut gehörenden Attributdefinition im Block auswertest  

------------------
      - 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

---

Hallo Thomas,
und dabei wollte ich doch nur wissen wie das über LISP-Befehlszeile aussieht.

Gruß
Paul

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

---

Wie Cadmium sagt in der Blockdefinition
mit (tblobjname "block" "deinblock") und entnext zum gewünschten Attribut durchhangeln und unter gc 1 sollte dann der Vorgabewert stehen

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

... na ja .. ist immer die Frage woher man kommt ... wenn ich eine Blockreferenz gewählt habe ( den Blocknamen kenne )und mich dann durch die Attribute hangele mir den Tagstring und die Position des entsprechenden Attributs merke und damit die Blockdefinition durchscanne ...
nur per Attribut anklicken müssen ja noch Eigentümer usw ermittelt werden.

Anbei mal ein Code, der über den Tagstring geht (Attributsposition in der Attributsliste kann man als absicherung noch einbauen) - geht also nur bei nicht gleich benannte Attributen im Block :

(defun GETDEFAULTATTVALUE(ATTRIB / TAGSTRING DOC OWNER BLOCK TEXTSTRING)
  (vl-load-com)
  (if(and(setq ATTRIB(cond              
                       ((=(type ATTRIB) 'VLA-object) ATTRIB)
                       ((=(type ATTRIB) 'Ename) (vlax-ename->vla-object ATTRIB))   
                     )
         )
(=(strcase(vla-get-objectname ATTRIB))"ACDBATTRIBUTE")
(setq TagString (vla-get-TAGSTRING ATTRIB))
(setq DOC  (vla-get-document ATTRIB))
         (setq OWNER(cond
                        ((>(vl-string-search "x64" (getvar "PLATFORM"))0)                         
                            (vlax-invoke-method
                               DOC 'ObjectIdToObject32 (vla-get-ownerid32 ATTRIB)
                            )                           
                        )                    
                        ('T                        
                            (vlax-invoke-method
                              DOC 'ObjectIdToObject (vla-get-ownerid ATTRIB)
                            )                         
                        )
                   )    
         )
         (setq BLOCK(vla-get-Name OWNER))
(setq BLOCK(vla-item (vla-get-BLOCKS DOC) BLOCK))
     )
    (vlax-for ITEM BLOCK
      (if(and(=(strcase(vla-get-objectname ITEM))"ACDBATTRIBUTEDEFINITION")
     (=(strcase(vla-get-Tagstring ITEM))(strcase TAGSTRING))
)
(progn
  (setq TEXTSTRING(vla-get-textstring ITEM))  
)
      )
    )
    TEXTSTRING
  )
) 

Aufruf mit:
 
(GETDEFAULTATTVALUE(car(nentsel)))

------------------
      - 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