写字符串表到表格

Lisphk

1. (defun _putTextToTable (tb lst / cell lstx row)
   
2.   (setq row 2)
   
3.   (setq cell 0)
   
4.   (vla-put-TitleSuppressed tb :vlax-true)
   
5.   (vla-put-HeaderSuppressed tb :vlax-true)
   
6.   (vla-put-RegenerateTableSuppressed tb :vlax-true)
   
7.   (while lst
   
8.     (setq lstx (car lst))
   
9.     (while (<= cell (length lstx))
   
10.       (vla-settext tb row cell (car lstx))
    
11.       (vla-setCellAlignment tb row cell acMiddleCenter)
    
12.       (setq lstx (cdr lstx))
    
13.       (setq cell (+ 1 cell))
    
14.     )
    
15.     (setq lst (cdr lst))
    
16.     (setq row (1+ row))
    
17.     (setq cell 0)
    
18.   )
    
19.   (vla-put-titlesuppressed tb :vlax-false)
    
20.   (vla-put-headersuppressed tb :vlax-false)
    
21.   (vla-put-RegenerateTableSuppressed tb :vlax-false)
    
22.   tb
    
23. )

(defun _putTextToTable (tb lst / cell lstx row)<br />   (setq row 2)<br />   (setq cell 0)<br />   (vla-put-TitleSuppressed tb :vlax-true)<br />   (vla-put-HeaderSuppressed tb :vlax-true)<br />   (vla-put-RegenerateTableSuppressed tb :vlax-true)<br />   (while lst<br />     (setq lstx (car lst))<br />     (while (<= cell (length lstx))<br />       (vla-settext tb row cell (car lstx))<br />       (vla-setCellAlignment tb row cell acMiddleCenter)<br />       (setq lstx (cdr lstx))<br />       (setq cell (+ 1 cell))<br />     )<br />     (setq lst (cdr lst))<br />     (setq row (1+ row))<br />     (setq cell 0)<br />   )<br />   (vla-put-titlesuppressed tb :vlax-false)<br />   (vla-put-headersuppressed tb :vlax-false)<br />   (vla-put-RegenerateTableSuppressed tb :vlax-false)<br />   tb<br /> )

cable2004

vla-的方法怎么修改字的颜色和文字样式？

Lisphk

cable2004 发表于 2016-10-22 22:09

看手册

Signature object.SetCellContentColor row, col, pColor Object Table The object this method applies to. row Long; the zero-based row index for the cell col Long; the zero-based column index for the cell pColor AcCmColor object AutoCAD true color object.

命令: !vla-setCellContentColor
#<SUBR @0e2346cc vla-SetCellContentColor>


应该能修改单元格内容的颜色。

Lisphk

object.SetCellTextStyle row, col, bstrName Object Table The object this method applies to. row Long; the zero-based row index for the cell col Long; the zero-based column index for the cell bstrName String; the text style

命令: !vla-setCellTextStyle

#<SUBR @0e234618 vla-SetCellTextStyle>

修改单元格文字样式。

yoyoho

啥也不说了，感谢Lisphk分享程序！

sicky111

谢谢分享。

xvjiex

感谢分享写字符串表到表格

qxlonmsn

希望大佬能整个实例   不知道怎么用啊