Streichen, um Mtext auf einer Schicht namens "mq" zu filtern

[Mano63]

guten Abend für alle Nutzer,
Ich habe Pläne mit Hunderten von Datenfeldern in mtext ausgedrückt (jeder mtext zeigt die Anzahl der Quadratmeter des zugehörigen retino) auf einer Schicht namens "mq".
Ich brauche einen Befehl, der mich mit einem Fenster ausschließlich mtext auf der "mq"-Schicht auswählt und die Summe in einem mtext zurückgibt. (klicken auf einen vorhandenen mtext).
Ich befestige eine Lispe, die ich bereits benutze, aber sie filtert den mtext nicht auf der qm-Schicht, sondern wählt sie alle aus.Ich bitte etwas Verständnis Seele (und Experte) zu der angeschlossenen Lisp einen String zu filtern mtext auf der "mq" Schicht.der Test kann auf dem angeschlossenen dwg durch die Auswahl aller Zeichnung mit einem einzigen Fenster durchgeführt werden (Texte auf der "mq"-Schicht sind cyanfarbig) und der zu klickende Text für die Rückkehr der Summe ist das geschriebene "totalemq".
Danke.

 

[rpor66]

(defun c:caarea(/ sel mtext obj sum)
(Prompt "\nselect Designbereich: "
(setq sel (ssget (cons 0 "mtext") (cons 8 "mq")))
(setq sum (fnestraidati sel)
(falls (/= Summe nil)
(Progn)
(setq sel (sing "\nselect totalmq: ")
(Sectq n (Auto sel)
(setq obj (vlax-ename->vla-object n))
(vlax-put-property obj "textstring" (strcat "totale sqm" (rtos sum 2))
)
)
)

(defun fnestraidati(sel / count n testo)
(setq count 0 value 0.0)
(Repeat)
(Satzq n (ssname sel count)
(setq text (cdr (assoc 1 (entget n))))
(Satzwert (+ Wert))
(Zentralzählung (+ Zählung 1))
)
Wert
)

; Funktion, die die Einheit auswählen muss. nutzt entsel-Funktion.
(defun sing)
(nicht (Setq a))
eine
)

Bitte.

 

[Mano63]

Vielen Dank rpor66!
Ich hoffe, ich habe nicht versaut. Es funktioniert gut, und ich entfernte den Text "Total Quadratmeter", so dass nur die Menge in Zahlen eingefügt wird.
Leider ist meine Arbeit in diesen Tagen ziemlich langweilig: Ich arbeite mit sehr wenigen Schichten, und wenn ich so keine Befehle hatte, die es mir erlauben, ohne die Schichten zu isolieren, würde die Zeit mich erreichen. .
Nochmals vielen Dank und guten Tag!