Leaderboard

It could be even - (cond ( (setq l_lst (vl-sort l_lst '<)) ... ) ); cond

Hi @dlanorh Have a look at the following: (vl-string-right-trim ".dwg" "my drawing.dwg") And this: (vl-filename-base (getvar 'dwgname))

I would suggest copying your Dimension Style, changing the colour properties as appropriate and then applying such style to your selection of dimensions - this way, your drawing will not contain objects with overrides.

With a little reading, you could have saved you & your reseller some time - You can lead a horse to water...

In fact my intention was simple, in order to clean up the [BBcodes] within the new code tags in this forum. Therefore, IMO optimized with CLIPBOARD without using 'getfiled' is much more convenient, isn't it? code updated - post#1 Copy text (from forum) -> run 'FORUM' (in ACAD) -> [Ctrl+V] Paste (in forum active editor) Done!

See if THIS THREAD helps.

Try something like this: (defun c:exnest ( ) (vlax-for blk (vla-get-blocks (LM:acdoc)) (if (and (= :vlax-false (vla-get-isxref blk)) (= :vlax-false (vla-get-islayout blk)) ) (vlax-for obj blk (if (and (= "AcDbBlockReference" (vla-get-objectname obj)) (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-explode (list obj)))) ) (vl-catch-all-apply 'vla-delete (list obj)) ) ) ) ) (command "_.-purge" "_B" "*" "_N") (vla-regen (LM:acdoc) acallviewports) (princ) ) ;; Active Document - Lee Mac ;; Returns the VLA Active Document Object (defun LM:acdoc nil (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object)))) (LM:acdoc) )