Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Hiya gang,
Lee Mac wrote this lisp for me a while back that send wipeouts inside blocks to th eback of the draworder. It worked great for years and now in AutoCAD 2019, it seems to have stopped working.
Hopeing somebody can shed some light on this for me.
Lee Mac's Code:
Code:
(defun c:BlockWipeoutToBack (/ acdoc)
;; Lee Mac 20.06.11
(setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for block (vla-get-blocks acdoc)
(if
(and
(eq :vlax-false (vla-get-islayout block))
(eq :vlax-false (vla-get-isxref block))
)
(
(lambda (/ lst)
(vlax-for obj block
(if (eq "AcDbWipeout" (vla-get-objectname obj))
(setq lst (cons obj lst))
)
)
(if lst
(vla-movetobottom
(LM:SortentsTable block)
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbobject
(cons 0 (1- (length lst)))
)
lst
)
)
)
)
)
)
)
)
(vla-regen acdoc acallviewports)
(princ)
)
(defun LM:SortentsTable (space / dict result)
(cond
(
(not
(vl-catch-all-error-p
(setq result
(vl-catch-all-apply
'vla-item
(list (setq dict (vla-GetExtensionDictionary space))
"ACAD_SORTENTS"
)
)
)
)
)
result
)
((vla-AddObject dict "ACAD_SORTENTS" "AcDbSortentsTable"))
)
)
(vl-load-com) (princ)
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Works fine here (C3D 2019.3)
1 Attachment(s)
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Quote:
Originally Posted by
BlackBox
Works fine here (C3D 2019.3)
Crazy. Maybe my blocks? Hard to believe all of them suddenly became unresponsive to this command. I've attached a file with a few. Does it still work for you?
1 Attachment(s)
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Quote:
Originally Posted by
jpcadconsulting347236
Crazy. Maybe my blocks? Hard to believe all of them suddenly became unresponsive to this command. I've attached a file with a few. Does it still work for you?
Still works fine here (C3D 2019.3):
Attachment 107621
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Works in AutoCAD 2019.1.2 on my end, similar to BlackBox … have you added any new routines to your setup?
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Even works on my Civil 3D 2019 that doesn't have any updates.
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Super weird.
Works fine in our NYC office, not in the Cambridge office. Same version, same support files...
Could it be some setting in AutoCAD or a driver issue?
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
Acad version is older in Cambridge. Updating now to see if that's it.
Re: Lisp that sends wipeouts to the back of the drawortder inside blocks not working in 2019
I'll be darned. After the update it works. Who knew?
Thanks for your help folks... always appreciated.
Now back to trying to wrap my brain around reactors. ;-)