bonjour, petite contribution.

[draven]

1er fois ici aussi !

 

petite routine permettant aux fainéants comme moi de ne pas avoir

a retaper le facteur d'echelle (de la commande echelle) si on doit modifier

plusieurs entites a la suite avec tjrs le meme facteur d'echelle

 

 

(defun c:SSS ()

(princ "---- Echelle ----")

(setq obj (ssget))

(princ "\nSpécifiez le point de base:")

(setq pdb (getpoint))

(if aff_ech

(progn

(setq echel (getreal (strcat "\nSpécifiez le facteur d'échelle ou <" (rtos aff_ech 2 6) ">: ")))

(if (not echel) (setq echel aff_ech))

)

(setq echel (getreal (princ "\nSpécifiez le facteur d'échelle :")))

)

(command "echelle" obj "" pdb echel)

(setq aff_ech echel)

(princ)

)

 

a+

 

[Aviglémy]

Excellent draven, le fainéant que je suis est comblé. Un utilitaire bien sympa.

a+ ;)

[Patrick_35]

Et en voici d'autres dans le même style pour les zooms

 

(defun c:za(/ cmd)

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_.zoom" "_p")

(setvar "cmdecho" cmd)

(princ)

)

 

(defun c:zc(/ cmd)

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_.zoom" "_c")

(setvar "cmdecho" cmd)

(princ)

)

 

(defun c:zd(/ cmd)

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_.zoom" "_d")

(setvar "cmdecho" cmd)

(princ)

)

 

(defun c:ze(/ cmd)

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_.zoom" "_e")

(setvar "cmdecho" cmd)

(princ)

)

 

(defun c:zf(/ cmd)

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_.zoom" "_w")

(setvar "cmdecho" cmd)

(princ)

)

 

(defun c:zt(/ cmd)

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_.zoom" "_a")

(setvar "cmdecho" cmd)

(princ)

)

(princ)

 

Et encore une pour effacer en une seule commande les derniers éléments

 

(defun c:efd(/ cmd n nb1 sel)

(setq cmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_undo" "_group")

(setq nb (getint "\nCombien à effacer : "))

(if (and nb (> nb 0))

(progn

(setq n 1)

(while (<= n nb)

(setq sel (entlast))

(entdel sel)

(setq n (1+ n))

)

)

)

(command "_undo" "_end")

(setvar "cmdecho" cmd)

(princ)

)

 

@+