如何给表格指定一个整定的精度位数？

cfc

前天，提了一个问题是，如何给表格的其中一个单元格指定精度位数。在热心朋友的帮助下，已经解决了。就是用
(vla-SetCellFormat tabela 4 0 "%lu2%pr1")
但是如何给表格指定一个整定的精度位数？我多次尝试都失败了。
(vla-SetFormat tabela (+ acDataRow acHeaderRow acTitleRow) "%lu2%pr2");给整个表格整体指定精度位数为2
或者是
(vla-SetFormat tabela acTitleRow "%lu2%pr2")
(vla-SetFormat tabela (+ acDataRow acHeaderRow) "%lu2%pr2")
都失败了。
这个是table对象的一些方法和属性。我用的CAD2024
https://help.autodesk.com/view/A ... E-9729-F5E15341BAF5

cfc

这是我的测试文件。不成功

2. (defun AddTable (Title datalst RowH / TableList-C2R datalst colms maxrow wlst  row colm i rown coln)
   
3.   (defun TableList-C2R (lst n / l lst)
   
4.     (setq l nil)
   
5.     (repeat n
   
6.       (setq l (cons (mapcar
   
7.                       'car
   
8.                       lst
   
9.                     ) l
   
10.               )
    
11.                                 lst (mapcar
    
12.                                                         'cdr
    
13.                                                         lst
    
14.                                                 )
    
15.       )
    
16.     )
    
17.     (reverse l)
    
18.   )
    
19.        
    
20.   (setq datalst (mapcar
    
21.                   '(lambda (y)
    
22.                      (mapcar
    
23.                        'vl-princ-to-string
    
24.                        y
    
25.                      )
    
26.                    )
    
27.                   datalst
    
28.                 )
    
29.                 colms (length datalst)
    
30.                 maxrow (apply
    
31.                                                  'max
    
32.                                                  (mapcar
    
33.                                                          'length
    
34.                                                          datalst
    
35.                                                  )
    
36.                                          )
    
37.                 wlst (mapcar
    
38.                                          '(lambda (x)
    
39.                                                         (apply
    
40.                                                                 'max
    
41.                                                                 (mapcar
    
42.                                                                         '(lambda (y)
    
43.                                                                                  (if y
    
44.                                                                                          (strlen y)
    
45.                                                                                          0
    
46.                                                                                  )
    
47.                                                                          )
    
48.                                                                         x
    
49.                                                                 )
    
50.                                                         )
    
51.                                                 )
    
52.                                          (TableList-C2R datalst maxrow)
    
53.                                  )
    
54.                
    
55.                 tabela (vla-addTable (vla-get-ModelSpace
    
56.                                                                                                          (vla-get-ActiveDocument
    
57.                                                                                                                  (vlax-get-acad-object)
    
58.                                                                                                          )
    
59.                                                                                                  ) (vlax-3d-point (getpoint "\n在屏幕上指定插入点创建表格."));
    
60.                                                  (1+ colms) maxrow RowH (* RowH 50)
    
61.                                          )
    
62.                
    
63.   )
    
64.        
    
65.        
    
66.        
    
67.        
    
68.   (vla-put-regenerateTableSuppressed tabela :vlax-true)
    
69.   (setq i -1)
    
70.   (foreach w wlst
    
71.     (vla-setcolumnwidth tabela (setq i (1+ i))
    
72.                         1700
    
73.     )
    
74.   )
    
75.        
    
76.        
    
77.   (vla-SetTextHeight tabela acTitleRow (* 0.75 RowH))
    
78.   (vla-SetTextHeight tabela (+ acDataRow acHeaderRow) (* 0.5 RowH))
    
79.   (vla-setalignment tabela acDataRow acMiddleCenter)
    
80.        
    
81.        
    
82.        
    
83.        
    
84.   (vla-setText tabela 0 0 Title)
    
85.   
    
86.         (setq row 0)
    
87.   (foreach data datalst
    
88.     (setq row (1+ row)
    
89.                         colm -1
    
90.     )
    
91.     (foreach str data
    
92.       (vla-setText tabela row (setq colm (1+ colm)) str)
    
93.     )
    
94.                
    
95.   )
    
96.        
    
97. 
    
98.         (vla-SetFormat tabela (+ acDataRow acHeaderRow acTitleRow) "%lu2%pr2");给整个表格整体指定精度位数为2
    
