"mq" というレイヤーで mtext をフィルタリングする文字列

[Mano63]

すべてのユーザーに良い夕方,
mtext で表現された数百のデータフィールドを持つ計画があります。 (各mtextは関連するレティーノの平方メートルの数を示しています) "mq" というレイヤーで。
ウィンドウで "mq" レイヤーでのみ mtext を選択し、mtext の合計を返します。 (既存のmtext上でクリック)お問い合わせ
既に使用している lisp を添付しますが、mtext を sqm レイヤーにフィルタリングしませんが、全て選択します。「mq」レイヤーのmtextをフィルタリングするために、添付した lisp に追加する魂(および専門家)をいくつか理解しています。1つのウィンドウですべての図面を選択することで、添付のdwgでテストを行うことができます (「mq」レイヤーのmtextはcyan-colored) そして、合計の戻りのためにクリックされるテキストは「totalemq」と書かれています。
お問い合わせ

 

[rpor66]

(defun c:caarea(/ sel mtext obj sum) )
(prompt "\nselect デザイン領域: "
(cons 0 "mtext") (cons 8 "mq"))))
(setq合計(fnestraidati sel))
(/= sum nil の場合)
(プログ)
(setq sing "\nselect totalmq: ")
(Sectq n (カルセル)))
(setq obj (vlax-ename->vla-object n))))
(vlax-put-property obj "textstring" (strcat "totale sqm" (rtos sum 2))))
)
)
)

(defun fnestraidati(ssel / n testo)) )
(setq カウント 0 値 0.0)
(repeat (sslength の sel))
(setq n (ssname sel カウント))
(setq テキスト (cdr (assoc 1 (entget n))))))))
(setq値(+値))))
(setq カウント (+ カウント 1)))
)
バリュー
)

; 組織を選択するために必要な関数。 entsel 関数を使用します。
(defun sing (strprompt/a)) )
(ただし (setq a) ではありません)
ツイート
)

お問い合わせ

 

[Mano63]

ありがとうございます。
わたしは、わたしを追いかけなかったことを願っています。 うまく機能し、文字の「total square Meter」を削除し、数値だけを数値に差し込みます。
残念ながら、私の仕事は、これらの日に、かなり退屈しています。 私は非常に少数の層で働いています、そして私はこのようなコマンドがなかった場合、レイヤーを分離することなく行動できるようにします。 . . .
ありがとうございました!