update mubea with BTMT information

Lisp/ssg_id.lsp

@@ -34,6 +34,10 @@
 ;; ID-ATTDEF haben und daher hier ebenfalls erfasst werden muessen, sonst
 ;; bleibt ihr ID-Attribut trotz ATTDEF für immer leer - ssg-attrib-set-on
 ;; kann nur einen Wert SETZEN, wenn der Block ueberhaupt erst hier landet).
+;; BTMT-Beladung*/SC_Entladung* (siehe pattern_btmt_beladung/
+;; pattern_btmt_entladung in cfg/export.cfg) aus demselben Grund: sonst bleibt
+;; ihre ID trotz ATTDEF leer und sie fehlen bei der zeichnungsweiten Duplikat-
+;; pruefung/Maximum-Ermittlung (ssg-id-check-all).
 (defun ssg-id-collect-blocks ( / ss-all ss-out i ename ed bname)
   (dbgf "ssg-id-collect-blocks")
   (setq ss-all (ssget "X" (list (cons 0 "INSERT"))))
@@ -50,6 +54,7 @@
               (wcmatch (strcase bname) "AP110*,AP_110*,AP60*,AP_60*,APG110*")
               (wcmatch bname "Vario*,Staustrecke*,AUS_Element*,EIN_Element*,VF_*,GF_*")
               (wcmatch bname "Separator_SP*,S-LP*,Scanner*")
+              (wcmatch bname "BTMT-Beladung*,SC_Entladung*")
               (wcmatch bname "#*")
             )
           (ssadd ename ss-out)