Help fix a routine - Error: too few arguments

[andy_skur]

Private Sub ToggleWireNum()
Dim pi As Double: pi = 4 * Atn(1)
Dim x As AcadEntity
Dim lin As AcadLine
Call WDForceStart
On Error Resume Next
For Each x In ThisDrawing.ModelSpace
    If TypeName(x) = "IAcadLine" Then
        Set lin = x
          If lin.Angle = pi Then
            
            ThisDrawing.SetVariable "USERS1", x.Handle
            
            WDCommand ("(setq return (c:ace_get_wnum (handent (getvar ""USERS1""))))" & vbCr)
            
            WDCommand ("(setvar ""USERS2"" (car return))" & vbCr)
                
                If Len(ThisDrawing.GetVariable("USERS2")) > 0 Then

                    WDCommand ("(c:ace_toggle_inline (cadr return))" & vbCr)
                    
                End If
        End If
    End If
Next x
End Sub

Public Sub WDCommand(Command As String)
' MsgBox ("WDCommand subroutine called.")
ThisDrawing.SendCommand (Command)
End Sub

Public Sub WDForceStart()
Call WDCommand("(if(not wd_load)(if(setq x(findfile ""wd_load.lsp""))(load x)))(wd_load)" & vbCr)
End Sub