DECALER OU COPIER SUIVANT UNE LISTE ENTRE AU CLAVIER

[PHILPHIL]

hello

 

deux petit lisp

si ca peut etre utile ou marrant ca depend

 

 

likp : permet de decaler des entites suivant une liste de valeur de decalage et un point de direction

 

licp : permet copier des entites suivant une liste de points

suivant la liste de points la copie est differentes

 

( 13,46 ) la copie se fait "0,0" a "12,46"

( 13 ) la copie se fait de 13 par rapport a "0,0" mais la direction est fonction du denier clic sur l'espace objet, celui apres la selection des entites je pense

 

 

a+

 

phil

[PHILPHIL]

hello

 

une petite mise a jour de listedecalage

 

et un tite fonction supplementaire

 

likpa : decale les entites en donnant les valeurs intermediaires de decalage

elles s'aditionnent au fur et a mesure

 

phil

 

 

;;;;------------------
;;;; decaler des entites suivant une liste valeur de decalage et un point de direction
;;;;------------------


(defun c:likpa ()
 (setvar "cmdecho" 0)
 (setq osm (getvar "osmode"))
 (listedecalage)
 (prompt "CLIQUER SUR LES OBJETS A DECALER :")
 (setq entites nil)
 (while (null entites) (setq entites (ssget)))
 (setvar "osmode" 0)
 (setq poi1 nil)
 (while (null poi1)
   (setq poi1 (getpoint "POINT DE DECALAGE"))
 )
 (setq compt 0)
 (setq com (sslength entites))
 (while (< compt com)
   (progn (setq obj (ssname entites compt))
          (setq decalageadd 0)
          (foreach elem listedeca
            (setq decalageadd (+ decalageadd (atof elem )))
            (command "DECALER" decalageadd obj poi1 "")
          )
   )
   (setq compt (1+ compt))
 )
 (setvar "osmode" osm)
 (princ)
)

 

 

(defun listedecalage ()
;;; pour le decalage rentrer une valeur numérique type ( 123 ou -123 )
;;; pour la copie rentrer des valeurs avec virgule type ( 555,0 ou -777,-666 ou 999,12 )
;;;  pour la copie si un seul chiffre est rentrer la direction doit etre fonction du dernier clic par rapport au 0,0,0
 (setq sortie 1)
 (setq listedeca nil)
 (setq element nil)
 (while (/= sortie 0)
   (setq element (getstring t (strcat "\nENTRER LES VALEUR DE DECALAGE : ")))
   (if (/= element "")
     (setq listedeca (cons element listedeca))
     (setq sortie 0)
   )
 )
 (setq listedeca (acad_strlsort listedeca))
)

[PHILPHIL]

hello

 

bon c'etait pas TOP ca beuguer

 

ca devrait etre mieux avec cette version la

 

likp : decaler suivant les valeurs

likpa : decaler suivant les valeurs qui s'additionnent

 

licp : copier suivant les valeurs en donnant un direction

licpa : copier suivant les valeurs qui s'additionnent en donnant une direction

 

a+

phil

copier decaler suivant liste v2.00.lsp

[lili2006]

Bonsoir à toutes et tous,,

 

Merci pour ce partage PHILPHIL,

 

Quand utilises-tu ces routines par exemple ?

 

Merci d'avance,

[PHILPHIL]

hello lili

 

j'utilise ca quand je dois refaire des plans

avec des cotes juste a huit zero apres la virgule ( 120.00000000) au lieu de ( 120.00012456)

 

j'ai les plans en version *.dwg mais il ne sont pas juste et je dois rendre des plans de calepinage au millimetre donc autant partir sur une base juste

 

actuellement c'est pour refaire des "clair de beton" avec trumeau n'ayant pas la meme largeur forcement et pour positionner ensuite les fenetres et la veture ensuite et les vis

;)

 

a+

 

phil

[lili2006]

Re,

 

Ah oui,....Des personnes ne dessineraient-elles pas "correctement" ? ;):(rires forts):

 

Merci pour ces explications, il va falloir que je teste ça,...

 

@+,