Delete All Dimensions

[Lee Mac]

An old FAQ I wrote a while back...

http://www.cadtutor.net/forum/showpo...49&postcount=4

[Tharwat]

names after / - local variables. The time of their lives - body functions (commands) to which they are defined
small example

(defun C:TEST1 ( )
  ;;;str - a global variable. It retains its value after the command
  (setq str (getstring "\nType any word: "))
  (princ "\nYou enter ")(princ str)
  (princ)
  )

(defun C:TEST2 (/ str1 )
  ;;;str1 - a local variable. It is removed after the completion of command
  (setq str1 (getstring "\nType any word: "))
  (princ "\nYou enter ")(princ str1)
  (princ)
  )

And Result

really nice explanation , And I haven't known that way before.

But what about this function
(defun abc (o p q r / v w x y z)
Does it mean that they have to be supported with values before implementing
the defun function

Thanks
Tharwat

[ksperopoulos]

Thanks for the explanation VVA. So these would be needed if I were to include them in another lisp without the defun name to carry the variable through that command.

[jjorozco]

The code does not work on paper view

[pBe]

Because it invokes a call to command function. it only "erase" objects on the current layout.

Quick mod:

(defun C:edims (/ ss)
  (if (setq ss (ssget "_x" (list (cons 0 "*DIMENSION"))))
       (repeat (sslength ss)
              (entdel (ssname ss 0))
              (ssdel (ssname ss 0) ss))
        )
  (princ)
   )

[Lee Mac]

Another:

(defun c:deldims ( / d )
    (vlax-for b (vla-get-blocks (setq d (vla-get-activedocument (vlax-get-acad-object))))
        (if (eq :vlax-false (vla-get-isxref b))
            (vlax-for o b
                (if (wcmatch (vla-get-objectname o) "AcDb*Dimension*")
                    (vl-catch-all-apply 'vla-delete (list o))
                )
            )
        )
    )
    (vla-regen d acallviewports)
    (princ)
)
(vl-load-com) (princ)

Will delete all Dimension types found in all layouts and in all blocks and nested blocks.

Will omit Dimensions in XRefs and on locked layers.

[pBe]

(vl-catch-all-apply 'vla-delete (list o))

.....and on locked layers.

Clever, I wonder why vla-** behaves that way, (i mean errors) when encountering locked layers as compared to entdel/entmod thingy which ( appears to) breeze thru them as if nothing happens... ?

[Lee Mac]

I wonder why vla-** behaves that way, (i mean errors) when encountering locked layers as compared to entdel/entmod thingy which ( appears to) breeze thru them as if nothing happens... ?

entdel / entmod will still fail to delete / modify entities on locked layers, however, when these functions fail they return nil rather than error. When Visual LISP functions fail, they cause an exception to occur.

Compare the behaviour of:

AutoLISP                 Visual LISP
------------------------------------------
entdel                   vla-delete
entmod                   vlax-put-property
tblsearch / dictsearch   vla-item
etc.

[pBe]

....rather than error. When Visual LISP functions fail, they cause an exception to occur.

Got it. Thanks Lee

Cheers

[jjorozco]

You can apply it with locked layers?