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

lanyf

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

newer

先用  表格 或者 table 搜索下论坛，看看以前讨论的怎么用VL函数修改表格的属性

marting

下面代码，把1行，0列 单元格的文字样式修改为AB

1. (defun c:tt ()
   
2.   (if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))
   
3.     (progn
   
4.       (setq e (ssname e 0)
   
5.             o (vlax-ename->vla-object e)
   
6.       )
   
7.       (vlax-invoke o 'setcelltextstyle 1 0 "ab")
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:tt ()<br />   (if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))<br />     (progn<br />       (setq e (ssname e 0)<br />             o (vlax-ename->vla-object e)<br />       )<br />       (vlax-invoke o 'setcelltextstyle 1 0 "ab")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

下面代码，把 title 行和 data行 文字样式改为AB（确保AB已经存在）

1. (defun c:tt ()
   
2.   (if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))
   
3.     (progn
   
4.       (setq e (ssname e 0)
   
5.             o (vlax-ename->vla-object e)
   
6.       )
   
7.       (vla-SetTextStyle o (+ acDataRow acTitleRow) "ab")
   
8.     )
   
9.     (princ)
   
10.   )
    
11. )
    
12. 
    

(defun c:tt ()<br />   (if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))<br />     (progn<br />       (setq e (ssname e 0)<br />             o (vlax-ename->vla-object e)<br />       )<br />       (vla-SetTextStyle o (+ acDataRow acTitleRow) "ab")<br />     )<br />     (princ)<br />   )<br /> )<br /> <br />

lanyf

marting 发表于 2017-7-11 21:41

感谢提供帮助

测试了一下，提示说“automation错误，未找到主键”，什么原因呢？

lanyf

newer 发表于 2017-7-11 21:21

谢谢提醒
先是用 表格 搜了一下论坛，没找到合适的帮助
特别是对应vl开头的函数，在哪有清单呢？不是特别会查找

lanyf

marting 发表于 2017-7-11 21:41

谢谢了，找到原因了，我信息的图形里面没有我要更改的文字样式！原因找到了，谢谢了！

marting

lanyf 发表于 2017-7-11 22:03

代码只是个例子，具体的样式你可以根据需要改成自己的。

longer1000

哦哦哦哦哦哦

lanyf

marting 发表于 2017-7-11 21:41

字体样式改变了，但是表格里面的文字的字体还是和导入的excel的字体一致，没有按字体样式的变更
是否有直接更改cad里面表格的文字的字体的方法？

newer

lanyf 发表于 2017-7-12 11:12

你的EXCEL是怎么变成CAD的表格的？
你的问题可能是TABLE单元格的MTEXT被设置了格式，清除下。

另外，把你的代码贴上来。

lanyf

newer 发表于 2017-7-12 11:25

表格是现在excel做好，然后利用Autocad里面的绘制-表格功能做的

导入的表格，在CAD里面的样式设置了，但字体没有跟着变化

变化字体的目的，一是字体要统一，还有就是若不变字体，一旦某一个单元格里面的字数多了后，则表格的行高就被撑大了，无法保证行高的统一，这点有好的办法解决吗？

newer

lanyf 发表于 2017-7-12 11:51

下载安装晓东工具箱，看看 表格菜单里面的自动尺寸工具，按最合适的行高和列宽显示你的表格。

newer

lanyf 发表于 2017-7-12 11:51

或者加载XDRX API后，执行

(xdrx_table_fitsize (car (entsel)))

选下你的表格，表格自动变成最合适的大小。

lanyf

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

表格的行高是固定的，不能更改的
列的宽度也是定死的，不能改
所以无法用自适应的

绘制表格后，先是用程序设置行高和列宽
再设置文字样式

不过现在是设置了文字样式，但里面的文字的字体无法跟着改变

newer

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

你不是说，单元格的字数增多后，表格就被撑大了吗？ API的自动尺寸，就是保证行高不变的情况，增加列宽，来适应你的字数。
你字增多，列宽和行高总有一个要变的，不可能都不变。

你的样式没改，你选一个单元格的文字，看看MTEXT是否被单独设置了样式。

另外，把你写的代码贴上来，也可能你代码有问题。