CDL

Je ne suis pas joueur, mais j'aime bien m'amuser. Dans ce cas ce programme ne ser a rien (peut etre un exercice pour un cour LISP) Important : Je l'ai commencé ! et fini ! Comme je change de sujet tout le temps : (info : son fonctionnement n'est pas le meme sur LT2002 et LT2004)

Comme beaucoup s’intéressent au LISP Un petit programme, déjà publié : Qui permet de voir les boucles et les tests conditionnels Mais aussi les "list" dans AutoCAD Et ce soir il y a un tirage ! Bonne Chance ! ;un programme a tester ;merci a Patrick pour sa participation ; RECHERCHE D'UN NOMBRE ALEATOIRE ENTRE 0 ET 100 (defun tirage (/ modulus multiplier increment random) (if (not seed) (setq seed (getvar "DATE")) ) (setq nombre (setq modulus 65536 multiplier 25173 increment 13849 seed (rem (+ (* multiplier seed) increment) modulus) random (/ seed modulus) ) ) (setq numero_sorti (fix (* 100 nombre))) ) ; PROGRAMME UNE LISTE DE 5 NOMBRES PARMI 50 NOMBRES (defun c:jeu () ; CONSTANTES ET VARIABLES (setq nombre_de_numero 5) (setq total_de_numero 50) (setq numero_sorti 0) (setq rien "resultat") (setq compteur1 0) (setq compteur2 0) (setq numero_01 0) (setq numero "pas bon") (setq list1 (list)) (setq list2 (list)) ; TRAITEMENTS (While (< compteur1 nombre_de_numero) (tirage) (setq numero "ok") (if (= 0 numero_sorti) (setq numero "pas_bon") ) (if (< total_de_numero numero_sorti) (setq numero "pas_bon") ) ; VERIFICATION NUMERO DEJA SORTI (setq compteur2 (length list1)) (while (< compteur2 nbr_numero) (if (= numero_sorti (nth compteur2 list1)) (setq numero "deja_sorti") ) (setq compteur2 (+ 1 compteur2)) ) ; AJOUt DANS LA LISTE (if (= numero "ok") (progn (setq numero_01 numero_sorti) (setq compteur1 (+ 1 compteur1)) (if (>= 5 compteur1) (setq list2(cons numero_01 list1)) ) (setq list1 list2) ) (print list1) ) ) ; FIN )

Je n’avait pas la dernière version ! Confirmation V1.8b fonctionne. Merci Patrick et je veux bien recevoir la procédure pour tester Lttoolkit Subit-il aussi les foudres de TotoDESK ? Si non pourquoi ? Merci Labletech ton comparatif sur les 2 produits était très intéressant mais pour les mêmes raisons que toi je n’ai jamais insisté sur l’autre. En lisant le contrat de licence à l’installation, je me demande parfois si j’ai le droit d’utiliser mon AutoCAD, voire même de l’installer sans risque. (juste regarder la boite, et accrocher la pochette du CD au mur )

Je teste la version LT EXTENDER v1.8a beta5 sur une LT 2004 j’ai la 3D les couleurs mais pas le LISP. Je suis pas très fort en anglais mais j’avais cru comprendre que c’était possible. En général je TEST d’abord sur ma 2000 puit sur la LT 2002. Comme je programme avec ma doc de la 2.5 et de la 13 tout le code passe bien.. Est ce que c’est parque j’ai LT 2002 et 2004 + toutes les versions v14 a 2004 + VIZ + Autodesk Architectural Desktop 3.3 sur le même system (pro 2000) ? (c’est lent quand j’ouvre tout en même temps !) Qui à testé au trouvé un autre produit qui active le LISP sur LT 2004 ?

DRAGMODE Type : Entier Enregistrée dans : Base de registres Valeur Initiale : 2 Contrôle l'affichage des objets déplacés. Lorsque le mode d'évolution dynamique est activé, AutoCAD LT montre l'image d'un objet lorsque vous le déplacez vers une autre position. Sur certaines configurations de machines, l'évolution dynamique peut prendre du temps. Utilisez la variable DRAGMODE pour l'annuler. 0 N'affiche pas le contour de l'objet lorsque vous le faites glisser 1 Affiche le contour de l'objet lorsque vous le faites glisser, uniquement si vous entrez glisser sur la ligne de commande, après avoir sélectionné l'objet à déplacer 2 Auto ; affiche toujours le contour de l'objet lorsque vous le faites glisser essaye ça pour voir

