CAD表格，如何用Lisp设置单元格的边距？

天天问

个人习惯，喜欢用CAD自带的表格，因为便于随时调整格式。


找了一些资料，目前可以修改表格字体，设置表格行高、列宽，修改表格框线的线宽。


可是在设置表格框线的线宽中，发现会影响表格的单元格边距（水平单元边距、垂直单元边距）。其实以前在设置表格外框线宽的时候，就想着如何用Lisp修改单元格的边距，无奈查了好多资料，都没有找到可以实现的方法。


有没有老师得空指导一下，如何用Lisp修改单元格的边距的？


下面贴一段我写的控制单元格框线线宽的代码。

2. (defun ff:Table_set_border_009 (table_ename / obj nRows nCols i)
   
3.   (vl-load-com)
   
4.   (setq obj (vlax-ename->vla-object table_ename))  ;将图元转为VLA对象
   
5.   (setq nRows(- (vla-get-rows obj) 1))    ;获取表的行数
   
6.   (setq nCols(- (vla-get-columns obj) 1))  ;获取表的列数
   
7.   
   
8.   ;****************关闭表格的实时更新，以提高修改表格的运行速度****************
   
9.   (vla-put-HeaderSuppressed obj :vlax-true)
   
10.   (vla-put-TitleSuppressed  obj :vlax-true)
    
11.   (vla-put-regeneratetablesuppressed  obj :vlax-true)
    
12.   ;****************关闭表格的实时更新，以提高修改表格的运行速度****************
    
13.   
    
14.   (setq i 0)
    
15.   
    
16.   (while (<= i nRows)
    
17.     (setq j 0)
    
18.     (while (<= j ncols)
    
19.       (vla-setcellgridlineweight obj i j actopmask aclnwt009)
    
20.       (vla-setcellgridlineweight obj i j acbottommask aclnwt009)
    
21.       (vla-setcellgridlineweight obj i j acleftmask aclnwt009)
    
22.       (vla-setcellgridlineweight obj i j acrightmask aclnwt009)
    
23.       (setq j (1+ j))
    
24.     )
    
25.    
    
26.     (setq i (1+ i))
    
27.   )
    
28.   
    
29.   ;********************************打开表格更新********************************
    
30.   (vla-put-HeaderSuppressed obj :vlax-false)
    
31.   (vla-put-TitleSuppressed  obj :vlax-false)
    
32.   (vla-put-regeneratetablesuppressed  obj :vlax-false)
    
33.   ;********************************打开表格更新********************************
    
34.   
    
35.   (princ)
    
36. )

(defun ff:Table_set_border_009 (table_ename / obj nRows nCols i)<br />   (vl-load-com)<br />   (setq obj (vlax-ename->vla-object table_ename))  ;将图元转为VLA对象<br />   (setq nRows(- (vla-get-rows obj) 1))    ;获取表的行数<br />   (setq nCols(- (vla-get-columns obj) 1))  ;获取表的列数<br />   <br />   ;****************关闭表格的实时更新，以提高修改表格的运行速度****************<br />   (vla-put-HeaderSuppressed obj :vlax-true)<br />   (vla-put-TitleSuppressed  obj :vlax-true)<br />   (vla-put-regeneratetablesuppressed  obj :vlax-true)<br />   ;****************关闭表格的实时更新，以提高修改表格的运行速度****************<br />   <br />   (setq i 0)<br />   <br />   (while (<= i nRows)<br />     (setq j 0)<br />     (while (<= j ncols)<br />       (vla-setcellgridlineweight obj i j actopmask aclnwt009)<br />       (vla-setcellgridlineweight obj i j acbottommask aclnwt009)<br />       (vla-setcellgridlineweight obj i j acleftmask aclnwt009)<br />       (vla-setcellgridlineweight obj i j acrightmask aclnwt009)<br />       (setq j (1+ j))<br />     )<br />     <br />     (setq i (1+ i))<br />   )<br />   <br />   ;********************************打开表格更新********************************<br />   (vla-put-HeaderSuppressed obj :vlax-false)<br />   (vla-put-TitleSuppressed  obj :vlax-false)<br />   (vla-put-regeneratetablesuppressed  obj :vlax-false)<br />   ;********************************打开表格更新********************************<br />   <br />   (princ)<br /> )

自贡黄明儒

autocad逐步完善的东西，虽然是好东西，table版本不一样，可能不同，用(vlax-dump-Object obj T)，可用信息尽收眼底

天天问

自贡黄明儒 发表于 2024-5-7 07:12
autocad逐步完善的东西，虽然是好东西，table版本不一样，可能不同，用(vlax-dump-Object obj T)，可用信息 ...

谢谢黄老师提醒，确实忘了还可以查这个。查完之后失望了，没有可以设置的参数。还是要谢谢！

自贡黄明儒

天天问 发表于 2024-5-7 09:39
谢谢黄老师提醒，确实忘了还可以查这个。查完之后失望了，没有可以设置的参数。还是要谢谢！

右边可以显示，说明可以找到
(vla-SetCellDataType MyTable 2 2 acLong acUnitDistance)
    (vla-SetCellFormat MyTable 1 3 "testFormat")
    (vla-SetCellState MyTable 4 3 acCellStateContentLocked)
    (vla-SetCellValue MyTable 1 4 5)
估计是类似的函数

天天问

自贡黄明儒 发表于 2024-5-7 11:37
右边可以显示，说明可以找到
(vla-SetCellDataType MyTable 2 2 acLong acUnitDistance)
    (vla-SetC ...

您这几个函数是哪里找来的？这几个函数放到飞诗编辑器里，不能识别为函数。
之前我在明镜通道的VBA参考文件里找过table对象的方法和属性，设置函数都瞅了一遍，楞是没找着。