Cette page est en cours de construction
sélection d'un ou plusieurs blocs ou de tous les blocs insérés dans le dessin.
(defun selecttablobase()
(prompt "\nSélectionnez les blocs à lister ou ")
(or (setq ss (ssget '((0 . "INSERT"))))
(setq ss (ssget "_X" '((0 . "INSERT"))))
)
ss
(setq cont -1)
(repeat(sslength ss)
(setq ent(ssname ss (setq cont(1+ cont))))
(and ent(<(cdr(assoc 70(entget ent)))4)(setq ss(ssdel ent ss))))
ss
)