[求助]：如何使用VLISP改变表格(TABLE OBJECT)文字的颜色?

kohi

如何使用VLISP改变表格(TABLE OBJECT)文字的颜色?
(vla-SetContentColor tableobject rowTypes pColor)
pColor是什么参数?

mmmm

SetCellContentColor Method



Sets the true color value for the content of the specified row and column.

See Also | Example

Signature

object.SetCellContentColor(row, col, pColor)

Object

Table
The object or objects 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.

========================================================
AcCmColor object  

AutoCAD true color object.

VBA class name:
AcadAcCmColor

Create using:
GetInterfaceObject ("AutoCAD.AcCmColor.16"), or
Dim col As New AcadAcCmColor

Access via:
Not applicable


The AcCmColor object represents colors. You can use the AcCmColor object to set colors and perform other color-related operations on objects.

The object includes properties for colors, color names, color book names, and the color index.

kohi

谢谢2楼的回答.你的贴子在CAD帮助里就有?
不过我问的是如何用VLISP呀, 如何用VLISP表达Pcolor 参数?

mmmm

Example codes to convert an AutoCAD true color number (DXF code 420) into an AcCmColor object.

2. 
   
3. (Defun #TCI->ACCMCOLOR#        (dxf420 / colorobj)
   
4.   (and (setq colorObj (vla-getinterfaceobject
   
5.                         (vlax-get-acad-object)
   
6.                         "AutoCAD.AcCmColor.16"
   
7.                       )
   
8.        )
   
9.        (not (vl-catch-all-error-p
   
10.               (vl-catch-all-apply
    
11.                 'vla-setRGB
    
12.                 (cons colorObj (#TCI->RGB# (abs dxf420)))
    
13.               )
    
14.             )
    
15.        )
    
16.   )
    
17.   colorobj
    
18. )
    
19. (Defun #TCI->RGB# (Color / Rtn)
    
20.   (setq        Rtn (list (lsh (fix Color) -16)
    
21.                   (lsh (lsh (fix Color) 16) -24)
    
22.                   (lsh (lsh (fix Color) 24) -24)
    
23.             )
    
24.   )
    
25.   Rtn
    
26. )
    

<br /> (Defun #TCI->ACCMCOLOR#        (dxf420 / colorobj)<br />   (and (setq colorObj (vla-getinterfaceobject<br />                         (vlax-get-acad-object)<br />                         "AutoCAD.AcCmColor.16"<br />                       )<br />        )<br />        (not (vl-catch-all-error-p<br />               (vl-catch-all-apply<br />                 'vla-setRGB<br />                 (cons colorObj (#TCI->RGB# (abs dxf420)))<br />               )<br />             )<br />        )<br />   )<br />   colorobj<br /> )<br /> (Defun #TCI->RGB# (Color / Rtn)<br />   (setq        Rtn (list (lsh (fix Color) -16)<br />                   (lsh (lsh (fix Color) 16) -24)<br />                   (lsh (lsh (fix Color) 24) -24)<br />             )<br />   )<br />   Rtn<br /> )<br />

kohi

没有 (vla-SetContentColor tableobject rowTypes pColor) 语句? 能否将程序码写全? 谢谢了,

mmmm

pColor is a VLA-Object which can be created directly via

1. 
   
2. (vla-getinterfaceobject
   
3.                         (vlax-get-acad-object)
   
4.                         "AutoCAD.AcCmColor.16"
   
5.                       )
   

复制代码

Or it can be got from normal object's truecolor property.

Then you can set new RGB to this vla-object and pass it into VLISP codes

kohi

谢谢, 请把程序写全, 比如要更改表格中的第一列第二行的文字为红色, 怎么写?

mmmm

2. 
   
3. ;;; Set content of table cell (col=1, row=0) into red color
   
4. (Defun C:CHK (/ tbl pcl)
   
5.   (if (and (setq tbl (entsel "\n Pick an ACAD_TABLE object <Exit>:"))
   
6.            (setq tbl (Car tbl))
   
7.            (= (cdr (assoc 0 (entget tbl))) "ACAD_TABLE")
   
8.       )
   
9.     (progn
   
10.       (setq tbl        (vlax-ename->vla-object tbl)
    
11.             pcl        (vla-getinterfaceobject
    
12.                   (vlax-get-acad-object)
    
13.                   "AutoCAD.AcCmColor.16"
    
14.                 )
    
15.       )
    
16.       (vlax-put-property pcl "ColorMethod" acColorMethodByACI)
    
17.       (vlax-put-property pcl "ColorIndex" acRed)
    
18.       (vlax-invoke-method tbl "SetCellContentColor" 0 1 pcl)
    
19.     )
    
20.   )
    
21. )
    

<br /> ;;; Set content of table cell (col=1, row=0) into red color<br /> (Defun C:CHK (/ tbl pcl)<br />   (if (and (setq tbl (entsel "\n Pick an ACAD_TABLE object <Exit>:"))<br />            (setq tbl (Car tbl))<br />            (= (cdr (assoc 0 (entget tbl))) "ACAD_TABLE")<br />       )<br />     (progn<br />       (setq tbl        (vlax-ename->vla-object tbl)<br />             pcl        (vla-getinterfaceobject<br />                   (vlax-get-acad-object)<br />                   "AutoCAD.AcCmColor.16"<br />                 )<br />       )<br />       (vlax-put-property pcl "ColorMethod" acColorMethodByACI)<br />       (vlax-put-property pcl "ColorIndex" acRed)<br />       (vlax-invoke-method tbl "SetCellContentColor" 0 1 pcl)<br />     )<br />   )<br /> )<br />