[编程交流] filedia设置为零。。。

ThisDrawing.SendCommand "-insert" & vbCr & thePath & vbCr & "S" & vbCr & theScale & vbCr

Sub InsertBlock(Optional thePath As String)
Dim theScale As Variant
   'set the dimscale
   If IsNumeric(UserForm1.TextBox1.Value) = False Or UserForm1.TextBox1.Value < 0 Then
       MsgBox "Please entera valid numeric default scale value."
       UserForm1.TextBox1.SetFocus
       Exit Sub
   End If
   If UserForm1.TextBox1.Value = 0 Then
       theScale = ThisDrawing.GetVariable("DIMSCALE")
   Else
       theScale = UserForm1.TextBox1.Value
   End If
Dim objLayer As AcadLayer
Dim FoundLayer As Boolean
Dim OldLayer As String
   'determine whether or not default layer exists
   'if it does exist, set it as current layer
   'if it doesn't exist, prompt the user and return to the userform.
   FoundLayer = False
   For Each objLayer In ThisDrawing.Layers
       If objLayer.Name = UserForm1.ComboBox1.Value Then
           FoundLayer = True
           Exit For
       End If
   Next
   If FoundLayer = False Then
       MsgBox "The default layer entered for this block does not exist on this drawing."
       UserForm1.ComboBox1.SetFocus
       Exit Sub
   Else
       OldLayer = ThisDrawing.ActiveLayer.Name
       ThisDrawing.ActiveLayer = ThisDrawing.Layers(UserForm1.ComboBox1.Value)
   End If
   If thePath = "" Then
       thePath = GetDefaultDirectory + UserForm1.ListBox1.Value + "" + UserForm1.ListBox2.Value + ".dwg"
   End If
   UserForm1.Hide
   'insert with or without dynamic rotation
   If UserForm1.CheckBox2 = True Then
       ThisDrawing.SendCommand "-insert" & vbCr & thePath & vbCr & "S" & vbCr & theScale & vbCr
   Else
       ThisDrawing.SendCommand "-insert" & vbCr & thePath & vbCr & "S" & vbCr & theScale & vbCr & "R" & vbCr & "0" & vbCr
   End If
   'expload last block entered
   If UserForm1.CheckBox3.Value = True Then
       ThisDrawing.SendCommand "Explode" & vbCr & "L" & vbCr & vbCr
   End If
   'reset the original layer
   ThisDrawing.ActiveLayer = ThisDrawing.Layers(OldLayer)
End Sub