怎样用程序设定 表（table）中的表格样式。

lixuedong

在用acad2006 中表格（table）命令时。

每次用新图时要把表格样式重新设定。
怎样用LISP程序设定 表（table）中的表格样式。
即把  表格样式 的默认的格式standard中的文字高度调高，表格调高，对齐为正中。

xyz518mm

請見以下文章
http://www.autocad.com.tw/asp/Sh ... utoCAD&ID=11502

lixuedong

谢谢楼上，找到了下面资料
(SETQ ActDoc (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)))
(SETQ dict (VLA-GET-DICTIONARIES ActDoc))
(setq TABLESTYLE (vla-item dict "ACAD_TABLESTYLE"))
(setq STYLE (vla-addobject TABLESTYLE "NEWTABLESTYLE" "AcDbTableStyle"))

(vlax-dump-object style t)
;;;+++++++++++++++++++++++++++++++++
(vlax-put STYLE 'Name "USER") ;变更型式名称

;;储存格边界
(vlax-put STYLE 'HorzCellMargin 0.5) ;储存格水平
(vlax-put STYLE 'VertCellMargin 0.5) ;储存格垂直

;;;+++++++++++++++++++++++++++++++++
;;此处有问题,不知道该怎样处理?我只会取消不会恢復?

(vlax-put STYLE 'TitleSuppressed :vlax-false) ;标题,取消
(vlax-put STYLE 'HeaderSuppressed :vlax-false) ;栏标头,取消

;;;+++++++++++++++++++++++++++++++++
;;文字型式,高度,顏色
(vlax-invoke STYLE 'SetTextStyle acDataRow "CTXT") ;资料,栏位,字型
(vlax-invoke STYLE 'SetTextStyle acHeaderRow "CTXT") ;栏标头,栏位,字型
(vlax-invoke STYLE 'SetTextStyle acTitleRow "CTXT") ;标题,栏位,字型

(vlax-invoke STYLE 'SetTextHeight acTitleRow 4) ;资料,栏位,文字高度
(vlax-invoke STYLE 'SetTextHeight acHeaderRow 5) ;栏标头,Header,栏位,文字高度
(vlax-invoke STYLE 'SetTextHeight acDataRow 6) ;标题,Title,栏位,文字高度

(setq acmcol-acTitle (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.16"))
(vlax-put acmcol-acTitle 'Colorindex 11)
(vlax-invoke STYLE 'SetColor acTitleRow acmcol-acTitle) ;资料,栏位,置换顏色

(setq acmcol-acHeader (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.16"))
(vlax-put acmcol-acHeader 'Colorindex 15)
(vlax-invoke STYLE 'SetColor acHeaderRow acmcol-acHeader) ;栏标头,栏位,置换顏色

(setq acmcol-acData (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.16"))
(vlax-put acmcol-acData 'Colorindex 17)
(vlax-invoke STYLE 'SetColor acDataRow acmcol-acData) ;标题,栏位,置换顏色

xyz518mm

这些资料应该就够用了

lixuedong

这部分是搞定了。
由于用的图是建筑图，1：100等，原CAD表插入时，每次都很小，要调大，用起来很烦，但它有一些表格单元的逻辑运算，还是很好用的。但由于2005版以上才能用，论坛上这方面的很少，lisp程序对表的操作不多，贴出来给大家参考。用多了，就能把其它问题也搞清楚。
如可以直接捕捉表内的单元的问题，读出单元中的位置及内容，那就可以轻松实现表单元之间的移动和复制。