如何判断是CAD还是在CAD上开发的其它软件

nyistjz

有许多软件是在CAD上二次开发的软件，如天正软件、鲁班软件等。
那么，用LISP如何判断，目前打开的软件是CAD本身，还是天正软件，或者鲁班软件？

请教高手，谢谢！

edata

一般情况可以通过窗口判断

1. (vl-load-com)(vla-get-caption(vlax-get-acad-object))

(vl-load-com)(vla-get-caption(vlax-get-acad-object))

或者通过(arx)函数返回是否加载对应的arx

nyistjz

edata 发表于 2018-12-3 12:47
一般情况可以通过窗口判断

或者通过(arx)函数返回是否加载对应的arx

您这个办法厉害！

再追加请教您个问题，用哪个函数可以判断窗口中是否包含某个文字。

比如，窗口中有“天正”两字的时候，我执行一个命令，没有的时候，我就执行另外的一个命令。

edata

匹配文字函数 wcmatch

2. (setq title(vla-get-caption(vlax-get-acad-object)))
   
3. (wcmatch title "*天正*" )

(setq title(vla-get-caption(vlax-get-acad-object)))<br /> (wcmatch title "*天正*" )

nyistjz

edata 发表于 2018-12-3 17:00
匹配文字函数 wcmatch

谢谢您，我这个小白先试试看，感谢您的指导！

nyistjz

经过我这小白水平两天来的不懈努力，终于改好了小程序。
您给指导给我提供了最核心的帮忙，特来感谢！

nyistjz

edata 发表于 2018-12-3 17:00
匹配文字函数 wcmatch

经过我这小白水平两天来的不懈努力，终于改好了小程序。
您给指导给我提供了最核心的帮忙，特来感谢！

oistre

谢谢!分享程序!!!