commande MAINLEV !!!! ou que t\'es ??????

[rebcao]

Bonjour à toutes et à tous,

 

Je ne retrouve plus la commande MAINLEV... avec cette manie de rabaptiser les Noms de commande !!! :mad:

 

Comment s'appelle -t-elle maintenant ?

 

merci de vos réponse

 

Christian

 

[Edité le 25/1/2006 par rebcao]

[Eric]

Salut cher confrère. ;)

 

Je vais peut être dire une connerie mais je crois que sur LT Mainlev n'existe pas.

 

Qu'en dis tu ?

 

 

 

 

 

[rebcao]

Salut cher confrère aussi !

 

et tu sais quoi ? Il est plûtôt CON ton Frère ;) ( bien sur le Frère c'est moi ! )

 

OUI ! tu dois avoir raison... il est vrai que la dernière fois que j'ai joué avec ce machin on devait être en 1987... en ce temps là c'était sous DOS et LT n'existait pas encore... La préhistoire ! Quoi !

 

Merci Eric, :)

 

Christian ;)

[zebulon_]

Il n'y a pas de question idiote, il n'y a que les réponses qui peuvent l'être.

 

ou encore

 

à sotte question, point de réponse

 

Ce qui est bien avec les citations, c'est que tu peux trouver tout et son contraire.

 

 

Quant à la commande MAINLEV, elle se dit aussi _SKETCH. Alors si jamais c'était quand même un problème de traduction, ça devrait marcher. Mais bon je n'ai pas de LT...

 

Mais je crois que tu as LT extender et j'ai dans mes archives un lisp qui s'appelle CLOUD.LSP (il date de 95, la préhistoire quoi) qui fait un peu la même chose, sauf avec des arcs. Entre temps, il y la commande REVCLOUD dans autocad. Peut-être pas dans LT ?

 

 
; CLOUD.LSP   On-the-fly Clouds   (c)1995, David Harrington

(defun MYERROR (S )                             ;;error trap program
  (if (/= S "\nFunction cancelled" )
  (princ "\nEnding cloud..." ) )
  (setq *ERROR* OLDERR )
(princ ) )

(defun C:CLOUD ( )
  (setvar "cmdecho" 0 )
  (setq LAST_PT (getpoint "\nPick cloud start point: " )
     START_PT LAST_PT
     ARC_DIST (* 0.3125 (getvar "dimscale" ) ) ;; adjust arc size here! 
     INC_ANGLE 110                             ;; adjust arc angle here!
     OLDERR *ERROR*
  *ERROR* MYERROR )
  (prompt "\nGuide crosshairs along cloud path..." )
  (command "_pline" LAST_PT "_w" "0" "0" "_a" "_a" INC_ANGLE )
  (while LAST_PT
     (setq NEXT_PT (cadr (grread 1 ) ) )
     (if (> (distance LAST_PT NEXT_PT ) ARC_DIST )
        (progn
           (command NEXT_PT "_a" INC_ANGLE )
        (setq LAST_PT NEXT_PT ) ) 
     )
     (if (> (distance LAST_PT NEXT_PT ) (distance START_PT NEXT_PT ) )
        (progn
           (command START_PT "_cl" )
        (setq LAST_PT nil ) ) 
     ) 
  )
  (princ "\nClosing cloud..." )
);end cloud.lsp

 

il suffirait de changer les commandes _pline pour faire tracer des segments plutôt que des arcs pour obtenir un peu la même chose.

 

Amicalement

 

Zebulon_

 

[CDL]

Si, si, te peut la retrouver.

Avec ton LT EXTENDER. (C’est en anglais, certes ! Mais ça marche !)

Commande SKETCH.

:cool:

[rebcao]

OUI !

 

merci à tous les deux c'est effectivement possible unqiuement avec SKETH de LT-EXTENDER ! :)

 

Merci aussi pour le Préhistorique Zebulon ! J'aime bien le préhistorique !!! ça rappelle des souvenirs ;)

 

Christian