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 )