建立表格样式

st788796 · 发表于 2014-11-22 19:23:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

留存
创建样式并设为当前
参数 string -- 样式名称，

(defun Table:MakeStyle (name / custObj)
(setq custObj (vla-AddObject
(vla-Item (vla-get-Dictionaries **XD::DOC**)
"acad_tablestyle"
)
name
"AcDbTableStyle"
)
)
(mapcar '(lambda (x y)
(vlax-put custObj x y)
)
'("Name" "BitFlags"
"FlowDirection" "HeaderSuppressed"
"TitleSuppressed" "HorzCellMargin"
"VertCellMargin"
)
(cons name '(1 0 :vlax-false :vlax-false 1.0 1.0))
)
(mapcar '(lambda (x y)
(apply 'vlax-invoke-method (cons custObj (cons x y)))
)
'("SetAlignment" "SetGridVisibility"
"SetGridVisibility" "SetGridVisibility"
"SetGridLineWeight" "SetGridLineWeight"
"SetTextHeight" "SetTextHeight"
"SetTextStyle"
)
'((7 5) ;_全部居中对齐
(1 2 :vlax-false) ;_标题行上边线
(8 2 :vlax-false) ;_标题行左边线
(32 2 :vlax-false) ;_标题行右边线
(4 2 25) ;_表头上线宽
(4 4 25) ;_表头下线宽
(2 4.0) ;_标题字高
(5 3.0) ;_表头及数据区字高
(7 "Standard") ;_字体
)
)
(setvar "ctablestyle" name)
)

(defun Table:MakeStyle (name / custObj) 
  (setq        custObj        (vla-AddObject 
                  (vla-Item (vla-get-Dictionaries **XD::DOC**) 
                            "acad_tablestyle" 
                  ) 
                  name 
                  "AcDbTableStyle" 
                ) 
  ) 
  (mapcar '(lambda (x y) 
             (vlax-put custObj x y) 
           ) 
          '("Name"                  "BitFlags" 
            "FlowDirection"          "HeaderSuppressed" 
            "TitleSuppressed"          "HorzCellMargin" 
            "VertCellMargin" 
           ) 
          (cons name '(1 0 :vlax-false :vlax-false 1.0 1.0)) 
  ) 
  (mapcar '(lambda (x y) 
             (apply 'vlax-invoke-method (cons custObj (cons x y))) 
           ) 
          '("SetAlignment"              "SetGridVisibility" 
            "SetGridVisibility"              "SetGridVisibility" 
            "SetGridLineWeight"              "SetGridLineWeight" 
            "SetTextHeight"              "SetTextHeight" 
            "SetTextStyle" 
           ) 
          '((7 5) ;_全部居中对齐 
            (1 2 :vlax-false) ;_标题行上边线 
            (8 2 :vlax-false) ;_标题行左边线 
            (32 2 :vlax-false) ;_标题行右边线 
            (4 2 25) ;_表头上线宽 
            (4 4 25) ;_表头下线宽 
            (2 4.0) ;_标题字高 
            (5 3.0) ;_表头及数据区字高 
            (7 "Standard") ;_字体 
           ) 
  ) 
  (setvar "ctablestyle" name) 
)

cable2004 · 发表于 2014-11-22 19:42:03

2005以下版本的cad表格生成？

st788796 · 发表于 2014-11-22 19:43:48

cable2004 发表于 2014-11-22 19:42
2005以下版本的cad表格生成？

2004 没有 AcDbTable 实体！ 2005 +

dnbcgrass · 发表于 2014-11-22 23:18:33

在2008中出现以下错误：
命令: (Table:MakeStyle "MyTable")
; 错误: Automation 错误。系统注册表中不存在 AcRxClassName 项

st788796 · 发表于 2014-11-22 23:51:35

dnbcgrass 发表于 2014-11-22 23:18
在2008中出现以下错误：
命令: (Table:MakeStyle "MyTable")
; 错误: Automation 错误。系统注册表中不 ...

你用的什么版本?

_$ (table:makestyle "mytable")
"mytable"
_$ (ver)
"Visual LISP 2008 (sc)"
_$ (getvar "acadver")
"17.1s (LMS Tech)"
_$

dnbcgrass · 发表于 2014-11-23 08:52:02

CAD 2008
_$ (ver)
"Visual LISP 2008 (sc)"
_$ (getvar "acadver")
"17.1s (LMS Tech)"
_$
**XD::DOC**是不是
(setq **XD::DOC** (vla-get-activedocument (vlax-get-acad-object)))

iLisp · 发表于 2014-11-23 09:08:39

dnbcgrass 发表于 2014-11-23 08:52
CAD 2008
_$ (ver)
"Visual LISP 2008 (sc)"

是滴

dnbcgrass · 发表于 2014-11-23 09:18:12

那么这个问题“; 错误: Automation 错误。系统注册表中不存在 AcRxClassName 项”，如何解决？

iLisp · 发表于 2014-11-23 09:34:02

本帖最后由 iLisp 于 2014-11-23 09:37 编辑

dnbcgrass 发表于 2014-11-23 09:18
那么这个问题“; 错误: Automation 错误。系统注册表中不存在 AcRxClassName 项”，如何解决？

你装的不是绿色版之类吧！
不过既然是词典，都在namedobjdict下面，也许可以换个方法

/db_自贡黄明儒_ · 发表于 2014-11-24 14:29:19

我能想到它的最大用处，还是做明细表

st788796 · 发表于 2014-11-24 14:58:24

/db_自贡黄明儒_ 发表于 2014-11-24 14:29
我能想到它的最大用处，还是做明细表

这样的表格非常适合，关联还是你那些块的属性如何，统计问题，制表非常简单，都包装好了，一个函数

/db_自贡黄明儒_ · 发表于 2014-11-24 15:45:55

本帖最后由 /db_自贡黄明儒_ 于 2014-11-24 16:13 编辑

这是一张pccad生成的图，点击一下"螺栓M20X70“，即取得这个对象，以便修改。
Command: (entget (car (entsel)))
Select object: ((-1 . <Entity name: 7eff8250>) (0 . "INSERT") (330 . <Entity
name: 7efe7cf8>) (5 . "1505A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8
. "图框层") (100 . "AcDbBlockReference") (66 . 1) (2 . "PC_MXB_BLOCK") (10
22360.0 4200.0 4.21875e-007) (41 . 40.0) (42 . 40.0) (43 . 40.0) (50 . 0.0) (70
. 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

看来处理起来还是很麻烦的了

st788796 · 发表于 2014-11-24 16:08:37

/db_自贡黄明儒_ 发表于 2014-11-24 15:45
这是一张pccad生成的图，点击一下"螺栓M20X70“，即取得这个对象，以便修改。

table对象也是点哪个格就编辑哪个格，格内是mtext格式，而且table可以直接导出csv文件，同过数据链接可以由xls直接生成cad的table

lixuedong · 发表于 2014-11-25 08:49:34

有这个例子，正好可以用了。

账号		自动登录	找回密码
密码			立即注册

[教学] 建立表格样式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评