能在cad窗口中实现象数字相关表格么?

(vl-load-com)
(defun UnFormat (Mtext KeepLF / Text Str) 
   (cond 
       ((= (type Mtext) 'VLA-Object)) 
       ((= (type Mtext) 'ENAME) 
           (setq Mtext (vlax-ename->vla-object Mtext)) 
       ) 
       (1 (setq Mtext nil)) 
   ) 
   (and 
       Mtext 
       (= (vlax-get Mtext 'ObjectName) "AcDbMText") 
       (setq Mtext (vlax-get Mtext 'TextString)) 
       (setq Text "") 
       (while (/= Mtext "") 
           (cond 
               ((wcmatch (strcase (setq Str (substr Mtext 1 2))) "\\[\\{}`~]") 
                   (setq Mtext (substr Mtext 3) 
                               Text     (strcat Text Str) 
                   ) 
               ) 
               ((wcmatch (substr Mtext 1 1) "[{}]") 
                   (setq Mtext (substr Mtext 2)) 
               ) 
               ((and KeepLF (wcmatch (strcase (substr Mtext 1 2)) "\\P")) 
                   (setq Mtext (substr Mtext 3) 
                               Text   (strcat Text "\\P") 
                   ) 
               ) 
               ((wcmatch (strcase (substr Mtext 1 2)) "\\[LOP]") 
                   (setq Mtext (substr Mtext 3)) 
               ) 
               ((wcmatch (strcase (substr Mtext 1 2)) "\\[ACFHQTW]") 
                   (setq Mtext (substr Mtext (+ 2 (vl-string-search ";" Mtext)))) 
               ) 
               ((wcmatch (strcase (substr Mtext 1 2)) "\\S") 
                   (setq Str     (substr Mtext 3 (- (vl-string-search ";" Mtext) 2)) 
                               Text   (strcat Text (vl-string-translate "#^" "     " Str)) 
                               Mtext (substr Mtext (+ 4 (strlen Str))) 
                   ) 
                   (print Str) 
               ) 
               (1 
                   (setq Text (strcat Text (substr Mtext 1 1)) 
                               Mtext (substr Mtext 2) 
                   ) 
               ) 
           ) 
       ) 
   ) 
   Text 
)(defun GetTxt(ent / ents)
   (setq ents (entget ent))
   (if (= (cdr (assoc 0 ents)) "TEXT")
       (cdr (assoc 1 ents))
       (Unformat ent nil)
   )
)(defun MakeEx(ent Handle / ss ename vname datatype data n)
   (setq n nil)
   (setq vname (vlax-ename->vla-object ent))
   (setq datatype (vlax-make-safearray vlax-vbInteger (cons 0 (length handle))))
   (vlax-safearray-fill datatype (append '(1001) (repeat (length handle) (setq n (append n (list 1000))))))
   (setq data (vlax-make-safearray vlax-vbvariant (cons 0 (length handle))))
   (vlax-safearray-fill data (append '("ForCal_meflying") Handle))
   (vla-setxdata vname datatype data)
)(defun GetEx(obj appname / xtypeOut xdataOut)
   (vla-getxdata obj "" 'xtypeOut 'xdataOut)
   (cdr (mapcar 'vlax-variant-value (vlax-safearray->list xdataOut)))
)(defun Cal (notifier-object reactor-object parameter-list / handles i ent txt Datas Result ents)
   (setq Datas nil)
   (setq handles (GetEx notifier-object "ForCal_meflying"))
   (setq i 1)
   (repeat (1- (length handles))
       (setq ent (handent (nth i handles)))
       (setq txt (GetTxt ent))
       (setq Datas (append Datas (list (atof txt))))
       (setq i (1+ i))
   )
   (setq ent (handent (car handles)))
   (setq Result (apply '* Datas))
   (setq ents (entget ent))
   (setq ents (subst (cons 1 (rtos Result)) (assoc 1 ents) ents))
   (entmod ents)
   (princ)
)
(defun MakeReactor (ent)
   (setq circleReactor (vlr-object-reactor (list (vlax-ename->vla-object ent))
                 "Reactor" '((:vlr-modified . Cal))))
)(defun c:Ass( / handles entresult ss handResult ent i)
   (setq handles nil)
   (setq entResult (car (entsel "选择结果数字...")))
   (prompt "选择数据文字...")
   (setq ss (ssget '((0 . "TEXT,MTEXT"))))
   (setq handResult (cdr (assoc 5 (entget entResult))))
   (setq i 0)
   (repeat (sslength ss)
       (setq ent (ssname ss i))
       (setq handles (append handles (list (cdr (assoc 5 (entget ent))))))
       (setq i (1+ i))
   )
   (setq i 0)
   (repeat (length handles)
       (setq ent (ssname ss i))
       (MakeEx ent (cons handResult handles))
       (MakeReactor ent)
       (setq i (1+ i))
   )
   (princ)
)