Recherche lisp pour deplacement de 440mm

[drezic]

Bonjour,

 

je cherche un lisp qui me permettrai de déplacer:

- tous les objets sur le calque 1 de 440mm en x

- tous les objets sur le calque 2 de 880mm en x

- tous les objets sur le calque 3 de 1320mm en x

et ainsi de suite.

En sachant que sur certain fichier j'ai des calques allant de 1 a 300(calque 300 deplacé de 132000mm)

 

Par avance merci

[didier]

coucuo

 

ouh la la !

le fichier va être inutilisable à terme

du moins par des extractions de coordonnées

 

quelle est l'utilité d'une telle manipulation ?

 

si tu reviens à la charge en expliquant le pourquoi du comment

un lisp te sera livré en retour.

 

mais je ne veux pas me faire complice sans savoir

d'une explosion d'un dessin devenu inutilisable

 

amicalement

[bryce]

Bonsoir,

 

Une histoire de folios par calques, je suppose... :P

 

Comment sont nommés tes calques ?

Ils sont simplement numérotés 1, 2, 3..., sans préfixe ni suffixe ?

[drezic]

Bonjour,

 

oui c'est un folio par calque.Je cherche ce lisp afin d'afficher tous mes folios sur un meme calque pour que mes clients puissent lire les folios facielemnt sans geler et degeler les calques ,Les folios seront alignés l'un aprés l'autre.Pour l'impression j'utile les presentations et je publie.

Les calques sont simplement numerotés 1,2,3,4,5,6,7,8,9,10,11,12,13,14 etc.

 

Merci par avance

[bonuscad]

Bonjour,

 

Un départ avec ce type de code ?

 

((lambda ( / def_lay x_ori pt_ref nw_pt nam_lay js)
 (setq def_lay (tblnext "LAYER" T) x_ori 440.0 pt_ref '(0.0 0.0 0.0) nw_pt '(0.0 0.0 0.0))
 (while def_lay
   (setq
     nam_lay (cdr (assoc 2 def_lay))
     js (ssget "_X" (list (cons 8 nam_lay) (cons 410 (getvar "CTAB"))))
     nw_pt (list (+ (car nw_pt) X_ori) 0.0 0.0)
   )
   (cond (js (command "_.move" js "" "_none" (trans pt_ref 0 1) "_none" (trans nw_pt 0 1))))
   (setq def_lay (tblnext "LAYER"))
 )
 (prin1)
))

 

[Edité le 10/5/2011 par bonuscad]

[didier]

coucou

 

effectivement dans ce cas on peut riper les entités

mais il ne faut pas interroger les coordonnées des objets bien sûr

 

pour le code, pas mieux que BonusCad

 

amicalement

[drezic]

Merci pour cette routine mais elle ne fonctionne pas encore.Elle deplace calque par calque un par un que de -440mm et pas de 440mm pour le calque 1 880 pour le calque 2 et ainsi de suite.En gros la routirne me fait un deplacement de 440mm pour l'ensemble des objets.Comme je ne comprend rien au language lisp.

 

D'avance merci de votre aide.

[bonuscad]

Réessayes, j'ai éditer mon message entre temps.

[drezic]

Grand merci ca fonctionne.