Topic: Mtext lwpolyine search

[V-Man]

I need to be able to search through a series of lwpolylines and check to see if more then 1 (one) instance of mtext resided within it's boundary. Once found it will hatch the all pertinent lwpolylines if any. Any ideas?

Thanks,

Donald

[Arch_Eric]

Got a DWG for an example?

[ronjonp]

Give this a whirl:

Code: [Select]

;;all object must be visible on screen when selected
(defun c:textinpoly (/ ss ss2 pl)
  (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    (foreach pl (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      (if (and (setq ss2 (ssget "wp"
(rjp-getpolypoints pl)
(list (cons 0 "MTEXT"))
)
       )
       (> (sslength ss2) 1)
  )
(command "-hatch" "s" pl "" "")
      )
    )
  )
  (princ)
)

(defun rjp-getpolypoints (ent / e lst)
  (foreach e (entget ent)
    (if (member (car e) '(10))
      (setq lst (cons (list (cadr e) (caddr e)) lst))
    )
  )
  (reverse lst)
)

[V-Man]

Code: [Select]

;;all object must be visible on screen when selected
(defun c:textinpoly (/ ss ss2 pl)
  (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
    (foreach pl (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      (if (and (setq ss2 (ssget "wp"
(rjp-getpolypoints pl)
(list (cons 0 "MTEXT"))
)
       )
       (> (sslength ss2) 1)
  )
(command "-hatch" "s" pl "" "")
      )
    )
  )
  (princ)
)

(defun rjp-getpolypoints (ent / e lst)
  (foreach e (entget ent)
    (if (member (car e) '(10))
      (setq lst (cons (list (cadr e) (caddr e)) lst))
    )
  )
  (reverse lst)
)
Thanks Ronjonp, This did the trick. Now I just need to reverse engineer your code to see how it works.

Thanks again.

Donald

[ronjonp]

You're welcome.