Topic: mleader mask on - help with lisp

[PM]

Hi i use this code to draw mleaders. I want to set baground mask on . Can any one help ?

Code - Auto/Visual Lisp: [Select]

1.  
2. (defun c:MLP (/ oldcmd oldcmls oldlay oldmls *error*)
3. (defun *error* (msg)
4. (setvar 'cmleaderstyle oldcmls)
5. (setvar 'clayer oldlay)
6. (setvar 'mleaderscale oldmls)
7. (setvar "cmdecho" oldcmd)
8. (princ msg)(princ)
9. )
10. (setq oldcmd (getvar 'cmdecho)
11.      oldcmls (getvar 'cmleaderstyle)
12.   oldlay (getvar 'clayer)
13.   oldmls (getvar 'mleaderscale)
14. )        
15.  
16. (setvar "cmdecho" 0)
17. (setvar "cmleaderstyle" "TopoCad")
18.  
19. (if
20.  (not (tblsearch "LAYER" "mleader"))
21.  (command "_layer" "_m" "mleader" "_c" "7" "" "")
22. )
23. (setvar 'clayer "MLEADER")
24.  
25. (setq scl (getvar "useri1"))
26. (setvar "mleaderscale" (* scl 0.0025))
27. (initcommandversion 2)
28. (princ "\n start point: ")
29. (command "mleader")
30. (while (> (logand (getvar "CMDACTIVE") 0) 1)
31. (command pause )
32. )
33.  
34. (setvar 'cmleaderstyle oldcmls)
35. (setvar 'clayer oldlay)
36. (setvar 'mleaderscale oldmls)
37. (setvar "cmdecho" oldcmd)
38. (princ)
39.  
40.  ; layer  0
41.   (mapcar 'setvar '("clayer" "cecolor" "celtype" "celweight")  (list "0" "BYLAYER" "BYLAYER" -1))
42.   (princ)
43. )
44.  
45.  

Thanks

[PM]

Sudelny gives me an error

Code: [Select]

; error: AutoCAD variable setting rejected: CMLEADERSTYLE nil

Any solution ?

Thanks

[HOSNEYALAA]

 Hi , please

Attached example drawing 

[PM]

The problem solved . It was an Autocad bug.

Thunks