03-18-2022
12:41 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
03-18-2022
12:41 PM
(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)
)