[求助] 如何加载外部dwg图形

czj · 发表于 2005-1-18 11:57:00

如何吧此代码专为VBA ，如何使用外部参照，我把块保存到init.dwg
将图形作为块插入时，块和所有关联的几何图形都存储在当前的图形数据库中。更改初始图形时它并不会更新。但是，如果将图形作为外部参照插入，它就会随着原始图形的更改而更新。因此，包含外部参照的图形总是反映每个外部参照文件的最新编辑。
（setq fil_loc (findfile "init.dwg"))
(command "_.insert" fil_loc '(0 0) 1 1 0)

yulijin608 · 发表于 2005-1-18 14:15:00

' Define external reference to be inserted
   Dim InsertPoint(0 To 2) As Double
   InsertPoint(0) = 0: InsertPoint(1) = 0: InsertPoint(2) = 0

   ' Add the external reference to the drawing
   Set insertedBlock = ThisDrawing.ModelSpace.AttachExternalReference(PathName, Name, InsertPoint, 1, 1, 1, 0, False)

comejava · 发表于 2005-1-19 10:15:00

好东西,学习,哈哈

czj · 发表于 2005-1-19 10:32:00

Dim blockRefObj1 As AcadBlockReference
   insertionPnt(0) = 200
   insertionPnt(1) = 250
   insertionPnt(2) = 0
   'Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "e:\新代码\xwfh.dwg", 1#, 1#, 1#, 0)
   Set blockRefObj1 = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "xwfh_qtd", 1#, 1#, 1#, 0)

[求助] 如何加载外部dwg图形

发表回复

精选推荐