DWG文件插入到DWG文件中的VBA问题

wuliang226 · 发表于 2007-6-20 22:18:00

请问我如何在CAD中通过VBA将一个个文件插入到一个已经打开的文件中并另存呢？？我用INSERTBLOCK方法好像不行。比如下面代码：
Sub insertmoban()
Dim pathname As String
Dim pointbase(0 To 2) As Double
pointbase(0) = 0
pointbase(1) = 0
pointbase(2) = 0
pathname = "C:\Program Files\ 2002\Support\塔基模板.dwg"
Dim insertedBlock As AcadBlockReference
ThisDrawing.Application.Documents.Open pathname
Set insertedBlock = ThisDrawing.ModelSpace.InsertBlock(pointbase, "C:\Documents and Settings\Administrator\桌面\试验\1.dwg", 1#, 1#, 1#, 0)
End Sub

lsyinjiang · 发表于 2007-6-24 23:08:00

我也很想学习一下，
顶上去

johansen · 发表于 2007-6-26 11:02:00

我的也是这样的情况，运行后什么都看不见，我有点怀疑是不是插入图形中有些字体需要代替的原因所以导致动作中断，。x
希望有高手可以帮帮忙

johansen · 发表于 2007-6-26 11:20:00

兄弟，把你的代码改成以下看看，我的成功了，一个小错误。！
Dim inPoint(0 To 2) As Double
Dim sca As Double
Dim ro As Double
Dim bName As String
Dim blockObj As AcadBlockReference
bName = "文件路径"
inPoint(0) = 0#
inPoint(1) = 0#
inPoint(2) = 0#
sca = 1#
ro = 0

On Error Resume Next

Set blockObj = ThisDrawing.ModelSpace.InsertBlock(inPoint, bName, sca, sca, sca, ro)

Unload Me
End Sub
这是插入一个外部图形到已打开的图形中...

wuliang226 · 发表于 2007-7-1 18:52:00

我试了还是不行，命令行总是出现：块 1 参照本身，不知何故望高手赐教！谢谢。
Public Sub HH()
Dim inPoint(0 To 2) As Double
Dim sca As Double
Dim ro As Double
Dim bName As String
Dim blockObj As AcadBlockReference
bName = "C:\Documents and Settings\Administrator\桌面\试验\1.DWG"
inPoint(0) = 0#
inPoint(1) = 0#
inPoint(2) = 0#
sca = 1#
ro = 0

On Error Resume Next

Set blockObj = ThisDrawing.ModelSpace.InsertBlock(inPoint, bName, sca, sca, sca, ro)
End Sub

清风明月名字 · 发表于 2012-5-5 15:02:00

我试了，4楼的代码可以啊。
inPoint(0) = 0#
inPoint(1) = 0#
inPoint(2) = 0#
sca = 1#
这其中的“#”我删除了，

DWG文件插入到DWG文件中的VBA问题

发表回复

精选推荐