飞雪神光 发表于 2023-6-10 23:44:12

CAD Table属性设置求助

1是除了table命令本身 怎么设置切换当前的表格样式

2是主要的问题 怎么用代码设置他的方向

lee50310 发表于 2023-6-10 23:44:13

本帖最后由 lee50310 于 2023-6-11 16:40 编辑

1.
若新設表格型式名稱為 "NewStyle"
要設為目前使用語法如下
(setvar "ctablestyle" "NewStyle")   ; NewStyle設為目前使用

使用系統自設表格型式名稱 "Standard" 則改為
(setvar "ctablestyle" "Standard")   ;Standard設為目前使用的

2.
部分程式

   (setq acadObj (vlax-get-acad-object))                           ;獲取AutoCAD應用程序
    (setq doc (vla-get-ActiveDocument acadObj))               ;獲取活動文檔對象
    (setq dictionaries (vla-get-Dictionaries doc))
    (setq dictObj (vla-Item dictionaries "acad_tablestyle"))   
    (setq keyName "NewStyle" className "AcDbTableStyle")
    (setq customObj (vla-AddObject dictObj keyName className))      
    (vla-put-Name customObj "NewStyle")                        ;創建 "NewStyle" 表格型式名稱
    (vla-put-Description customObj "New Style for My Tables")

    (vla-put-FlowDirectioncustomObj acTableTopToBottom);表格方向朝下=acTableTopToBottom
                                                         ;表格方向朝上=acTableBottomToTop
    (vla-put-HorzCellMargin customObj 5)                            ;水平邊距 5
    (vla-put-VertCellMargin customObj 5)                           ;垂直邊距 5
    (vla-put-BitFlags customObj 1)         
            

liuhe 发表于 2023-6-11 10:14:49

cad自带帮助文件，有一个例题是关于表格样式的。需要查VBA的属性chm的文件。

飞雪神光 发表于 2023-6-11 12:01:58

lee50310 发表于 2023-6-10 23:44
1.
若新設表格型式名稱為 "NewStyle"
要設為目前使用語法如下


感谢 大神的解答

yefei812678 发表于 2024-2-23 16:32:47

感谢感谢感谢感谢
页: [1]
查看完整版本: CAD Table属性设置求助