Overlap

[srinivasarajug]

Hi Guys

Good DAY

i have 2 layers (builings and Roads) but some entities are crossing each other, so i want to place a circle where buildings and Roads are crossings.

Note : Buildings are not closed polygons.

Pls see attached snapshot for better understanding of my requirement.

Any one pls help on this.

Thanks in advance.

Thanks
Srinivas

[ReachAndre]

Your getting a little help from PBJese here. See link where he helped me out here---->http://forums.augi.com/showthread.ph...pecific-layers

This is a start but it only pics up the points where the 2 layers cross.

(defun c:ROADIT (/ ss1 _39 p-cw p-hw ss1 e v)

  (setq rl "CONFLICT")  
  (if (not (tblsearch "LAYER" rl )); check if layer duct is present
    (command "-layer" "make" rl "color" 2 rl "") ; if not create the layer
    ( )) ; the layer exist, do nothing

  (setq	_3p (lambda (lst)
	      (if lst
		(cons (list (car lst) (cadr lst) (caddr lst))
		      (_3p (cdddr lst))))))
  
  
  (if (setq P-CW nil
	    P-HW nil
	    ss1	 (ssget "a" '((0 . "LINE,LWPOLYLINE,POLYLINE") (8 . "BUILDING,ROAD"))
			))
    (progn
      (repeat (setq i (sslength ss1))
	(setq e (vlax-ename->vla-object (ssname ss1 (setq i (1- i)))))
	(if (eq (vla-get-layer e) "BUILDING")
	  (setq P-CW (cons e P-CW))
	  (setq P-HW (cons e P-HW))))
      (foreach itm P-CW
	(foreach mti P-HW
	  (if
	    (setq v (vlax-invoke itm 'IntersectWith mti acExtendNone))
	    (foreach int (_3p v)
	      (command "circle" "non" int "d" 6)
	      (command "change"  (entlast) "" "P" "LA" "CONFLICT" "")
	      )
	    )
	  )
	)
      )
    )
  (princ))