已解决：使用VLISP去除表格单元格文字格式

秋枫

从Excel中粘贴进AutoCAD的表格对象中的单元格文字常常带有格式，很不方便。

 

一个一个去很麻烦。写了一个程序可以去掉MTEXT格式。利用以前mccad提供的Regexp代码。

 

现在的问题是，如果表格中有公式就有大问题。试了多种方法都不成。(我在AutoCAD 2010中测试）

 

附件提供测试图和程序。求高手解决。

------------------

已解决， 完整解决方案在12楼。

masterlong

提供个思路看看对秋大侠有没帮助

选定要复制的区域后  ctrl+c

“选择性粘贴”选“数值”再确定

或者通过记事本转一道

这样选定区域内就没有公式了

mccad

不知需要什么效果

狂刀lxx

鼠标左键点击table一个cell的中部空白处，不放松，拉出区域后放开鼠标，即可编辑选中区域cells的字体颜色等

秋枫

我需要保留公式。

去除所有的MTEXT覆盖，包括含公式的单元格。

现在是一运行程序，即使不对含公式的单元格操作，含公式的格子也会变成 ####

Ea

试试这个

3. (defun c:tt (/ e)
4.   (if (setq e (car (entsel)))
5.     (entmod
6.       (mapcar (function (lambda (x / code)
7.      (setq code (car x))
8.      (if (member code '(1 300 302))
9.        (cons code (mtext2text (cdr x)))
10.        x
11.      )
12.    )
13.        )
14.        (entget e)
15.       )
16.     )
17.   )
18.   (princ)
19. )

(defun c:tt (/ e)   (if (setq e (car (entsel)))     (entmod       (mapcar (function (lambda (x / code)      (setq code (car x))      (if (member code '(1 300 302))        (cons code (mtext2text (cdr x)))        x      )    )        )        (entget e)       )     )   )   (princ) )

mccad

看来还是非常特殊的东西，难道公式又不能通过程序来搞，真被桌子搞晕掉。

Ea

mccad发表于2010-6-26 22:33:00看来还是非常特殊的东西，难道公式又不能通过程序来搞，真被桌子搞晕掉。

公式就是 FIELD，Table    Dxf 中的 344 实体就是FIELD，FIELD 的 DXF 中 360 实体的 DXF 可以找到公式的表达式 

 

_$ (setq el (entget (car (entsel))))
((-1 . <图元名: 7ffffbd30e0>) (0 . "ACAD_TABLE") (330 . <图元名: 7ffffbf9820>) (5 . "86") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "WALL") (100 . "AcDbBlockReference") (2 . "*T2") (10 1.20988e+006 699580.0 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0) (100 . "AcDbTable") (280 . 0) (342 . <图元名: 7ffffbf9de0>) (343 . <图元名: 7ffffbd39c0>) (11 1.0 0.0 0.0) (90 . 22) (91 . 11) (92 . 5) (93 . 3) (94 . 0) (95 . 0) (96 . 0) (280 . 1) (281 . 1) (141 . 321.667) (141 . 320.556) (141 . 323.889) (141 . 321.111) (141 . 143.333) (141 . 143.333) (141 . 321.667) (141 . 276.667) (141 . 276.667) (141 . 276.667) (141 . 276.667) (142 . 645.337) (142 . 645.273) (142 . 744.463) (142 . 744.463) (142 . 744.463) (171 . 1) (172 . 0) (173 . 0) (174 . 0) (175 . 1) (176 . 1) (91 . 262183) (178 . 0) (145 . 0.0) (170 . 4) (63 . 0) (64 . 0) (283 . 1) (140 . 100.0) (92 . 0) (301 . "CELL_VALUE") (93 . 4) (90 . 4) (1 . "{\\f宋体|b0|i0|c134;\\C7;总建筑面积") (94 . 0) (300 . "") (302 . "{\\f宋体|b0|i0|c134;\\C7;总建筑面积") (304 . "ACVALUE_END") (171 . 1) (172 . 0) (173 . 0) (174 . 0) (175 . 1) (176 . 1) (91 . 262183) (178 . 0) (145 . 0.0) (170 . 6) (63 . 0) (64 . 0) (283 . 1) (140 . 100.0) (92 . 0) (301 . "CELL_VALUE") (93 . 4) (90 . 2) (140 . 44916.0) (94 . 0) (300 . "%lu2%tf[{\\f宋体|b0|i0|c134;\\C7;]") (302 . "{\\f宋体|b0|i0|c134;\\C7;44916.00")     ......

 

_$ (setq lst (vl-remove-if-not '(lambda (x) (= (car x) 344)) el))
((344 . <图元名: 7ffffbd38e0>) (344 . <图元名: 7ffffbd3900>) (344 . <图元名: 7ffffbd3920>) (344 . <图元名: 7ffffbd3940>) (344 . <图元名: 7ffffbd3960>) (344 . <图元名: 7ffffbd3980>) (344 . <图元名: 7ffffbd39a0>))
_$

_$ (entget (cdar lst))
((-1 . <图元名: 7ffffbd38e0>) (0 . "FIELD") (5 . "10E") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ffffbd4970>) (102 . "}") (330 . <图元名: 7ffffbd4970>) (100 . "AcDbField") (1 . "_text") (2 . "{\\fSimSun|b0|i0|c134|p2;\\C7;%<\\_FldIdx 0>%}") (90 . 1) (360 . <图元名: 7ffffbd38f0>) (97 . 0) (91 . 63) (92 . 0) (94 . 13) (95 . 2) (96 . 0) (300 . "") (93 . 0) (7 . "ACFD_FIELD_VALUE") (93 . 3) (90 . 0) (94 . 0) (300 . "") (302 . "") (304 . "ACVALUE_END") (301 . "") (98 . 0))
_$

 

_$ (entget (cdr (assoc 360 (entget (cdar lst)))))
((-1 . <图元名: 7ffffbd38f0>) (0 . "FIELD") (330 . <图元名: 7ffffbd38e0>) (5 . "10F") (100 . "AcDbField") (1 . "AcExpr") (2 . "\\AcExpr (B2*B3) \\f \"%lu2\"") (90 . 0) (97 . 0) (91 . 63) (92 . 0) (94 . 59) (95 . 2) (96 . 0) (300 . "") (93 . 1) (6 . "ACAD_ROUNDTRIP_2008_FIELD_EVALOPTION") (93 . 0) (90 . 1) (91 . 63) (94 . 0) (300 . "") (302 . "") (304 . "ACVALUE_END") (7 . "ACFD_FIELD_VALUE") (93 . 4) (90 . 2) (140 . 598880.0) (94 . 0) (300 . "%lu2") (302 . "598880.00") (304 . "ACVALUE_END") (301 . "598880.00") (98 . 9))

 

秋枫

搞定。ActiveX方式没有办法。只能用dxf方式。

2. (defun massoc (key alist / x nlist)  (foreach x alist    (if  (eq key (car x))      (setq nlist (cons (cdr x) nlist))    )  )  (reverse nlist))
4. (defun c:tt (/ e ent flist1 flist2 flist f)  (if (setq e (car (entsel)))    (entmod      (mapcar (function  (lambda  (x / code)        (setq code (car x))        (if (member code '(1 3 300 302))          (cons code (mtext2text (cdr x)))          x        )      )        )        (setq ent (entget e))      )    )  )          ;entmod  ;; 第一层Field  (setq flist1 (massoc 344 ent))  ;; 第二层Field  (setq flist2 (massoc 360 (apply 'append (mapcar 'entget flist1))))  (setq flist (append flist1 flist2))  (foreach f flist    (entmod      (mapcar (function  (lambda  (x / code)        (setq code (car x))        (if (member code '(2))          (cons code (mtext2text (cdr x)))          x        )      )      (entget f)        )      )    )  )
5.   (vl-cmdf "updatefield" e "")    (princ))

(defun massoc (key alist / x nlist)  (foreach x alist    (if  (eq key (car x))      (setq nlist (cons (cdr x) nlist))    )  )  (reverse nlist)) (defun c:tt (/ e ent flist1 flist2 flist f)  (if (setq e (car (entsel)))    (entmod      (mapcar (function  (lambda  (x / code)        (setq code (car x))        (if (member code '(1 3 300 302))          (cons code (mtext2text (cdr x)))          x        )      )        )        (setq ent (entget e))      )    )  )          ;entmod  ;; 第一层Field  (setq flist1 (massoc 344 ent))  ;; 第二层Field  (setq flist2 (massoc 360 (apply 'append (mapcar 'entget flist1))))  (setq flist (append flist1 flist2))  (foreach f flist    (entmod      (mapcar (function  (lambda  (x / code)        (setq code (car x))        (if (member code '(2))          (cons code (mtext2text (cdr x)))          x        )      )      (entget f)        )      )    )  )   (vl-cmdf "updatefield" e "")    (princ))

Ea

ActiveX 应该也可以，改 Mtext FieldCode，可能没有 Entmode 方便