判断天正文件

satan421

不熟悉arx，也不熟悉天正。理论上是可以写针对天正的代理实体的，但是感觉没必要。

nyistjz

satan421 发表于 2019-12-3 08:55
;;不针对天正。可以判断一些代理实体，不全面。

谢谢您，您写的这段代码，基本上已经可以解决问题了。
其实找到能够针对天正的代理实体，还是有其必要性的，因为只有这样才能有针对性的加载代理所对应的插件。
如果能找到对应天正的解决办法，那就完美了。

感谢您！

Gu_xl

nyistjz 发表于 2019-12-3 09:31
谢谢您，您写的这段代码，基本上已经可以解决问题了。
其实找到能够针对天正的代理实体，还是有其必要性 ...

将如下这段代码添加到你程序的任何地方，即可实现自动判断加载天正插件！

1. ;;自动判断加载天正
   
2. (if (and
   
3.       (member "TCH_DBCONFIG"
   
4.               (mapcar 'cdr
   
5.                       (vl-remove-if
   
6.                         '(lambda (a) (/= 3 (car a)))
   
7.                         (entget (namedobjdict))
   
8.                       )
   
9.               )
   
10.       )
    
11.       (not
    
12.         (member (strcase "tch_kernal.arx") (mapcar 'strcase (arx)))
    
13.       )
    
14.       (findfile "tch_kernal.arx")
    
15.       (arxload "tch_kernal.arx" "\n未找到天正插件!")
    
16.     )
    
17.   (princ "\n天正插件已自动加载...")
    
18. )

;;自动判断加载天正<br /> (if (and<br />       (member "TCH_DBCONFIG"<br />               (mapcar 'cdr<br />                       (vl-remove-if<br />                         '(lambda (a) (/= 3 (car a)))<br />                         (entget (namedobjdict))<br />                       )<br />               )<br />       )<br />       (not<br />         (member (strcase "tch_kernal.arx") (mapcar 'strcase (arx)))<br />       )<br />       (findfile "tch_kernal.arx")<br />       (arxload "tch_kernal.arx" "\n未找到天正插件!")<br />     )<br />   (princ "\n天正插件已自动加载...")<br /> )

注意：天正插件arx必须在可搜索目录里，否则"tch_kernal.arx"请自行添加绝对目录！

wjlaugh

安装天正后，直接用cad14打开图纸，如果是天正图纸，会自动提示是否加载插件

nyistjz

Gu_xl 发表于 2019-12-3 11:30
将如下这段代码添加到你程序的任何地方，即可实现自动判断加载天正插件！

注意：天正插件arx必须在可 ...

测试通过，问题解决，感谢！

nyistjz

如何判断这是个天正图纸？
13楼的办法对这个文件的判断无效！

nyistjz

Gu_xl 发表于 2019-12-3 11:30
将如下这段代码添加到你程序的任何地方，即可实现自动判断加载天正插件！

注意：天正插件arx必须在可 ...

我放在16楼的这个文件，用你这个办法不能判断了。
你看是不是需要其它什么办法了？