以下两张图，加载api就错误退出

pxt2015

附件的两张图，是公司的两张图纸。偶然发现，加载API时，出现问题。
1、CAD环境（CAD2012+TCH2013）可以正常打开图纸。
2、CAD加载api，再打开图纸，就错误退出
3、CAD环境打开图纸后，手动加载API，错误退出。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:平面图_2017.12.24.rar 
下载次数:3  文件大小:4.86 MB 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:立面图_2017.12.15.rar 
下载次数:6  文件大小:3.34 MB 
下载权限: 不限 以上  [免费赚D豆]

newer

一般是天正的问题，
1、是单位所有的天正图纸都出错？ 还是就发现这两张？，如果就是这两张，那就和API没关系。
2、你试试 保存成 T3 格式，再打开，出错不。

newer

我用2016，能打开你的图，因为没天正插件，图纸是空的。你试试保存成T3，再传个附件上来。

liuyj

这个问题我遇到很多次了，也看到不少人问，你可以搜一下。问题的条件是三个：一是都是autocad2010~2012，就是说都是R18平台；二是都是天正画的图，具体好像是有了t20后，不论是不是t3文件；三是加载了XDAPI。这种情况打开文件时必崩溃。解决的办法是：1、换高版本的cad平台；2、先不加载晓东工具，打开文件后对清除文件的350组码的数据，保存后即可；3、将要打开的文件用insert命令插入，再炸开即可。

newer

liuyj 发表于 2017-12-24 17:44

你试试，用工具箱的  PURGE 外部文件，先PURGE下，然后打开看正常不？

pxt2015

绝大部分图纸打开时，没有出现问题。偶然发现附件的这两个图纸，打开时每次异常退出。

已经转成T3版本，加载API后打开图纸，还是异常退出。如附图所示。
以下附件为T3版本图纸。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:立面图_2017.12.15_t3.rar 
下载次数:2  文件大小:2.47 MB 
下载权限: 不限 以上  [免费赚D豆]

Lisphk

liuyj 发表于 2017-12-24 17:44

liuyj，你有删除350的代码吗？

liuyj

院长写的，我传播一下

1. (defun c:DGNFIX (/ a lst)
   
2.   (vl-load-com)
   
3.   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
   
4.   (setq        a   (namedobjdict)
   
5.         lst (entget a)
   
6.   )
   
7.   (foreach b lst
   
8.     (if        (= (car b) 350)
   
9.       (entdel (cdr b))
   
10.     )
    
11.   )
    
12.   (VLA-PurgeAll
    
13.     (vla-get-ActiveDocument (vlax-get-acad-object))
    
14.   )
    
15.   (princ)
    
16. )
    

