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

lanyf

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

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

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

1. (defun C:tt (/
   
2.             )                                ;设置明细栏的宽度
   
3.   (Vl-Load-Com)
   
4.   (setq def_clms 8)                        ;默认总列数为8
   
5.                                         ;(setq def_width_list (list 7.5 7.5 33 8 36 46 16 26));A4列宽度列表
   
6.   (setq def_width_list (list 7.5 7.5 33 8 45 47 17 33))
   
7.                                         ;A3~A0列宽度列表
   
8.   (setq def_height_list (list 6))
   
9.   (setq def_cellheight_list (list 3.5))
   
10. 
    
11.   (if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))
    
12.     (setq tableobj (vlax-ename->vla-object (ssname e 0)))
    
13.   )
    
14.   (Vlax-Put-Property tableobj 'VertCellMargin 0) ;表格上下边距调为0
    
15.                                         ;设置文字样式
    
16.                                         ;(setq textstyle "table_sty")
    
17.                                         ;(command "-STYLE" textstyle "isocp.shx" def_cellheight_list 0.8 0 "N" "N"   )
    
18. 
    
19.   (setq clms (vla-get-columns tableobj))
    
20.   (setq col 0)
    
21.   (repeat clms
    
22.     (setq width (nth col def_width_list))
    
23.     (vla-SetColumnWidth tableobj col width)
    
24.     (setq col (1+ col))
    
25.   )
    
26. 
    
27.   (setq rows (vla-get-rows tableobj))
    
28.   (setq row 0)
    
29.   (repeat rows
    
30.     (setq height (nth 0 def_height_list))
    
31.     (vla-SetRowHeight tableobj row height)
    
32.     (setq cellheight (nth 0 def_cellheight_list))
    
33.     (setq sub_col 0)
    
34.                                         ;每行时，对每列的单元格文字高度进行设置
    
35.     (repeat clms
    
36.       (vla-setcelltextheight tableobj row sub_col cellheight)
    
37.                                         ;设置单元格的文字高度
    
38.       (cond
    
39.         ((or (= sub_col 2) (= sub_col 7)) ;
    
40.          (vla-SetCellAlignment tableobj row sub_col acMiddleLeft) ;
    
41.         )
    
42.         ((= sub_col 2)                        ;
    
43.          (vla-SetCellAlignment tableobj row sub_col acMiddleRight) ;
    
44.         )
    
45.         (T                                ;
    
46.          (vla-SetCellAlignment tableobj row sub_col acMiddleCenter) ;
    
47.         )
    
48.       )
    
49.       (vlax-invoke
    
50.         tableobj 'setcelltextstyle row sub_col "table_sty")
    
51.       (setq sub_col (1+ sub_col))
    
52.     )
    
53.     (setq row (1+ row))
    
54.   )
    
55.   (princ)
    
56. )
    
57. 
    

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

lanyf

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

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

newer

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

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

sicky111

不错，学习了。

edrise

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

请问怎么去掉MTEXT格式呢？

marting

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: &#188; [/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

感谢大神的分享啊