乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 166|回复： 9

关于VBA程序从AutoCAD2002到AutoCAD2004的问题

[复制链接]
xiaopei520

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-8-2 15:11:00 | 显示全部楼层 |阅读模式
FileCopy ThisDrawing.Application.Path + "\Support\DZBLSample.DWG", StrPrj '初始化后的工程文件,StrPrj是DWG文件
BLExist = False
For Each MyDoc In ThisDrawing.Application.Documents
                         If UCase(StrPrj) = UCase(MyDoc.FullName) Then
                                                         BLExist = True
                                                         MyDoc.Activate
                         End If
Next
If Not BLExist Then
                         ThisDrawing.Application.Documents.Open StrPrj
End If'到这 提示文件已加载
       
这在2002下没有,请各位高手指点,拜托了!!!
回复

使用道具 举报

xiaopei520

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-8-2 15:18:00 | 显示全部楼层
这是出现问题的提示框
回复

使用道具 举报

xiaopei520

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-8-2 15:21:00 | 显示全部楼层


                               
登录/注册后可看大图

       
这是出现问题的提示框

inx0sz4w1uh.jpg

inx0sz4w1uh.jpg
回复

使用道具 举报

zfbj

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-8-2 18:08:00 | 显示全部楼层
难道是你在StrPrj图形中使用了嵌入工程？
把你的源码贴上来看看吧，不应该有这样的问题。
       
多问一下，你怎么把文字搞成红色的？: )
回复

使用道具 举报

xiaopei520

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-8-2 22:52:00 | 显示全部楼层
变成红色的醒目一点呵呵,谢谢斑竹
StrPrj.dwg里面保存了一些专用的图块,字体为了调用方便
原代码很长,还要调用数据库(.mdb)
回复

使用道具 举报

xiaopei520

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-8-2 23:06:00 | 显示全部楼层
明天就传
回复

使用道具 举报

xiaopei520

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-8-3 21:16:00 | 显示全部楼层
多谢斑竹,问题已经解决的是我点了"每次都询问加载的对话框",郁闷!!!
回复

使用道具 举报

zfbj

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-8-4 10:13:00 | 显示全部楼层
希望大家在解决问题后都能把解决方案写出来，以免后面的人再走弯路。
回复

使用道具 举报

youngever

0

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
1
发表于 2004-8-4 14:23:00 | 显示全部楼层
请问大家谁那有cad的vba程序上传点，谢谢了http://
回复

使用道具 举报

xiaopei520

15

主题

38

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
98
发表于 2004-8-4 15:51:00 | 显示全部楼层
就是这个对话框,我在"每次打开包含宏的的工程时均询问"打了钩
所以出现了上述问题,希望大家不要向我这样,浪费很多时间
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 01:55 , Processed in 3.820657 second(s), 75 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表