99.   (vla-put-regenerateTableSuppressed tabela :vlax-false)
    
100.        
     
101.   (princ)
     
102. )
     
103. 
     
104. 
     
105. 
     
106. (defun c:fff()
     
107.         (vl-load-com)
     
108.         (AddTable "TITLE" '( ("Pe(kW)" "6.0012")
     
109.                                                                                          ("Kd" "1.0012")
     
110.                                                                                          ("cosφ" "0.8012")
     
111.                                                                                          ("Pc(kW)" "=B3*B2")
     
112.                                                                                          ("Ic(A)" "=B5/1.732/0.38/B4")
     
113.                                                                                  ) 600
     
114.         )
     
115. )

(defun AddTable (Title datalst RowH / TableList-C2R datalst colms maxrow wlst  row colm i rown coln)<br />   (defun TableList-C2R (lst n / l lst)<br />     (setq l nil)<br />     (repeat n<br />       (setq l (cons (mapcar<br />                       'car<br />                       lst<br />                     ) l<br />               )<br />                                 lst (mapcar<br />                                                         'cdr<br />                                                         lst<br />                                                 )<br />       )<br />     )<br />     (reverse l)<br />   )<br />         <br />   (setq datalst (mapcar<br />                   '(lambda (y)<br />                      (mapcar<br />                        'vl-princ-to-string<br />                        y<br />                      )<br />                    )<br />                   datalst<br />                 )<br />                 colms (length datalst)<br />                 maxrow (apply<br />                                                  'max<br />                                                  (mapcar<br />                                                          'length<br />                                                          datalst<br />                                                  )<br />                                          )<br />                 wlst (mapcar<br />                                          '(lambda (x)<br />                                                         (apply<br />                                                                 'max<br />                                                                 (mapcar<br />                                                                         '(lambda (y)<br />                                                                                  (if y<br />                                                                                          (strlen y)<br />                                                                                          0<br />                                                                                  )<br />                                                                          )<br />                                                                         x<br />                                                                 )<br />                                                         )<br />                                                 )<br />                                          (TableList-C2R datalst maxrow)<br />                                  )<br />                 <br />                 tabela (vla-addTable (vla-get-ModelSpace<br />                                                                                                          (vla-get-ActiveDocument<br />                                                                                                                  (vlax-get-acad-object)<br />                                                                                                          )<br />                                                                                                  ) (vlax-3d-point (getpoint "\n在屏幕上指定插入点创建表格."));<br />                                                  (1+ colms) maxrow RowH (* RowH 50)<br />                                          )<br />                 <br />   )<br />         <br />         <br />         <br />         <br />   (vla-put-regenerateTableSuppressed tabela :vlax-true)<br />   (setq i -1)<br />   (foreach w wlst<br />     (vla-setcolumnwidth tabela (setq i (1+ i))<br />                         1700<br />     )<br />   )<br />         <br />         <br />   (vla-SetTextHeight tabela acTitleRow (* 0.75 RowH))<br />   (vla-SetTextHeight tabela (+ acDataRow acHeaderRow) (* 0.5 RowH))<br />   (vla-setalignment tabela acDataRow acMiddleCenter)<br />         <br />         <br />         <br />         <br />   (vla-setText tabela 0 0 Title)<br />   <br />         (setq row 0)<br />   (foreach data datalst<br />     (setq row (1+ row)<br />                         colm -1<br />     )<br />     (foreach str data<br />       (vla-setText tabela row (setq colm (1+ colm)) str)<br />     )<br />                 <br />   )<br />         <br /> <br />         (vla-SetFormat tabela (+ acDataRow acHeaderRow acTitleRow) "%lu2%pr2");给整个表格整体指定精度位数为2<br />   (vla-put-regenerateTableSuppressed tabela :vlax-false)<br />         <br />   (princ)<br /> )<br /> <br /> <br /> <br /> (defun c:fff()<br />         (vl-load-com)<br />         (AddTable "TITLE" '( ("Pe(kW)" "6.0012")<br />                                                                                          ("Kd" "1.0012")<br />                                                                                          ("cosφ" "0.8012")<br />                                                                                          ("Pc(kW)" "=B3*B2")<br />                                                                                          ("Ic(A)" "=B5/1.732/0.38/B4")<br />                                                                                  ) 600<br />         )<br /> )

