请问CAD表格Table中单元格对齐方式如何设置

迷不知途

问题同上，只找到(vla-setcelltype TABLE 1 0 1)这个函数，不知道如何用？

另外有其他关于Table当面的函数介绍的请指点赐教，多谢了，
还有，我在布局中用vla-AddTable函数插入的表格为什么不在布局中显示，反而跑到模型空间里了，如何让插入的表格插入在当前空间，多谢各位大神指点！

liuhe

http://bbs.mjtd.com/forum.php?mo ... C%BE%D6%BF%D5%BC%E4   
Table  要么看VBA，要么搜索CAD帮助

kucha007

这里应该可以查到你需要的东西，例子仅供参考：
https://help.autodesk.com/cloudhelp/2019/CHS/AutoCAD-ActiveX-Reference/files/index.htm

2. (defun c:TT (/ INSPT MYSPACE TABLE CellRow CellCols)
   
3.   ;https://help.autodesk.com/view/OARX/2018/ENU/?guid=GUID-A5A767A8-98D0-40B4-89D1-1F0E5AC52EB7
   
4.   ;创建表格并且设置插入点
   
5.   (setq INSPT (getpoint "\n→请选择表格插入点: "))
   
6.   (if (/= 0 (getvar "tilemode"))
   
7.     (setq  MYSPACE (vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object))))
   
8.     (setq  MYSPACE (vla-get-paperspace(vla-get-activedocument (vlax-get-acad-object))))
   
9.   )
   
10.   (setq TABLE (vla-addtable MYSPACE (vlax-3d-point INSPT) 17 3 15 100));添加表格:插入点、行数、列数、行高、列宽
    
11.   (vla-settext TABLE 0 0 "大标题");标题
    
12.   (vla-settext TABLE 1 0 "小标题1")
    
13.   (vla-settext TABLE 1 1 "小标题2")
    
14.   (vla-settext TABLE 1 2 "小标题3")
    
15.   (setq CellRow 0)(setq CellCols 0)
    
16.   (while (< CellRow (vla-get-rows TABLE))
    
17.     (while (< CellCols (vla-get-columns TABLE))
    
18.       (vla-setCelltextHeight TABLE CellRow CellCols 5.0);设置文字高度
    
19.       (vla-setCellAlignment TABLE CellRow CellCols acMiddleCenter);设置文字居中
    
20.       (setq CellCols (1+ CellCols))
    
21.     );while
    
22.     (setq CellRow (1+ CellRow))
    
23.     (setq CellCols 0)
    
24.   )
    
25. )

(defun c:TT (/ INSPT MYSPACE TABLE CellRow CellCols)<br />   ;https://help.autodesk.com/view/OARX/2018/ENU/?guid=GUID-A5A767A8-98D0-40B4-89D1-1F0E5AC52EB7<br />   ;创建表格并且设置插入点<br />   (setq INSPT (getpoint "\n→请选择表格插入点: "))<br />   (if (/= 0 (getvar "tilemode"))<br />     (setq  MYSPACE (vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object))))<br />     (setq  MYSPACE (vla-get-paperspace(vla-get-activedocument (vlax-get-acad-object))))<br />   )<br />   (setq TABLE (vla-addtable MYSPACE (vlax-3d-point INSPT) 17 3 15 100));添加表格:插入点、行数、列数、行高、列宽<br />   (vla-settext TABLE 0 0 "大标题");标题<br />   (vla-settext TABLE 1 0 "小标题1")<br />   (vla-settext TABLE 1 1 "小标题2")<br />   (vla-settext TABLE 1 2 "小标题3")<br />   (setq CellRow 0)(setq CellCols 0)<br />   (while (< CellRow (vla-get-rows TABLE))<br />     (while (< CellCols (vla-get-columns TABLE))<br />       (vla-setCelltextHeight TABLE CellRow CellCols 5.0);设置文字高度<br />       (vla-setCellAlignment TABLE CellRow CellCols acMiddleCenter);设置文字居中<br />       (setq CellCols (1+ CellCols))<br />     );while<br />     (setq CellRow (1+ CellRow))<br />     (setq CellCols 0) <br />   )<br /> )

迷不知途

liuhe 发表于 2022-11-22 09:18
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178331&highlight=%B2%BC%BE%D6%BF%D5%BC%E4   
Table ...

多谢！多谢！！

迷不知途

kucha007 发表于 2022-11-22 16:07
这里应该可以查到你需要的东西，例子仅供参考：
https://help.autodesk.com/cloudhelp/2019/CHS/AutoCAD-A ...

多谢！！根据你提供的例子，问题已经完美解决，主要是我的英文不行，看帮助太费劲。
另外向再请教一个问题，如何才能准确的根据填入的字符串计算出列宽呢？

kucha007

迷不知途 发表于 2022-11-22 18:26
多谢！！根据你提供的例子，问题已经完美解决，主要是我的英文不行，看帮助太费劲。
另外向再请教一个问 ...

不好意思啊，你说的这个我也不知道怎么搞，再查查资料吧

fzlinrong

迷不知途 发表于 2022-11-22 18:26
多谢！！根据你提供的例子，问题已经完美解决，主要是我的英文不行，看帮助太费劲。
另外向再请教一个问 ...

用 textbox 函数计算出字符串的长宽。

迷不知途

fzlinrong 发表于 2022-11-23 09:05
用 textbox 函数计算出字符串的长宽。

哦！！多谢！！去研究一下！！