乐筑天下

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

大家来帮忙啊

[复制链接]

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2004-7-15 20:02:00 | 显示全部楼层 |阅读模式
有没有人可以告诉我,或者给段源代码,或者给个例子,
究竟怎么样才能满足以下要求
1、用VBA编写
2、在一新DRAWING中插入一外部图块,就是一某某目录图形文件(*.dwg)
回复

使用道具 举报

7

主题

13

帖子

3

银币

初来乍到

Rank: 1

铜币
41
发表于 2004-7-15 20:44:00 | 显示全部楼层
thisdrawing.modelspace.insertblock 方法
回复

使用道具 举报

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2004-7-17 21:20:00 | 显示全部楼层
晕!这个方法我知道啊!但是这个块要先定义啊!AUTOCAD的例子看了N次了,没用!我的情况是这样,现在已经有一独立文件(*dwg)比如:c:\...\MM.dwg我需要用VBA编程,达到直接将此文件插入一新文件的目的,而且是在配合VBA窗口按钮的点击下自动完成。就象LISP中的COMMOND“INSERT”“.....”一样啊!到底该怎么办?
回复

使用道具 举报

25

主题

134

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
234
发表于 2004-8-3 10:51:00 | 显示全部楼层
你可以试一下下面的程序,应当可以
Sub dk()
Dim a As AcadDocument
Set a = ThisDrawing.Application.Documents.Open("d:/ls.dwg", w)
End Sub
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 04:23 , Processed in 0.391609 second(s), 60 queries .

© 2020-2025 乐筑天下

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