Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
Contributor
NewUser1
Posts: 19
Registered: ‎05-07-2007
Message 1 of 13 (1,005 Views)

Find Overlapping Text

1005 Views, 12 Replies
05-24-2007 08:41 AM
Hi All,
What would be the ideal way to find out the overlapping text. Thanks in Advance....

Thanks & Regards
*Adesu
Message 2 of 13 (1,005 Views)

Re: Find Overlapping Text

05-24-2007 06:18 PM in reply to: NewUser1
Hi NewUser1,
test this code maybe can help you.
[code]
; cdt is stand for Check Duplicate Text
; Design by : Adesu
; Email : mteybid@yuasabattery.co.id
; Homepage : http://www.yuasa-battery.co.id
; Create : 02 May 2007
; Program no.: 0571/05/2007
; Edit by :

(defun c:cdt (/ ep sp ss sse2 ssl ssn1 ssn2 th)
(princ "\nUse window to catch an object")
(if
(setq ss (ssget (list (cons 0 "TEXT"))))
(progn
(setq ssl (sslength ss))
(if
(= ssl 2)
(progn
(setq ssn1 (ssname ss 0))
(command "change" ssn1 "" "p" "c" 1 "")
(setq ssn2 (ssname ss 1))
(setq sse2 (entget ssn2))
(setq sp (cdr (assoc 10 sse2)))
(setq th (cdr (assoc 40 sse2)))
(setq ep (polar sp (* pi 1.5) th))
(command "change" ssn2 "" "p" "c" 2 "")
(command "_move" ssn2 "" sp ep "")
) ; progn
(alert "\nThat string over 2 entities")
) ; if
) ; progn
) ; if
(princ)
) ; defun


[/code]
wrote in message news:5606156@discussion.autodesk.com...
Hi All,
What would be the ideal way to find out the overlapping text.
Thanks in Advance....

Thanks & Regards
Active Contributor
bireshwar.mallick
Posts: 49
Registered: ‎05-14-2012
Message 3 of 13 (877 Views)

Find Overlapping Text with objects in a differnt layer

07-10-2012 11:50 PM in reply to: *Adesu

Can somebody suggest identifying overlapping text with objects in a different layer

Bireshwar
Distinguished Mentor
_Tharwat
Posts: 612
Registered: ‎07-02-2010
Message 4 of 13 (865 Views)

Re: Find Overlapping Text with objects in a differnt layer

07-11-2012 03:11 AM in reply to: bireshwar.mallick

What about the OVERKILL command , did you try it ?

____________________________________________________
Get learn and learn and practice , to become experienced guy .
*Expert Elite*
pbejse
Posts: 2,500
Registered: ‎11-24-2009
Message 5 of 13 (861 Views)

Re: Find Overlapping Text with objects in a differnt layer

07-11-2012 04:05 AM in reply to: bireshwar.mallick

bireshwar.mallick wrote:

Can somebody suggest identifying overlapping text with objects in a different layer


That is a strange code. Select on screen, then only if theres two object selected it will change the color and move the other one down . but in your case , all you wwant to is change the layer of the "overlap text".

 

What constitue an overlap?  Exact duplicate of the TEXT entity? i.e string/insertion point/ layer......

Active Contributor
bireshwar.mallick
Posts: 49
Registered: ‎05-14-2012
Message 6 of 13 (855 Views)

Re: Find Overlapping Text with objects in a differnt layer

07-11-2012 05:37 AM in reply to: pbejse

Is there a tool or a lisp to identify the following overlaps in a different layer color for identification purpose (Not deleting the duplicates' by an  Overkill command) in a shop drawing using an entire window slection :-

1. Text with  text overlap

2. Text and object overlap

 

 

Bireshwar
*Expert Elite*
Kent1Cooper
Posts: 5,540
Registered: ‎09-13-2004
Message 7 of 13 (847 Views)

Re: Find Overlapping Text with objects in a differnt layer

07-11-2012 05:59 AM in reply to: bireshwar.mallick

bireshwar.mallick wrote:

Is there a tool or a lisp to identify the following overlaps in a different layer color for identification purpose (Not deleting the duplicates' by an  Overkill command) in a shop drawing using an entire window slection :-

1. Text with  text overlap

2. Text and object overlap


Wow....  That could be daunting.  The first thing that comes to mind is to find the bounding boxes of things and check whether any of their corners fall within the bounding boxes of other things.  That probably isn't too hard as an individual comparison, but you would have to check every single object against every other single object.  That could add up to a whole lot of comparisons.  And iffy possibilities come to mind -- for instance, in the attached image, would you consider the red Text object to "overlap" the yellow Line?  Their bounding boxes [blue] do overlap, but not their "content".  I guess there must be a way to determine whether the Line itself goes through the bounding box of the Text, but would the basis of comparison need to be something entirely different for different entity types?  What would you check for an Arc?  Etc., etc....

Kent Cooper
Active Contributor
bireshwar.mallick
Posts: 49
Registered: ‎05-14-2012
Message 8 of 13 (819 Views)

Re: Find Overlapping Text with objects in a differnt layer

07-11-2012 09:23 PM in reply to: Kent1Cooper

Hi Kent :smileyhappy:.. lets go for a particular case where we can identify text and object overlap.Is there a tool or a lisp.I am new to this issue.

Thanks and regards

Bireshwar

Bireshwar
*Expert Elite*
Kent1Cooper
Posts: 5,540
Registered: ‎09-13-2004
Message 9 of 13 (798 Views)

Re: Find Overlapping Text with objects in a differnt layer

07-12-2012 05:10 AM in reply to: bireshwar.mallick

bireshwar.mallick wrote:

....lets go for a particular case where we can identify text and object overlap.Is there a tool or a lisp....


Try putting overlap into the Search window.  A bunch of threads come up, some of which may have what you're after.  If they don't, I think the first order of business is to define exactly what constitutes "overlap" for your purposes [e.g. in my earlier image, do the Text and Line overlap?].

Kent Cooper
Active Contributor
bireshwar.mallick
Posts: 49
Registered: ‎05-14-2012
Message 10 of 13 (782 Views)

Re: Find Overlapping Text with objects in a differnt layer

07-12-2012 09:33 PM in reply to: Kent1Cooper

Morning Kent!! yes in your attached image the line box and the text box do overlap.But what I am seeking is a tool that can resolve  the cases that I have attached showing basic cases of overlaps in CAD shopdrawings.

 

Thanks and good wishes

Bireshwar
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.