|
|
请问：
把C:\leohydrosys\block\o1.dwg的图以快的形式导入用以下的方法
要如何改进才可
尽管用外部参照可以很好的解决此问题，但每个参照的引用都会新建一个图层
很不方便（用块的话，仅需一个层就可以）
请多多帮忙，谢谢！！
---------------------------------------------------------------------
Sub o1()
Dim blockRefObj As AcadBlockReference
insertpoint = ThisDrawing.Utility.GetPoint(, "insert position.")
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertpoint, "C:\leohydrosys\block\o1.dwg", 1#, 1#, 1#, 0)
ZoomAll
End Sub |
|
置顶卡
