AutoCAD VBA如何放大AutoCAD表格中的单元格

Question

是否可以放大表中的特定单元格?我在每个单元格中都有一个文本值表，需要放大到每个单元格。通常，我可以使用带有acZoomScaledRelative和边界框最大值和最小值的实体句柄放大对象。但是对于表格，单元格中的文本没有文本实体句柄。

把小孩子

Answer 1

您可以使用ActiveX getcelllextent方法来获得与表格单元格的四个角对应的坐标数组-该方法还考虑了合并单元格的可能性。

下面是一个AutoLISP实现的示例，您可以将其移植到VBA:

(defun cellextents ( obj row col / a b c d lst rtn )
(if (= :vlax-true (vla-ismergedcell obj row col 'a 'b 'c 'd))
(setq row a col c)
)
(setq lst (vlax-invoke obj 'getcellextents row col :vlax-true))
(repeat 4 (setq rtn (cons (list (car lst) (cadr lst) (caddr lst)) rtn) lst (cdddr lst)))
(reverse rtn)
)

在获得这些坐标后，您可以调用Application对象的ZoomWindow方法来缩放到由左下和右上坐标定义的窗口。