Excel链接表文本打印
当我在AutoCAD中将单元格数据链接到表格并发送打印时，文本为灰色。在Excel中，我将字体设置为黑色Icocp2。
与AutoCAD链接后，单元文字样式显示为黑色ICOCP2（注意大写）。然而，它打印出的是中灰色。我找到的唯一解决方案是双击每个单元格进入多行文字，并替换ACAD定义的样式，将数据ICOCP2引入已定义的ICOCP2（注意小写）。这是可行的，但有点冗长。整体更改属性不会产生任何影响。
有没有一种不用写LISP的快速解决方案？ 早晨
（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）
当做
页:
[1]