etirer des objets de calques determinés

[PHILPHIL]

hello toutes tous

 

modeste lisp

 

a+

 

phil

 

1° demande de selection d'objets pour déterminer les couches deverrouillées

2° selection des objets comme dans etirer classique par fenetre cp

3° point de base

4°point d'arrivée

 

 ;;; ETIRER D'UN POINT A L'AUTRE DES OBJET QUE DE COUCHES SELECTIONNEES
(defun C:ETPPC	(/ POI POI2 OSM OBJ)
 (setq OSM (getvar "osmode"))
 (setvar "osmode" 0)
 (setvar "cmdecho" 0)
 (setq OBJ NIL)
 (setvar "regenmode" 0)
 (command "-calque" "v" "*" "")
 (prompt "SELECTIONNER LE(S) OBJET(S) POUR SELECTIONNER LES COUCHES A ETIRER :")
 ;;   selection d'objetS pour determiner les couches qui ne seront pas verrouillees
 (while (null OBJ) (setq OBJ (ssget)))
 (SETQ FOIS 0)
 (setq nbr (sslength OBJ))
 (REPEAT nbr
   (setq tcalq4 (cdr (assoc 8 (entget (ssname OBJ FOIS)))))
   (command "-calque" "d" tcalq4 "")
   (SETQ FOIS (1+ FOIS))
   )
 (prompt (strcat "\nCLIQUER SUR LES OBJETS A ETIRER D'UN POINT A L'AUTRE : "))
;;selection classique des objet a etirer par selection "cp"
 (setq OBJ NIL)
 (while (null OBJ) (setq OBJ (ssget)))
 (setvar "osmode" OSM)
 (setq POI NIL)
 (while (null POI) (setq POI (getpoint "\nPOINT DE BASE DE REFERENCE")))
 (setq POI2 NIL)
 (while (null POI2) (setq POI2 (getpoint poi "\nPOINT D'ARRIVEE DE REFERENCE")))
 (setvar "osmode" 0)
 (command "ETIRER" OBJ "" POI POI2)
 (setvar "osmode" OSM)
 (command "-calque" "d" "*" "")
 (setvar "regenmode" 1)
 (setvar "cmdecho" 1)
 (princ)
 )

 

[Edité le 29/7/2009 par PHILPHIL]

[Raph_38]

Intéressant ....

 

je testerais, merci à toi ;)