如何用lisp改变cad里面的表格的文字样式

lanyf · 发表于 2017-7-12 13:32:56

newer 发表于 2017-7-12 13:12

不好意思，前面代码放到附件里面了

(defun C:tt (/ cellheight clms col def_cellheight_list def_clms def_height_list def_width_list e height row rows sub_col tableobj width);设置明细栏的宽度
  (Vl-Load-Com)
  (setq def_clms 8);默认总列数为8
  ;(setq def_width_list (list 7.5 7.5 33 8 36 46 16 26));A4列宽度列表
  (setq def_width_list (list 7.5 7.5 33 8 45 47 17 33));A3~A0列宽度列表
  (setq def_height_list (list 6))
  (setq def_cellheight_list (list 3.5))

(if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))
(setq tableobj (vlax-ename->vla-object (ssname e 0)) )
  )
(Vlax-Put-Property  tableobj 'VertCellMargin 0 );表格上下边距调为0
;设置文字样式
;(setq textstyle "table_sty")
;(command "-STYLE" textstyle "isocp.shx" def_cellheight_list 0.8 0 "N" "N" )

(vla-SetTextStyle tableobj (+ acDataRow acTitleRow) "table_sty")

  (setq clms (vla-get-columns tableobj))
  (setq col 0)
(repeat clms
  (setq width (nth col def_width_list))
  (vla-SetColumnWidth tableobj col width)
  (setq col (1+ col))
)

  (setq rows (vla-get-rows tableobj))
  (setq row 0)
(repeat rows
  (setq height (nth 0 def_height_list))
  (vla-SetRowHeight tableobj row height)
  (setq cellheight (nth 0 def_cellheight_list))
  (setq sub_col 0)
  ;每行时，对每列的单元格文字高度进行设置
  (repeat clms
(vla-setcelltextheight tableobj row sub_col cellheight);设置单元格的文字高度
(cond
((or  (= sub_col 2) (= sub_col 7));
   (vla-SetCellAlignment tableobj row sub_col acMiddleLeft);
)
((= sub_col 2);
   (vla-SetCellAlignment tableobj row sub_col acMiddleRight);
)
( T;
   (vla-SetCellAlignment tableobj row sub_col acMiddleCenter);
)
)
(setq sub_col (1+ sub_col))
  )
  (setq row (1+ row))
)
)

newer · 发表于 2017-7-12 13:51:20

lanyf 发表于 2017-7-12 13:32

那你就在循环里面，每个单元格，用上面说的，设置具体单元格的样式就行了

