Code: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