Dim roundoff filter selection lisp

[hxbtdtna]

Dear all, 

I'm searching a method to select(filter) dimensions with dim roundoff different from origin.

I found that in this forum had a solution but the lisp did not work: https://www.cadtutor.net/forum/topic/46937-dim-roundoff-selection-lisp/

Please help me to solve this lisp.

 

 

DIMS_ROUNDOFF HIGHLIGHT_1.lsp

Edited August 28, 2019 by hxbtdtna

[Emmanuel Delay]

I don't get it.  What do you mean " roundoff different from origin" ?

Do you mean dimensions where one of the points is not 0,0 ?

[Roy_043]

I suppose 'different from origin' means 'different from the default (dimstyle)'. So I think the OP is trying to select dimensions that have an override for the DIMRND setting (and/or the DIMDEC setting?). An example DWG may help to clarify things.

[Lee Mac]

The following will select all dimensions with an overidden Dim Roundoff (DIMRND) setting:

(defun c:dimrndsel ( / e i s )
    (if (setq s (ssget "_X" '((0 . "*DIMENSION") (-3 ("ACAD")))))
        (repeat (setq i (sslength s))
            (setq i (1- i)
                  e (ssname s i)
            )
            (if (not (member '(1070 . 45) (cdadr (assoc -3 (entget e '("ACAD"))))))
                (ssdel e s)
            )
        )
    )
    (sssetfirst nil s)
    (princ)
)

 

[hxbtdtna]

Thank you very much Lee Mac.

It's all that i need.