kozmosovia

SetFormat是处理所有同类单元格，要求所有单元格的数据类型都一致，否则，就要一个个单元格设置。你的数据里面明显大把的字符串，怎么可能设置精度？

cfc

我又改了下，这次输入的有数字的，不全是字符串。我现在想指定数字单元格的格式也指定不了。没有效果不知道什么原因。

2. 
   
3. (vl-load-com)
   
4. (defun AddTable (Title datalst RowH / TableList-C2R datalst colms maxrow wlst tabela row colm i rown coln  ins hgt app spc col)
   
5.   (setq
   
6.                 colms (length datalst)
   
7.                 maxrow (apply
   
8.                                                  'max
   
9.                                                  (mapcar
   
10.                                                          'length
    
11.                                                          datalst
    
12.                                                  )
    
13.                                          )
    
14.                
    
15.                
    
16.                 tabela (vla-addTable (vla-get-ModelSpace
    
17.                                                                                                          (vla-get-ActiveDocument
    
18.                                                                                                                  (vlax-get-acad-object)
    
19.                                                                                                          )
    
20.                                                                                                  ) (vlax-3d-point (getpoint "\n在屏幕上指定插入点创建表格."))
    
21.                                                  (1+ colms) maxrow RowH (* RowH 50)
    
22.                                          )
    
23.                
    
24.   )
    
25.        
    
26.        
    
27.   (vla-put-regenerateTableSuppressed tabela :vlax-true)
    
28.   (setq i -1)
    
29.   (while (< i 1)
    
30.     (vla-setcolumnwidth tabela (setq i (1+ i))
    
31.                         1700
    
32.     )
    
33.   )
    
34.        
    
35.         (vla-SetTextStyle tabela (+ acDataRow acHeaderRow acTitleRow) "_TEL_DIM")
    
36.        
    
37.        
    
38.   (vla-SetTextHeight tabela acTitleRow (* 0.75 RowH))
    
39.   (vla-SetTextHeight tabela (+ acDataRow acHeaderRow) (* 0.5 RowH))
    
40.   (vla-setalignment tabela acDataRow acMiddleCenter)
    
41.        
    
42.   (vla-setText tabela 0 0 Title)
    
43.   
    
44.        
    
45.         (setq row 0)
    
46.   (foreach data datalst
    
47.     (setq row (1+ row)
    
48.                         colm -1
    
49.     )
    
50.     (foreach str data
    
51.       (vla-setText tabela row (setq colm (1+ colm)) str)
    
52.     )
    
53.                
    
54.   )
    
55.        
    
56.         (setq ins (getvar 'viewctr)
    
57.                 hgt (getvar 'textsize)
    
58.                 app (vlax-get-acad-object)
    
59.                 spc (vlax-get-property (vla-get-activedocument app) (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace))
    
60.                 col (vla-getinterfaceobject app (strcat "autocad.accmcolor." (substr (getvar 'acadver) 1 2))))
    
61.         (vla-setrgb  col    255 0 0)
    
62.         (vla-SetCellContentColor tabela 5 1 col)
    
63. 
    
64.         (vla-SetCellFormat tabela 2 1 "%lu2%pr2")
    
65.         (vla-SetCellFormat tabela 3 1 "%lu2%pr2")
    
66.         (vla-SetCellFormat tabela 4 1 "%lu2%pr2")
    
67.         (vla-DeleteRows tabela 0 1)
    
68.   (vla-put-regenerateTableSuppressed tabela :vlax-false)
    
69.   (princ)
    
70. )
    
71. 
    
72. 
    
73. 
    
74. (defun c:fff()
    
75.         (vl-load-com)
    
76.         (AddTable "TITLE" '( ("Pe(kW)" 6.00)
    
77.                                                                                          ("Kd" 1.00)
    
78.                                                                                          ("cosφ" 0.80)
    
79.                                                                                          ("Pc(kW)" "=B3*B2")
    
80.                                                                                          ("Ic(A)" "=B5/1.732/0.38/B4")
    
81.                                                                                  ) 600
    
82.         )
    
83.        
    
84. )

<br /> (vl-load-com)<br /> (defun AddTable (Title datalst RowH / TableList-C2R datalst colms maxrow wlst tabela row colm i rown coln  ins hgt app spc col)<br />   (setq <br />                 colms (length datalst)<br />                 maxrow (apply<br />                                                  'max<br />                                                  (mapcar<br />                                                          'length<br />                                                          datalst<br />                                                  )<br />                                          )<br />                 <br />                 <br />                 tabela (vla-addTable (vla-get-ModelSpace<br />                                                                                                          (vla-get-ActiveDocument<br />                                                                                                                  (vlax-get-acad-object)<br />                                                                                                          )<br />                                                                                                  ) (vlax-3d-point (getpoint "\n在屏幕上指定插入点创建表格."))<br />                                                  (1+ colms) maxrow RowH (* RowH 50)<br />                                          )<br />                 <br />   )<br />         <br />         <br />   (vla-put-regenerateTableSuppressed tabela :vlax-true)<br />   (setq i -1)<br />   (while (< i 1)<br />     (vla-setcolumnwidth tabela (setq i (1+ i))<br />                         1700<br />     )<br />   )<br />         <br />         (vla-SetTextStyle tabela (+ acDataRow acHeaderRow acTitleRow) "_TEL_DIM")<br />         <br />         <br />   (vla-SetTextHeight tabela acTitleRow (* 0.75 RowH))<br />   (vla-SetTextHeight tabela (+ acDataRow acHeaderRow) (* 0.5 RowH))<br />   (vla-setalignment tabela acDataRow acMiddleCenter)<br />         <br />   (vla-setText tabela 0 0 Title)<br />   <br />         <br />         (setq row 0)<br />   (foreach data datalst<br />     (setq row (1+ row)<br />                         colm -1<br />     )<br />     (foreach str data<br />       (vla-setText tabela row (setq colm (1+ colm)) str)<br />     )<br />                 <br />   )<br />         <br />         (setq ins (getvar 'viewctr)<br />                 hgt (getvar 'textsize)<br />                 app (vlax-get-acad-object)<br />                 spc (vlax-get-property (vla-get-activedocument app) (if (= 1 (getvar 'cvport)) 'paperspace 'modelspace))<br />                 col (vla-getinterfaceobject app (strcat "autocad.accmcolor." (substr (getvar 'acadver) 1 2))))<br />         (vla-setrgb  col    255 0 0)<br />         (vla-SetCellContentColor tabela 5 1 col)<br /> <br />         (vla-SetCellFormat tabela 2 1 "%lu2%pr2")<br />         (vla-SetCellFormat tabela 3 1 "%lu2%pr2")<br />         (vla-SetCellFormat tabela 4 1 "%lu2%pr2") <br />         (vla-DeleteRows tabela 0 1)<br />   (vla-put-regenerateTableSuppressed tabela :vlax-false)<br />   (princ)<br /> )<br /> <br /> <br /> <br /> (defun c:fff()<br />         (vl-load-com)<br />         (AddTable "TITLE" '( ("Pe(kW)" 6.00)<br />                                                                                          ("Kd" 1.00)<br />                                                                                          ("cosφ" 0.80)<br />                                                                                          ("Pc(kW)" "=B3*B2")<br />                                                                                          ("Ic(A)" "=B5/1.732/0.38/B4")<br />                                                                                  ) 600<br />         )<br />         <br /> )

cfc

kozmosovia 发表于 2023-8-8 10:36
SetFormat是处理所有同类单元格，要求所有单元格的数据类型都一致，否则，就要一个个单元格设置。你的数据 ...

大神，你看看我四楼的代码，我又改了下，这次输入的有数字了。我现在不弄整个单元格的精度了。因为里面有字符串。我现在想指定数字单元格的精度。也是指定不了。目前只能指定公式单元格的精度。不知道是什么原因。难道是用了settext这个函数的原因吗？自动将数字转换成字符串了？

请问，如何将数字直接写入单元格啊。或者再退一步，怎么将某个单元格里的数值字符串转成数字格式？

xyp1964

cfc 发表于 2023-8-8 14:59
大神，你看看我四楼的代码，我又改了下，这次输入的有数字了。我现在不弄整个单元格的精度了。因为里面有 ...

(setq b (cond ((or (= (type b) 'REAL) (= (type b) 'INT)) (rtos b 2 pre))
              ((and (= (type b) 'STR) (distof b)) (rtos (distof b) pre))
              (t b)
        )
)