multileader background fill

[parkerfeldman]

Hello i wrote a routine that gets all multileaders and all mtext in the drawing and turns the background fill on or off. when the routine is run i get the error "; error: Automation Error. Description was not provided." i figured out that the issue is some multileaders do not have text so in the dump of the object it says "textbackgroundfill = exception occurred" how can i have it test if the multileader has text or have it test that the vla-get-textbackgroundfill must have a true or false value?

on another note like i said this routine does multileaders and mtext it has to ssget's

(setq	ssml (ssget "X"	(list (cons 0 "MULTILEADER"))))
  (setq ssmt (ssget "X" (list (cons 0 "MTEXT"))))

it does not work when there is no mtext or no multileader in the drawing. how can i have it perform the ssget and set the value to nil if it is nil?

my code

(defun All (toggle /)			;tf ssml ssmt i obj)
  (vl-cmdf "ZOOM" "E")
  (setq	ssml (ssget "X"	(list (cons 0 "MULTILEADER"))))
  (setq ssmt (ssget "X" (list (cons 0 "MTEXT"))))
  (setq i (- 1))
  (setq mlc 0)
  (setq mtc 0)
  (repeat (sslength ssml)
    (setq
      obj (vlax-ename->vla-object (ssname ssml (setq i (1+ i))))
    )
    (setq tf (vla-get-textbackgroundfill obj))
    (if (/= tf toggle)
      (progn
	(vla-put-textbackgroundfill obj toggle)
	(setq mlc (1+ mlc))
       ) ;_end progn
     ) ;_end if
  ) ;_end repeat
  (setq i (- 1))
  (repeat (sslength ssmt)
    (setq
      obj (vlax-ename->vla-object (ssname ssmt (setq i (1+ i))))
    )
    (setq tf (vla-get-backgroundfill obj))
    (if	(/= tf toggle)
      (progn
	(vla-put-backgroundfill obj toggle)
	(setq mtc (1+ mtc))
      ) ;_end progn
    ) ;_end if
  ) ;_end repeat
  (if (= toggle :vlax-true)
    (setq onoff "ON")
    (setq onoff "OFF")
  )
  (vl-cmdf "ZOOM" "P")
  (princ "\n")
  (princ mlc)
  (princ " MULTILEADER BACKGROUND FILL ")
  (princ onoff)
  (terpri)
  (princ mtc)
  (princ " MULTITEXT BACKGROUND FILL ")
  (princ onoff)
) ;_end All

[mweaver]

Hello i wrote a routine that gets all multileaders and all mtext in the drawing and turns the background fill on or off. when the routine is run i get the error "; error: Automation Error. Description was not provided." i figured out that the issue is some multileaders do not have text so in the dump of the object it says "textbackgroundfill = exception occurred" how can i have it test if the multileader has text or have it test that the vla-get-textbackgroundfill must have a true or false value?

on another note like i said this routine does multileaders and mtext it has to ssget's

(setq	ssml (ssget "X"	(list (cons 0 "MULTILEADER"))))
  (setq ssmt (ssget "X" (list (cons 0 "MTEXT"))))

it does not work when there is no mtext or no multileader in the drawing. how can i have it perform the ssget and set the value to nil if it is nil?

You will need something like this on your selection sets:
(if (and
ssml ;the selection set exists
(< 0 (sslength ssml)) ;it contains something
)


Now, about your automation error, you can normally use vl-catch-all-apply and vl-catch-all-error-p to capture automation errors. However, I'm using the beta for 2010 and vla-get-textbackgroundfill fails on a valid mleader with text when wrapped in a vl-catch-all-apply. It shouldn't. I get no error, no return value, nothing. This should have returned either an error, which I could handle with vl-catch-all-error-p, or the value for the property.

I will check this when I get to a machine running 2009 and see what I get for results there.

Later,
Mike Weaver

[mweaver]

vl-catch-all-apply works as expected in 2009, so you can do something like:

(if (vl-catch-all-error-p (setq tf (vl-catch-all-apply 'vla-get-textbackgroundfill (list obj))))
  ;do this because there was an error getting the background fill property
  ;do this because there was no error
)

Hope that helps,
Mike