Break problems again

I am getting an error and then lose all my osnaps:

Command: bb
Breekpunt. ; error: AutoCAD variable setting rejected: "blipmode" nil

;Cut or break pline ***** bb

(defun c:bb (/ pt1 pt2 pt3 aa aantal teller bb)
(setq cmde (getvar "cmdecho"))(setvar "cmdecho" 0)
(setq osm (getvar "osmode" ))(setvar "osmode" 679)
(setq pt1 (getpoint "\nBreekpunt. "))
(setvar "osmode" 0)
(setq pt2 (polar pt1 (/ PI 6) 1)
pt3 (polar pt1 (+ (/ PI 6) PI) 1)
aa (ssget "C" pt2 pt3)
aantal (sslength aa)
)
(setq teller 0)
(repeat aantal
(setq bb (ssname aa teller))
(command "BREAK" bb pt1 pt1)
(setq teller (1+ teller))
)
( setvar "blipmode" blm )
( setvar "osmode" osm );
( setvar "cmdecho" cmde )
(princ)
)

 

You missed this line, place it after (setq cmde....

(setq blm (getvar "blipmode"))(setvar "blipmode" 0)

Or, just add a ; (semi-colon) before the line..
( setvar "blipmode" blm )
Like:
;(setvar "blipmode" blm)


Bob

 

In your code you never define "blm". It seems that you don't turn on/off blipmodes in your code, so I don't know why you have the setvar "blipmode" at the end. If you take that part out then your code should work fine.

Tim

 

Thanks to both of you!! It works again!!