rocwings 发表于 2017-9-29 09:36:41

求助:ActiveX exe如何挂载指定pid的cad进程

如题,请教各位大神:
ActiveX exe挂载cad时,似乎只能默认加载最后一次启动的cad进程。若开了3个cad,如何让ActiveX exe挂载指定pid的cad(如第2个进程),而不是默认的那个cad进程呢?
希望各位走过路过的大神,不吝赐教!

vbcad 发表于 2017-10-1 17:43:57

以前我在CAD8的时候碰到有人 问 这个 问题 。
我把以前的答案复制过来了,请参考一下!(也适用于EXCEL)

开始以为很简单,但是自己实验了一下发现是个难题,因为VB获得对象函数只能是获得第一个实例,后来搜索了各种资料,终于解决这个难题了,目前在网上还没有看到解决的方法。这是本论坛首发,与大家共同分享,可以任意转载。

可以按如下方法操作解决问题,比如打开了C:\TEST.DWG,C:\TA.DWG等等
引用方法就是加上文件名,一定要绝对路径才行。
SET CADDOC=GetObject("C:\TEST.DWG").Application

xinxirong 发表于 2017-9-30 11:07:25

不行的,研究了很久都没有结果,放弃吧。

Kye 发表于 2017-9-30 13:07:11

用VB6进行Autocad的二次开发(原创)

楼主看看这个帖子99楼--->101楼,看是否有点作用

pengfei2010 发表于 2017-10-7 17:36:09

回帖是一种美德!感谢楼主的无私分享 谢谢

rocwings 发表于 2017-11-8 09:54:36

vbcad 发表于 2017-10-1 17:43
以前我在CAD8的时候碰到有人 问 这个 问题 。
我把以前的答案复制过来了,请参考一下!(也适用于EXCEL)
...

非常感謝您的回復!你的答案最為詳盡,看樣子錯不了,有空了試驗一下。
萬分感謝!

rocwings 发表于 2018-8-23 11:53:52

vbcad 发表于 2017-10-1 17:43
以前我在CAD8的时候碰到有人 问 这个 问题 。
我把以前的答案复制过来了,请参考一下!(也适用于EXCEL)
...

非常感谢你的帮助!
经过试验确实有效。
但如果打开的图,不管vb程序一直开着还是关了再开,只要这张图不关,再创建对象时就会多弹出一个是否保存新建文件的对话框,请问这个有好的解决方法吗?对话框点确定或取消效果都一样。
创建对象代码:
Public acadApp As Object, ThisDrawing As Object
Set acadApp = GetObject(Text1.Text).Application
重开程序再次获取同一对象,【Set acadApp = GetObject(Text1.Text).Application】就会出现此对话框,有点烦人。以下是弹出框的内容
---------------------------
AutoCAD
---------------------------
是否将改动保存到 Drawing2.dwg?
---------------------------
是(Y)   否(N)   取消   
---------------------------
页: [1]
查看完整版本: 求助:ActiveX exe如何挂载指定pid的cad进程