Results 1 to 7 of 7

Thread: Find overwritten dimensions in AutoCAD

  1. #1
    Login to Give a bone
    0

    Lightbulb Find overwritten dimensions in AutoCAD

    Hi

    I manage to rebuilt a lisp routine to find and strikethrough the overwritten dimensions in AutoCAD 2016.

    This works fine on drawings with just few dimensions however on drawings with large number of dimensions is difficult to spot all dimensions with that strikethrough line.

    Here is the code:

    Code:
    (defun c:OverrideFinder ( / working_list counter entity entityslist overwrittenvalue realvalue exclusionlist)
         (command "undo" "be")
         (setq exclusionlist (list "<>" ""))
      (if (setq working_list (ssget "_X" '((0 . "*DIMENSION")) ))
         (progn
     (princ "Dimensions detected")
     (setq counter 0)
     (while (< counter (sslength working_list))
            (setq entity (ssname working_list counter))
            (setq entityslist (entget entity))
                   (if (not (member (setq overwrittenvalue (cdr (assoc 1 entityslist))) exclusionlist))
                       (progn
                          (princ "\nDimension processed!")
                          (setq realvalue (cdr (assoc 42 entityslist)))
                          (entmod (subst (cons 1 (strcat "\\K" overwrittenvalue)) (assoc 1 entityslist) entityslist))
                       );progn
                      (princ "\nDimension with no overwride skipped")
                   );if
     (setq counter (+ 1 counter))
      );while
          );progn
         (alert "No dimensions found.. Ungroup first!")
       )
       (princ "Processing finished")
       (command "undo" "end")
    )

    Is anybody here who can update the code that overwritten dimension will change background colour? I tried to use DIMTFILL & DIMTFILLCLR variables but without result.

    Much appreciate the help
    Last edited by BlackBox; 2019-01-23 at 06:44 PM. Reason: Please use [CODE] Tags

  2. #2
    Member
    Join Date
    2012-03
    Location
    Houston, TX
    Posts
    4
    Login to Give a bone
    0

    Default Re: Find overwritten dimensions in AutoCAD

    Check out this lisp I have been using for years

    It puts all overwritten dimension on a layer called "fake_dims"
    Attached Files Attached Files

  3. #3
    Login to Give a bone
    0

    Default Re: Find overwritten dimensions in AutoCAD

    Hi Jonathann

    thank you for your reply. I am still interested to have kind of visual display for overwritten dims, (I am often checking lots of drawings in one day) in this case I am able to do a quick check and if there are "fake" dimension putted without reason I can approach originator (guy who made that drawing) and ask him to explain or correct the dimensions.

    Regards

  4. #4
    Member
    Join Date
    2012-03
    Location
    Houston, TX
    Posts
    4
    Login to Give a bone
    0

    Default Re: Find overwritten dimensions in AutoCAD

    The lisp I attached gives you a visual display of overwritten dims by placing them on a different layer set to color magenta. Of course you can modify the layer and color.

    Is there a different type of visual representation you're looking for?

  5. #5
    Login to Give a bone
    0

    Default Re: Find overwritten dimensions in AutoCAD

    I was thinking to have something like on the attached picture (the overwritten dimension with yellow background)Overr.JPG

  6. #6
    I could stop if I wanted to
    Join Date
    2003-07
    Posts
    319
    Login to Give a bone
    0

    Default Re: Find overwritten dimensions in AutoCAD

    Taking the layer approach you can zoom to each dim you make a list as step 1 of all the dim entities and zoom to each if you want to stop and edit you can you keep the list for the current session so can stop and re-start, sorry no code just an idea.

  7. #7
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,046
    Login to Give a bone
    0

    Default Re: Find overwritten dimensions in AutoCAD

    Just to give credit to the author Jeff a quick google search for OverrideFinder returns:
    https://www.cadtutor.net/forum/topic...comment-418076
    There's even a modification by marko_ribar some may find helpful.

    I include the author and link to any lisp I save whenever I can find it as it's the best place to find answers and modifications for the code. I wouldn't feel comfortable sharing code by others without giving respect to whoever created it.
    Tom Beauford P.S.M. - Civil 2019 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

Similar Threads

  1. Automatic wall dimensions won't find edge of curtain walls
    By diacovoni in forum Revit Architecture - General
    Replies: 2
    Last Post: 2010-02-17, 04:31 PM
  2. New files got overwritten
    By tdinh in forum ACA General
    Replies: 5
    Last Post: 2006-03-17, 12:21 PM
  3. Find all ordinate dimensions equal to 0
    By kellyd in forum AutoLISP
    Replies: 19
    Last Post: 2006-02-03, 03:38 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •