remove duplicate dimensions

remove duplicate dimensions

mid-awe
Collaborator Collaborator
3,374 Views
10 Replies
Message 1 of 11

remove duplicate dimensions

mid-awe
Collaborator
Collaborator

Hi all,

 

I have been working around an issue that I have with duplicate aligned dimesions. It does not appear that end-points & start-points are recorded and the only element that may be able to be filtered is the Text position X & Text position Y. Can anyone advise how to ssget dimension entities and delete duplicates using text position to determine duplicates? (BTW, yes I use associative dimentions and cannot utilize "-overkill" as a result)

 

Thank you for any help/advice.

0 Likes
Accepted solutions (1)
3,375 Views
10 Replies
Replies (10)
Message 2 of 11

ВeekeeCZ
Consultant
Consultant

@mid-awe wrote:

Hi all,

 

.... (BTW, yes I use associative dimentions and cannot utilize "-overkill" as a result)

 

Thank you for any help/advice.


An associativity is NOT an issue for OVERKILL. This command has the settings... the last option is "Maintain associative objects" - uncheck that.

0 Likes
Message 3 of 11

mid-awe
Collaborator
Collaborator

@ВeekeeCZ wrote:

 the last option is "Maintain associative objects" - uncheck that.


That does not make the difference. I have that option unchecked and it continues to fail to remove duplicate dimensions. I only believed that is was an issue because that was the advice given on my previous attempt to solve it.

 

Thank you for the suggestion.

0 Likes
Message 4 of 11

ВeekeeCZ
Consultant
Consultant
It makes... (maybe not in your case).., then post some sample of your drawing.
0 Likes
Message 5 of 11

mid-awe
Collaborator
Collaborator

Ok, I have attched a quick sample.

 

Hopefully this will shed some light on the issue.

 

Thank you again.

0 Likes
Message 6 of 11

ВeekeeCZ
Consultant
Consultant
Accepted solution

Your problem with overkill is that your dimensions are mutually reversed.

Try this simple lisp.

 

(defun C:OKDIM ( / ss i l p)
  (if (and (setq ss (ssget '((0 . "DIMENSION"))))
	   (setq i (sslength ss)))
    (while (not (minusp (setq i (1- i))))
      (setq p (list (cdr (assoc 13 (entget (ssname ss i))))
		    (cdr (assoc 14 (entget (ssname ss i))))))
      (if (or (member p l)
	      (member (reverse p) l))
	(entdel (ssname ss i))
	(setq l (cons p l)))))
  (princ)
)
0 Likes
Message 7 of 11

mid-awe
Collaborator
Collaborator
Thank you. That did it. Working perfectly.

(if you don't mind my asking: what does "mutually reversed" mean? That is the first time that I have heard the expression. Again, thank you.)
0 Likes
Message 8 of 11

ВeekeeCZ
Consultant
Consultant

Ouch! Neither did I, it's not my native... rather you tell me.
I wanted to say that the first dimension is led from pt1 to pt2, the second from pt2 to pt1.

0 Likes
Message 9 of 11

ВeekeeCZ
Consultant
Consultant

In fact just yesterday I was doing a routine on the dimensioning of blocks, maybe it will also come in handy ... (It does not work for all set of blocks, you should dimension one "line", then another... horizintal, cross line...)

Message 10 of 11

mid-awe
Collaborator
Collaborator
🙂 I don't know of a better way to say it either "mutually reversed" makes sense now that you described it. Thank you for so much help.
0 Likes
Message 11 of 11

mid-awe
Collaborator
Collaborator
Thank you.
0 Likes