(defun c:DGNFIX (/ a lst)<br />   (vl-load-com)<br />   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")<br />   (setq        a   (namedobjdict)<br />         lst (entget a)<br />   )<br />   (foreach b lst<br />     (if        (= (car b) 350)<br />       (entdel (cdr b))<br />     )<br />   )<br />   (VLA-PurgeAll<br />     (vla-get-ActiveDocument (vlax-get-acad-object))<br />   )<br />   (princ)<br /> )<br />

pxt2015

liuyj 发表于 2017-12-24 17:44

牛人，试一下你的方法。

marting

pxt2015 发表于 2017-12-24 21:59

天正图纸的命名词典中有无效的数据，入口是："ACAD_ASSOCNETWORK"，删除这个就OK了。

命令: (xd::entity:list c)

>>>------>  #<VLA-OBJECT IAcadDictionary 0000022688311978>
(-1 . <图元名: 7ff726790630>)
(0 . "DICTIONARY")
(5 . "1A743")
(102 . "{ACAD_REACTORS")
(330 . <图元名: 7ff72690a8c0>)
(102 . "}")
(330 . <图元名: 7ff72690a8c0>)
(100 . "AcDbDictionary")
(280 . 0)
(281 . 1)
(3 . "ACAD_ASSOCNETWORK")
(350 . <图元名: 7ff726790640>)

*******  Dump DXF 330 listing  *********
(-1 . <图元名: 7ff72690a8c0>)
(0 . "DICTIONARY")
(330 . <图元名: 0>)
(5 . "C")
(100 . "AcDbDictionary")
(280 . 0)
(281 . 1)
(3 . "ACAD_ASSOCNETWORK")
(350 . <图元名: 7ff726790630>)
(3 . "ACAD_CIP_PREVIOUS_PRODUCT_INFO")
(350 . <图元名: 7ff72663daf0>)
(3 . "ACAD_COLOR")
(350 . <图元名: 7ff72678dc20>)
(3 . "ACAD_DETAILVIEWSTYLE")
(350 . <图元名: 7ff72663da50>)
(3 . "ACAD_GROUP")
(350 . <图元名: 7ff72678daf0>)
(3 . "ACAD_LAYOUT")
(350 . <图元名: 7ff72678d6a0>)
(3 . "ACAD_MATERIAL")
(350 . <图元名: 7ff72690a8e0>)
(3 . "ACAD_MLEADERSTYLE")
(350 . <图元名: 7ff72678dc40>)
(3 . "ACAD_MLINESTYLE")
(350 . <图元名: 7ff72678db00>)
(3 . "ACAD_PLOTSETTINGS")
(350 . <图元名: 7ff72678db10>)
(3 . "ACAD_PLOTSTYLENAME")
(350 . <图元名: 7ff72690a8b0>)
(3 . "ACAD_SCALELIST")
(350 . <图元名: 7ff726999c40>)
(3 . "ACAD_SECTIONVIEWSTYLE")
(350 . <图元名: 7ff72663da30>)
(3 . "ACAD_TABLESTYLE")
(350 . <图元名: 7ff72678dc30>)
(3 . "ACAD_VISUALSTYLE")
(350 . <图元名: 7ff726999c60>)
(3 . "ACAD_WIPEOUT_VARS")
(350 . <图元名: 7ff72663dae0>)
(3 . "AcDbVariableDictionary")
(350 . <图元名: 7ff72663d960>)


打开图纸，执行下面代码：

1. (defun c:tt ()
   
2.   (if (setq a (dictsearch (namedobjdict) "ACAD_ASSOCNETWORK"))
   
3.     (progn (entdel (cdr (assoc -1 a)))
   
4.            (princ "\nFound key \"ACAD_ASSOCNETWORK\" in NamedDict. Delete It.")
   
5.     )
   
6.     (progn
   
7.       (princ
   
8.         "\nCan't found key \"ACAD_ASSOCNETWORK\" in NamedDict."
   
9.       )
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    
14. 
    

(defun c:tt ()<br />   (if (setq a (dictsearch (namedobjdict) "ACAD_ASSOCNETWORK"))<br />     (progn (entdel (cdr (assoc -1 a)))<br />            (princ "\nFound key \"ACAD_ASSOCNETWORK\" in NamedDict. Delete It.")<br />     )<br />     (progn<br />       (princ<br />         "\nCan't found key \"ACAD_ASSOCNETWORK\" in NamedDict."<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

liuyj

为什么高版本cad不会出现这个问题呢？

marting

liuyj 发表于 2017-12-25 11:39

高版本应该进步了吧，对一些非法的数据判断过滤的比低版本强了，特别是API这块。

看下 "ACAD_ASSOCNETWORK" 内容是什么：

(3 . "ACAD_ASSOCNETWORK")
(350 . <图元名: 7ff725fc98c0>)

*******  Dump DXF 330 listing  *********
(-1 . <图元名: 7ff7260428c0>)
(0 . "DICTIONARY")
(330 . <图元名: 0>)
(5 . "C")
(100 . "AcDbDictionary")
(280 . 0)
(281 . 1)
(3 . "ACAD_ASSOCNETWORK")


里面有个红色的实体名，指针是0，也就是NULL，这是非法的数据。

liuyj

能不能不开图批量处理一下

newer

liuyj 发表于 2017-12-26 15:41

等下版本API更新，用批处理PURGE就行了。

pxt2015

marting 发表于 2017-12-25 10:51

试了下，果然有用。强。

马丁大师，如果是其它的图，遇到这种情况，这种处理方法是否通用？