;Un programme a tester (merci d'envoyer vos remarques) ; merci a Patrick pour sa participation ; RECHERCHE D'UN NOMBRE ALEATOIRE ENTRE 0 ET 100 (defun tirage (/ modulus multiplier increment random) (if (not seed) (setq seed (getvar "DATE")) ) (setq nombre (setq modulus 65536 multiplier 25173 increment 13849 seed (rem (+ (* multiplier seed) increment) modulus) random (/ seed modulus) ) ) (setq numero_sorti (fix (* 100 nombre))) ) ; PROGRAMME UNE LISTE DE 5 NOMBRES PARMI 50 NOMBRES (defun c:jeu () ; CONSTANTES ET VARIABLES (setq nombre_de_numero 5) (setq total_de_numero 50) (setq numero_sorti 0) (setq rien "resultat") (setq compteur1 0) (setq compteur2 0) (setq numero_01 0) (setq numero "pas bon") (setq list1 (list)) (setq list2 (list)) ; TRAITEMENTS (While (< compteur1 nombre_de_numero) (tirage) (setq numero "ok") (if (= 0 numero_sorti) (setq numero "pas_bon") ) (if (< total_de_numero numero_sorti) (setq numero "pas_bon") ) ; VERIFICATION NUMERO DEJA SORTI (setq compteur2 (length list1)) (while (< compteur2 nbr_numero) (if (= numero_sorti (nth compteur2 list1)) (setq numero "deja_sorti") ) (setq compteur2 (+ 1 compteur2)) ) ; AJOUt DANS LA LISTE (if (= numero "ok") (progn (setq numero_01 numero_sorti) (setq compteur1 (+ 1 compteur1)) (if (>= 5 compteur1) (setq list2(cons numero_01 list1)) ) (setq list1 list2) ) ) ) ; FIN )

Envoi aussi à CDL@oreka.com je regarde le format du fichier j'ai déja fait ça pour des mesures radar mais je génére q'un nuage de points

c'est la fonction RANDOM que je cherchait en LISP le programme que j'avais ecrit en BASIC sortait 6 nombres le 2eme pas= au premier le 3eme pas= au 2 autres etc... et si = 0 ou > a 49 essaye encore une fois donc combinaison de 6 chiffres aléatoires un LOTO en fait maintenant c'est 5 de 1 à 50 (modif possible en entré) pour dessiner les boulles (pour le sapin) avec autoCAD facile. c'est pour ça que getpoint c'est plutot roulette de 1 à 36 (chandelles pour le sapin)

je regarde dans le sapin getpoint je vois pas le truc merci A+

Blague mise à part vérifie sur le site il y a des PATCH pour WINDOW et pour AutoCAD Vérifie si tu a les derniers.

Je pense que c'est parce que ton AutoCAD est installé sur le systéme d'explotation WINDOW !

existe t'il une commande LISP qui retourne un nombre aléatoire ?

Merci Tramber j'allai faire mon "copié collé", mais une urgence la PRESSION du travail ... En plus avec les EM-BOUTEILL-AGES sur CADXP avec cette 2005 En 10 minutes je prend une "Mousse" (pas BOUTEILLE : pression) sur le port.

Pour les symboles regarde dans le X:\rep-ton-autocad\Sample\DesignCenter Ici à Pen Ar Bed, beau temps, belle mer , quelles gouttes (ils en restera pour Oli553, et des floquons pour Tramber)

Un format de fichier compatible 2004 me semble étonnant (après une vue rapide des nouveautés annoncées ) Les folios font penser a ALLPLAN (une impression personnel) Merci de prévenir dés qu’une version d’eval est dispo

CITATION Bonjour à tous Ben moi AutoCAD je suis tombé dedans lors de mes études en mécanique (grace à un prof qui était un passioné d'info alors que tout ce faisait encore à la planche, merci philippe) J'ai commencé avec AutoCAD 10, puis au fil du temps 11,12,13,14, génius14, autocad méchanical 2000 power pack, 2000i,2002,2004 et en parallèle Inventor. Après mes études j'ai travallé quelque temps en bureau d'étude, en outillage de presse pour finalement devenir formateur dans un ATC parisien. Et voila J'ai bon ? à REPONSE Ben oui, t‘a toujours bon ! Et ton patron a tout faux ! On compte sur toi pour nous aider, et continuer a donner des « tuyaux » a tous ! A bientôt CDL

Jallai lui demander moi aussi ! pourquoi ?

J'ai 2000 et LT 2002 en NFR (je ne produit pas de plans). En plus ce sont des fichiers confidentiels donc faut que passe faire des tests sur site Je pense qu'il passera sur 2004 et le probléme sera plus facile à resoudre

tu clicdroit sur le fichier tu fait créer un racourci que tu le met sur le bureau sur ma 2004 le fichier s'ouvre dans la meme session c'est pas ça que tu veut ?

Avec LT-EXTENDER tu peux charger des LISP sur la LT pas sur que tous fonctionnes. Faut tester (200 lancements autorisés pour évaluation)

Merci mais ce fichier est bizare. Il a une 2000i CTRL+R marche pas sur ce fichier !? Je vais plutot ventre une MAJ 2004 au client.

Un drôle de fichier mem bete En espace présentation 3 fenêtres de crées Une seule est active les autre double clic dedans … rien ! Je crée un autre fenêtre la première ce vide comme les autres Dans la nouvelle c’est OK Dans les propriétés tout est OK Peut-être une variable « nombre de fenêtre actives » ?

Regarde les types de lignes CONTINUE ou COUTINUOUS la syntaxe est importante !

Trés pratique pour mettre au point un LSP.Il suffit de faire enregistrer dans le blocnote et de glisser le fichier dans autocad pour le tester.

Création d’un BLOC avec comme ATTRIBUT : IDENTIFICATION,SURFACE,SERVICE,DESTINATION Créer un fichier avec le blocnote en format txt BL:NAME C008000 BL:X N007002 BL:Y N007002 IDENTIFICATION C016000 SURFACE C009002 SERVICE C016000 DESTINATION C009002 Suivre l’aide en ligne pour plus de précision ATTENTION : les indications BL : ont été traduite en français EXEMPLE GESTION DE SURFACES Menu DESSIN commande CONTOUR Elle utilise la même case de dialogue que HACHURE et génère une polyligne (créer un calque ou seront générées les polylignes) Il faut bien gérer les calques pour désactiver les objets parasites. Par exemple un bloc porte, doit exister sur un calque dessiné ouverte et sur un autre dessinée fermée. utilise un bloc Surface composé d'attributs (NUMERO de parcelle, référence périmètre et surface) avec la commande AIRE option Objet tu récupère les infos, et copier coller dans les champs de tes attributs. avec le fichier GABARIT tu peut exporter tout ça dans un fichier texte Le choix du format d’export détermine les séparateurs de champs, moi je prend SDF Tu l’importe dans EXCEL.(attention au choix des séparateur de champs, faire des essais) Après tu transforme les colonnes de chiffres en numérique. Avec EXCEL tu pourra faire des tris et des totos.