Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

ВeekeeCZ
en respuesta a: JamaL9722060

 

(defun c:HatchesWithLoops ( / s e i)

  (if (setq s (ssget "_A" (list '(0 . "HATCH") (cons 410 (getvar 'ctab)))))
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i))))
      (if (= 1 (getpropertyvalue e "NumberOfLoops"))
	(ssdel e s))))
  (if (> (sslength s) 0) (sssetfirst nil s))
  (if s (princ (strcat "\nNumber of hatches with multiple loops: " (itoa (sslength s)))))
  (princ)
  )