copie d'une pièce non uniformément répartie

[Anonymous]

Bjr,

Comment copier une même pièce plusieurs fois ayant pas la même répartition?

Pour l'instant à chaque fois je resélectionne la pièce et rerentre la valeur d'espacement.

Ou alors en copie/multiple est donnant les espacment en cumulé.

Est ce possible de faire copie/multiple en rentrant à chaque fois juste la valeur du nouvelle espacement?

Cordialement.

[Olivier.R]

Salut,

Voici un petit lisp.

;;;COPIE LES OBJETS EN UTILISANT LE DERNIER POINT POUR REFERENCE.

(defun c:cdernier (/ ss1 ang dist0 dist1 pt1 pt2)

(princ "\Copie depuis dernier point :\n")

(princ)

(setq ss1 (ssget))

(setq ang (getangle "\nEntrez l'angle: "))

(while

(setq dist1 (getdist "\nEntrez la distance: "))

(if (= dist0 nil)

(setq dist0 '0)

(setq dist1 (+ dist1 dist0)

pt1 '(0 0 0)

pt2 (polar pt1 ang dist1))

(command "._copy" ss1 "" pt1 pt2)

(setq dist0 (+ dist1 '0))

)

(princ)

)

Je suis débutant en programmation et ceci était mon premier lisp et il est loin d'être parfait.

- Pas de possibilité d'annuler une distance

- Désactivation manuel des accroches objets nécessaires

Si tu trouves d'autre bugs...

[Anonymous]

Merci de votre réponse, mais je ne connais pas du tout le LISP, pour moi c'est du chinois que vous m'avez répondu.

Cordialement.

[Olivier.R]

- Copie tout d'abord le programme dans le bloc note.

- Enregistre le fichier en *.lsp

- Dans menu "Outil" > "Charger une application" charge le fichier ainsi créé.

- lance le programme en tapant CDERNIER dans ta ligne de commande.

Désolé pour la mauvaise qualité du programme mais le lisp est encore proche du roumain pour moi.

[Anonymous]

Le fichier .lsp peut être enregistré n'importe où? 

Car pour l'instant il est sur mon bureau et quand je lance la commade CDERNIER, Autocad me répond inconnue.

[Olivier.R]

Salut,

Cela fonctionne quelque soit l'emplacement du fichier.

Je pense que le fichier n'est pas chargé.

Regarde le poste suivant qui décrit en détail la procédure.

http://cadxp.com/index.php?/topic/14323-charger-un-lisp/

A+