（defun删除内联样式（str/l i tru）
（setq l（strlen str）tru 1 i 0）
（while（=tru 1）
（如果（等式（substr str l 1）“；”）（setq tru nil）（setq l（1-l）i（1+i））；如果
);w
（setq str（substr str（+l 1）（+i 1）））
);d
（defun get table mtexts（/sset the table cols rows col row datum new datum）
（vl load com）
（提示“\n\>>\t选择表格”
（setq sset（ssget“_:S”'（（0。“ACAD\u表”）））
（setq表格（vlax ename->vla object（ssname sset 0））cols（vla get columns the table）rows（vla get rows the table））
;（if（eq:vlax false（vla get titlesuppressed the table））（setq行（1-行））；如果
;（if（eq:vlax false（vla get headersuppressed the table））（setq rows（1-rows））；如果
（setq第0行）
（重复行
（setq列0）
（重复cols
（setq数据（vla gettext表格行col））
（setq新基准（删除内联样式基准））
（vla settext表格row col new datum）
（setq列（1+列））
);r
（setq行（1+行））
);r
);d
（获取表格MTEXT）
置顶卡