(defun C:tt (/
) ;设置明细栏的宽度
(Vl-Load-Com)
(setq def_clms 8) ;默认总列数为8
;(setq def_width_list (list 7.5 7.5 33 8 36 46 16 26));A4列宽度列表
(setq def_width_list (list 7.5 7.5 33 8 45 47 17 33))
;A3~A0列宽度列表
(setq def_height_list (list 6))
(setq def_cellheight_list (list 3.5))
(if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))
(setq tableobj (vlax-ename->vla-object (ssname e 0)))
)
(Vlax-Put-Property tableobj 'VertCellMargin 0) ;表格上下边距调为0
;设置文字样式
;(setq textstyle "table_sty")
;(command "-STYLE" textstyle "isocp.shx" def_cellheight_list 0.8 0 "N" "N" )
(setq clms (vla-get-columns tableobj))
(setq col 0)
(repeat clms
(setq width (nth col def_width_list))
(vla-SetColumnWidth tableobj col width)
(setq col (1+ col))
)
(setq rows (vla-get-rows tableobj))
(setq row 0)
(repeat rows
(setq height (nth 0 def_height_list))
(vla-SetRowHeight tableobj row height)
(setq cellheight (nth 0 def_cellheight_list))
(setq sub_col 0)
;每行时，对每列的单元格文字高度进行设置
(repeat clms
(vla-setcelltextheight tableobj row sub_col cellheight)
;设置单元格的文字高度
(cond
((or (= sub_col 2) (= sub_col 7)) ;
(vla-SetCellAlignment tableobj row sub_col acMiddleLeft) ;
)
((= sub_col 2) ;
(vla-SetCellAlignment tableobj row sub_col acMiddleRight) ;
)
(T ;
(vla-SetCellAlignment tableobj row sub_col acMiddleCenter) ;
)
)
(vlax-invoke
tableobj 'setcelltextstyle row sub_col "table_sty")
(setq sub_col (1+ sub_col))
)
(setq row (1+ row))
)
(princ)
)

(defun C:tt (/ 
            )                                ;设置明细栏的宽度 
  (Vl-Load-Com) 
  (setq def_clms 8)                        ;默认总列数为8 
                                        ;(setq def_width_list (list 7.5 7.5 33 8 36 46 16 26));A4列宽度列表 
  (setq def_width_list (list 7.5 7.5 33 8 45 47 17 33)) 
                                        ;A3~A0列宽度列表 
  (setq def_height_list (list 6)) 
  (setq def_cellheight_list (list 3.5)) 
 
  (if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE")))) 
    (setq tableobj (vlax-ename->vla-object (ssname e 0))) 
  ) 
  (Vlax-Put-Property tableobj 'VertCellMargin 0) ;表格上下边距调为0 
                                        ;设置文字样式 
                                        ;(setq textstyle "table_sty") 
                                        ;(command "-STYLE" textstyle "isocp.shx" def_cellheight_list 0.8 0 "N" "N"   ) 
 
  (setq clms (vla-get-columns tableobj)) 
  (setq col 0) 
  (repeat clms 
    (setq width (nth col def_width_list)) 
    (vla-SetColumnWidth tableobj col width) 
    (setq col (1+ col)) 
  ) 
 
  (setq rows (vla-get-rows tableobj)) 
  (setq row 0) 
  (repeat rows 
    (setq height (nth 0 def_height_list)) 
    (vla-SetRowHeight tableobj row height) 
    (setq cellheight (nth 0 def_cellheight_list)) 
    (setq sub_col 0) 
                                        ;每行时，对每列的单元格文字高度进行设置 
    (repeat clms 
      (vla-setcelltextheight tableobj row sub_col cellheight) 
                                        ;设置单元格的文字高度 
      (cond 
        ((or (= sub_col 2) (= sub_col 7)) ; 
         (vla-SetCellAlignment tableobj row sub_col acMiddleLeft) ; 
        ) 
        ((= sub_col 2)                        ; 
         (vla-SetCellAlignment tableobj row sub_col acMiddleRight) ; 
        ) 
        (T                                ; 
         (vla-SetCellAlignment tableobj row sub_col acMiddleCenter) ; 
        ) 
      ) 
      (vlax-invoke 
        tableobj 'setcelltextstyle row sub_col "table_sty") 
      (setq sub_col (1+ sub_col)) 
    ) 
    (setq row (1+ row)) 
  ) 
  (princ) 
)

lanyf · 发表于 2017-7-12 14:21:16

newer 发表于 2017-7-12 13:51

我移到每个单元格的循环里面，字体还是和excel里面的字体一致，没有改变，其他的文字样式改变了

newer · 发表于 2017-7-12 14:27:47

lanyf 发表于 2017-7-12 14:21

上面和你说了，你不能修改的，是因为文字是MTEXT，被单独设置文字样式了。你读出来重新写，或者去掉MTEXT的格式。

sicky111 · 发表于 2017-7-13 00:25:02

不错，学习了。

edrise · 发表于 2018-4-30 17:09:36

newer 发表于 2017-7-12 14:27
上面和你说了，你不能修改的，是因为文字是MTEXT，被单独设置文字样式了。你读出来重新写，或者去掉MTEXT ...

请问怎么去掉MTEXT格式呢？

marting · 发表于 2018-4-30 18:07:23

edrise 发表于 2018-4-30 17:09
请问怎么去掉MTEXT格式呢？

搜索下论坛就有了

清除MLEADER和MTEXT的格式
5 个回复 - 217 次查看
清除MLEADER和MTEXT的格式
2016-6-20 12:30 - Lisphk - A/VLISP
去除MTEXT格式函数
3 个回复 - 95 次查看
(defun @UnFormat (Mtext Formats / All Format1 Format2 Text Str) ;;-------------------------------------------------- ;; Primary function to perform the format stripping: ;; (04-20-03) John ...
2017-1-14 12:43 - marting - A/VLISP
一个MTEXT处理文字格式的代码
0 个回复 - 101 次查看
MTEXT的一个处理代码，使用了正则表达式替换
2017-6-6 11:26 - marting - A/VLISP
MTEXT的格式控制符
1 个回复 - 405 次查看
e.g. \SX/Y:
e.g. \S1#4: ¼ [/td][/tr] [/table]
2017-5-27 16:01 - newer - A/VLISP
[原创]：文字内容格式刷.支持text、mtext、attdef 、块属性文字、块中文字、标注文字
22 个回复 - 1727 次查看
by xshrimp 2006.12.6 文字内容格式刷.支持text、mtext、attdef 、块属性文字、块中文字、标注文字互刷当刷块中的非属性文字时.弹出对话框选择是否所有块全改. 或者只修改选中图块.(将炸开图块.包括多重块. ...
2006-12-11 00:57 - xshrimp - A/VLISP
（XD::MTEXT:GetTextstring）获取MTEXT的字符串（带格式）
0 个回复 - 99 次查看

2017-4-18 22:54 - Lispboy - 开源函数库
（XD::Mtext:UnFormat）MTEXT字符串去掉格式样式
2 个回复 - 189 次查看
(defun XD::Mtext:UnFormat (str / m1 match) (setq match "(\\\\A[0-9]+;)|(\\{)|(\\\\f[\%u4E00-\%u9FA5A-Za-z0-9\\-_ ]+)|(\\|((b|i)[0|1]))|(\\|c[0-9]+)|(\\|p[0-9]+?;)|(\\\\[L|O])|(\\\\H[0-9.]+x;)|(\\ ...
2016-12-8 00:24 - newer - 开源函数库
从格式化的MTEXT获得真实的文本的代码
37 个回复 - 1940 次查看
转自LEE-MAC
2013-5-30 12:08 - marting - A/VLISP
Mtext中的格式控制符
6 个回复 - 1851 次查看
;| ...o 关闭和打开上划线 L...l 关闭和打开下划线 ~ 插入一个连续空格插入一个反斜杠 {...} 插入左大括号和右大括号 Cvalue; 应用指定的颜色 File name; 应用指定的字体文件 Hvalue; 应用指定文字 ...
2013-6-26 09:34 - Free-Lancer - A/VLISP

qxlonmsn · 发表于 2021-6-16 17:17:29

感谢大神的分享啊

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

[求助] 如何用lisp改变cad里面的表格的文字样式

点评