Extrahieren des Wertes eines Blockattributs

[Papao]

Bye to all,
existiert eine Möglichkeit, den Wert eines innerhalb eines Blocks enthaltenen Attributs zu starten, um es einer Variable zuzuordnen?
der Name des Blocks und Attributs sind immer gleich, aber der Block enthält andere Attribute, die ich nicht kümmern.

Was ist die Anweisung, die den Wert des im "etc"-Block enthaltenen "formierten" Attributs extrahiert?
Danke.

 

[rpor66]

; Liste der sichtbaren Attribute (tag . value) n= Einheitsname
(defun fnlistatag(n / Sitztyp und Schleifenliste obbloc v ntag txt)
(setq Sitzt (cdr (assoc 66 (entget n))))
(setq type (cdr (assoc 0)))
(wenn (und = Sitz 1) (= Typ "Insert"))
(Progn)
(setq n (entnext n)
(Sectq und (entget n))
(Setq Loop nil)
(while (/= Schleife "seqend")
(setq ntag (cdr (assoc 2 e)))
(setq txt (cdr)
(setq obbloc (vlax-ename->vla-object n))
(setq v (vlax-get-property obbloc 'visible)
(if (= v :vlax-true)
(Setq-Liste (list append (list)))
)
(setq n (entnext n)
(Sectq und (entget n))
(Setq Schleife (cdr (assoc 0 e)))
)
)
)
Liste
)

(setq listtag)
die Liste aller Attribute der Einheit n

(setq txt (cdr (assoc "format" listtag)))
Format Attributwert

 

[Papao]

super, danke rpor66,
Jetzt versuche ich zu verstehen, wie man seinen Code so einstellt, dass er mit meinem Dialog kann:
Ich muss dies tun, damit ich eine zweite Lise nach dem erhaltenen Ergebnis reißen kann, beispielsweise:
wenn txt zurückkehrt "1" Ich möchte die Routine "a1.lsp" sonst starten
wenn es wieder "2" muss starten "a2.lsp"
"3" startet "a3.lisp" usw.

Jetzt hoffe ich, dass es funktioniert. .
Haben Sie einen Rat?

 

[rpor66]

(cond)
(sing)
(Last "a1")
; Einfügen des Befehls in die Datei a1.lsp
)
(sing)
(Last "a2")
; Einfügen des Befehls in die Datei a2.lsp
)
;etc...
)

 

[Papao]

super, danke 1000

 

[Papao]

Ich kann es einfach nicht schaffen. .

Ich dachte, Ihre erste Liste war eine Funktion und dann eine Sub, die in meiner Hauptliste erinnert werden, aber schließlich bekomme ich einen " fehlenden Argumenten" Fehler

Können Sie mir eine Hand geben, um es richtig einzurichten?

 

[rpor66]

(defun c:estraiatt(/ sel n und type listtag txt)
(setq sel (entsel "\check block: ")
(Sectq n (Auto sel)
(Sectq und (entget n))
(Setq-Typ (cdr (assoc 0 e)))
(wenn (= Typ "Insert")
(Progn)
(setq listtag)
(setq txt (cdr (assoc "format" listtag)))
(alert txt)
(cond)
(sing)
(Last "a1")
; Einfügen des Befehls in die Datei a1.lsp
)
(sing)
(Last "a2")
; Einfügen des Befehls in die Datei a2.lsp
)
;etc...
)
)
)
)

in diesem Beispiel wählt der Block ihn einzeln aus.
Sie können eine Auswahlgruppe erstellen und durch eine Schleife die verschiedenen Lasten in Folge ausführen.

 

[Papao]

der Blockname ist immer der gleiche (etc) und auch das Attribut (Format), ich will es nicht jedes Mal auswählen, aber ich möchte es direkt im Code anrufen.
Dies hilft mir in dem Moment, in dem ich in Batch (durch ein Skript) alle Dateien, die in einem Ordner enthalten sind.

Jedenfalls danke für Ihre Geduld, der Code funktioniert und ich versuche, von mir zu kommen

 

[rpor66]

(defun c:estrairanno tutteatt(/ sel n und type listtag txt c)
(setq sel (ssget "x" (cons 0 "insert") (cons 2 "etc"))))
(falls)
(Progn)
(Setq c 0)
(Repeat)
(Setq n (Name sel c))
(Sectq und (entget n))
(Setq-Typ (cdr (assoc 0 e)))
(setq listtag)
(setq txt (cdr (assoc "format" listtag)))
(alert txt)
(cond)
(sing)
(Last "a1")
; Einfügen des Befehls in die Datei a1.lsp
)
(sing)
(Last "a2")
; Einfügen des Befehls in die Datei a2.lsp
)
;etc...
)
(Setq c (1+c)
)
)
)

 

[Papao]

Ich wollte nur hier raus. !
Dann sah ich, dass du es schon getan hast!
Vielen Dank, es funktioniert super!