请问CAD表格Table中单元格对齐方式如何设置
问题同上，只找到(vla-setcelltype TABLE 1 0 1)这个函数，不知道如何用？另外有其他关于Table当面的函数介绍的请指点赐教，多谢了，
还有，我在布局中用vla-AddTable函数插入的表格为什么不在布局中显示，反而跑到模型空间里了，如何让插入的表格插入在当前空间，多谢各位大神指点！
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178331&highlight=%B2%BC%BE%D6%BF%D5%BC%E4
Table要么看VBA，要么搜索CAD帮助
本帖最后由 kucha007 于 2022-11-22 16:08 编辑
这里应该可以查到你需要的东西，例子仅供参考：
https://help.autodesk.com/cloudhelp/2019/CHS/AutoCAD-ActiveX-Reference/files/index.htm
(defun c:TT (/ INSPT MYSPACE TABLE CellRow CellCols)
;https://help.autodesk.com/view/OARX/2018/ENU/?guid=GUID-A5A767A8-98D0-40B4-89D1-1F0E5AC52EB7
;创建表格并且设置插入点
(setq INSPT (getpoint "\n→请选择表格插入点: "))
(if (/= 0 (getvar "tilemode"))
(setqMYSPACE (vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object))))
(setqMYSPACE (vla-get-paperspace(vla-get-activedocument (vlax-get-acad-object))))
)
(setq TABLE (vla-addtable MYSPACE (vlax-3d-point INSPT) 17 3 15 100));添加表格:插入点、行数、列数、行高、列宽
(vla-settext TABLE 0 0 "大标题");标题
(vla-settext TABLE 1 0 "小标题1")
(vla-settext TABLE 1 1 "小标题2")
(vla-settext TABLE 1 2 "小标题3")
(setq CellRow 0)(setq CellCols 0)
(while (< CellRow (vla-get-rows TABLE))
(while (< CellCols (vla-get-columns TABLE))
(vla-setCelltextHeight TABLE CellRow CellCols 5.0);设置文字高度
(vla-setCellAlignment TABLE CellRow CellCols acMiddleCenter);设置文字居中
(setq CellCols (1+ CellCols))
);while
(setq CellRow (1+ CellRow))
(setq CellCols 0)
)
)
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 ...
多谢！！根据你提供的例子，问题已经完美解决，主要是我的英文不行，看帮助太费劲。
另外向再请教一个问题，如何才能准确的根据填入的字符串计算出列宽呢？ 迷不知途 发表于 2022-11-22 18:26
多谢！！根据你提供的例子，问题已经完美解决，主要是我的英文不行，看帮助太费劲。
另外向再请教一个问 ...
不好意思啊，你说的这个我也不知道怎么搞，再查查资料吧 迷不知途 发表于 2022-11-22 18:26
多谢！！根据你提供的例子，问题已经完美解决，主要是我的英文不行，看帮助太费劲。
另外向再请教一个问 ...
用 textbox 函数计算出字符串的长宽。 fzlinrong 发表于 2022-11-23 09:05
用 textbox 函数计算出字符串的长宽。
哦！！多谢！！去研究一下！！
页:
[1]