发现dbx方式处理文字bug一枚

q3_2006

marting 发表于 2017-12-1 19:36

dbx方式重生怎么写呀..

q3_2006

marting 发表于 2017-12-1 19:36

修改点没用..试过了..

q3_2006

marting 发表于 2017-12-1 19:36

(vla-regen dbx acAllViewports)
; 错误: ActiveX 服务器返回错误: 未知名称: Regen

marting

q3_2006 发表于 2017-12-1 19:46

你把你修改10点的代码贴上来，看看。是不是没有修改好，你打开图后，entget数据，10点是对的吗？

q3_2006

marting 发表于 2017-12-1 19:50

(Vlax-Get ob 'InsertionPoint )
10就是插入点呀..

q3_2006

marting 发表于 2017-12-1 19:50

现在重点是即使不修改插入点..双击文字也会归位到正确位置..所以修改插入一点用都没有..

marting

q3_2006 发表于 2017-12-1 19:53

上面帖子不是说了，数据定义不对，10点没更新，你读出来的肯定是不对的，你要计算下10点的正确的值，写回去。你看看上面帖子里面的 正确的和不正确的 ENTGET数据表。

marting

q3_2006 发表于 2017-12-1 19:58

不都给你测试了吗，你编辑下实体，就相当于上面我说的 (xdrx_object_regen....)了，就给你更新正确了插入点。

之所以显示的不对，是因为你修改内容后，10点没根据对起点更新。 你要做的是把10点根据插入点和文字内容自己算出来，手工更新下，这样打开图的时候，数据定义就是对了，ACAD就没道理显示错了。

marting

q3_2006 发表于 2017-12-1 19:58

下面是我加的更新10插入点的代码，执行后，2008打开图正常了



我用的纯LISP，仅对你这个对齐方式右的，其他的可以加入判断，自己添加，原理是一样的。
你可以改成VL的

1. (defun c:tt( / dbx ffn)
   
2.         (setq ffn "D:\\1.dwg"
   
3.                 dbx (vla-GetInterfaceObject (vlax-get-acad-object)
   
4.                           (if (< (setq acVer (atoi (getvar "ACADVER"))) 16)
   
5.                             "ObjectDBX.AxDbDocument"
   
6.                             (strcat "ObjectDBX.AxDbDocument." (itoa acVer))
   
7.                           )
   
8.                         ))
   
9.                 (Vlax-Invoke-Method dbx 'Open ffn)
   
10.                 (vlax-for ob (Vlax-Get dbx 'ModelSpace)
    
11.                         (cond
    
12.                                 ((= "AcDbText" (Vlax-Get ob 'ObjectName ))
    
13.                                         (cond
    
14.                                                 ((= "aaa" (Vlax-Get ob 'TextString ))
    
15.                                                         (Vlax-Put ob 'TextString "bbbbbbbbbb")
    
16.                                                         (setq ed (entget (vlax-vla-object->ename ob)))
    
17.                                                         (setq p11 (cdr (assoc 11 ed)))
    
18.                                                         (setq box (textbox ed))
    
19.                                                         (setq p10 (mapcar '- p11 (list (caadr box) 0.0 0.0)))
    
20.                                                         (setq ed (subst (assoc 10 ed)(cons 10 p10) ed))
    
21.                                                         (entmod ed)
    
22.                                                 )
    
23.                                         )
    
24.                                 )
    
25.                         )
    
26.                 )
    
27.                 ;(vla-auditinfo dbx :vlax-true)
    
28.                 (Vlax-Invoke-Method dbx 'SaveAs ffn)
    
29.         (vlax-release-object dbx)
    
30. )
    
31. 
    

(defun c:tt( / dbx ffn)<br />         (setq ffn "D:\\1.dwg"<br />                 dbx (vla-GetInterfaceObject (vlax-get-acad-object)<br />                           (if (< (setq acVer (atoi (getvar "ACADVER"))) 16)<br />                             "ObjectDBX.AxDbDocument"<br />                             (strcat "ObjectDBX.AxDbDocument." (itoa acVer))<br />                           ) <br />                         ))<br />                 (Vlax-Invoke-Method dbx 'Open ffn)<br />                 (vlax-for ob (Vlax-Get dbx 'ModelSpace)<br />                         (cond<br />                                 ((= "AcDbText" (Vlax-Get ob 'ObjectName ))<br />                                         (cond<br />                                                 ((= "aaa" (Vlax-Get ob 'TextString ))<br />                                                         (Vlax-Put ob 'TextString "bbbbbbbbbb")<br />                                                         (setq ed (entget (vlax-vla-object->ename ob)))<br />                                                         (setq p11 (cdr (assoc 11 ed)))<br />                                                         (setq box (textbox ed))<br />                                                         (setq p10 (mapcar '- p11 (list (caadr box) 0.0 0.0)))<br />                                                         (setq ed (subst (assoc 10 ed)(cons 10 p10) ed))<br />                                                         (entmod ed)<br />                                                 )<br />                                         )<br />                                 )<br />                         )<br />                 )<br />                 ;(vla-auditinfo dbx :vlax-true)<br />                 (Vlax-Invoke-Method dbx 'SaveAs ffn)<br />         (vlax-release-object dbx)<br /> )<br /> <br />

q3_2006

marting 发表于 2017-12-1 20:52

谢谢..我研究下..有点晕了..

q3_2006

marting 发表于 2017-12-1 20:52

这种改法..18直接提示错误

警告:保存时出错
建议对图形运行recover

marting

q3_2006 发表于 2017-12-1 21:02

你别管错误先，你打开图，看看改正确了没。不同的CAD表现应该不一样。图能正确，说明原理对。
你把我的纯LISP代码，翻译成VLA的应该就没问题了。DBX用的少，不清楚哪些函数在DBX下表现不好。
主要就是把算出的那个10点，用VLA更新。

q3_2006

marting 发表于 2017-12-1 21:08

看起来对..但我录了演示..出来东西很怪异 18能打开..低版本打开文字不显示了..

marting

q3_2006 发表于 2017-12-1 21:13

你看看字体样式是不是有问题？ 是不是原来图样式就不对？ 我拷贝你图回来字体没有，设置好字体保存，然后修改的，就没问题了。

q3_2006

marting 发表于 2017-12-1 21:18

我自己打开就没东西..修复就提示错误..致命错误